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

Question

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

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

只需创建一个新工作簿：

{{1}}