sql - 从 Recordset 粘贴数据

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 中的所有内容，这对您来说可能是也可能不是问题