将VBA中的输出从Activesheet更改为新文档（文件）

我有excel文件（VBA），我想在一个单独的文件输出，但我努力使其追加。 输出应该是工作表中row6下的所有内容。

Set RST = New ADODB.Recordset RST.Open SQL, mCON, adOpenForwardOnly, adLockReadOnly, adCmdText Do Until RST.EOF = True Application.StatusBar = "Getting data to row: " & lRow For n = 0 To (RST.Fields.Count - 1) If Not IsNull(RST(n)) Then ActiveSheet.Cells(lRow, n + 1) = RST(n) Next RST.MoveNext lRow = lRow + 1 Loop ActiveSheet.Range("B5").Select Application.ScreenUpdating = True Exit Sub 

Answer 1

只需创build一个新的工作簿：

 Dim wB As Excel.Workbook Set RST = New ADODB.Recordset RST.Open Sql, mCON, adOpenForwardOnly, adLockReadOnly, adCmdText Set wB = Workbooks.Add lRow = 6 Do Until RST.EOF = True Application.StatusBar = "Getting data to row: " & lRow For n = 0 To (RST.Fields.Count - 1) If Not IsNull(RST(n)) Then wB.Sheets(1).Cells(lRow, n + 1) = RST(n) Next n RST.MoveNext lRow = lRow + 1 Loop wB.Sheets(1).Range("B5").Select Application.ScreenUpdating = True Exit Sub