從一個工作簿復制並粘貼到文件夾中的多個CSV工作簿中

Question

我正在嘗試從空白工作簿創建一個宏，然后另一個已經打開的工作簿名為“數據過程提取工作簿”，該工作簿將打開指定文件夾中的所有.csv文件並運行該宏。 我遇到的問題是宏的一部分，是要從“數據處理提取工作簿”中復制一大列數據，然后將其粘貼到將要在其中運行宏的.csv文件中。復制的數據回到運行宏的文件中。它似乎與“ Windows（Mypath＆MyFile）.Activate”部分有關。 我嘗試了幾種不同的方法來引用回當前打開的.CSV文件，但似乎無法弄清楚。 任何幫助，將不勝感激。

Sub OpenFiles()
    Dim wbk As Workbook
    Dim MyPath As String
    Dim MyFile As String

    'Open Files

    MyPath = "C:generic folder"
    MyFile = Dir(MyPath & "*.csv")
    Do While MyFile <> ""
        Set wkb = Workbooks.Open(MyPath & MyFile)
        'Run Macro on CSV files
        'Copy data from template workbook
        Windows("Data process-extract workbook.xlsb").Activate
        Application.Goto Reference:="R1C1:R4000C1"
        Selection.Copy

        'need to figure out how to paste into whatever .csv workbook is currently having the macro run in'
        Windows("=wkb").Activate
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

        ActiveWorkbook.Close True

        MyFile = Dir

    Loop
End Sub

謝謝

Answer 1

最簡單的解決方案是使用您分配的Workbook對象作為對CSV文件的引用，即更改

Windows("=wkb").Activate

至

wkb.Activate