從 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 列中的所有內容，這對您來說可能是也可能不是問題