Question

我想将记录集中的数据粘贴到工作表中的3列。

 rs.Open "SELECT [Sheet1$].Security,[Sheet1$].Description,[Sheet1$].ID FROM [Sheet1$] WHERE [Sheet1$].Number=1", cn, adOpenKeyset, adLockReadOnly

With Worksheets("Sheet4")
    .Cells.ClearContents
    .Cells(5, 1).CopyFromRecordset rs
End With

当我使用上面的代码时，它将数据从5,1开始粘贴到表4中，而我想将这些数据粘贴到表4的A，E，H列中。任何人都可以请点亮。

Answer 1

您可以将常量值放入SELECT语句中，以便：

rs.Open "SELECT [Sheet1$].Security, '', '', '', [Sheet1$].Description, '', '', [Sheet1$].ID FROM [Sheet1$] WHERE [Sheet1$].Number=1", cn, adOpenKeyset, adLockReadOnly

或者您可以使用NULL：

rs.Open "SELECT [Sheet1$].Security, NULL, NULL, NULL, [Sheet1$].Description, NULL, NULL, [Sheet1$].ID FROM [Sheet1$] WHERE [Sheet1$].Number=1", cn, adOpenKeyset, adLockReadOnly

编辑：这将删除B列中的所有内容：D和F：G可能会或可能不会成为您的问题

粘贴Recordset中的数据

1 个答案: