通過彈出窗口選擇.xlsx文件並從它們複製數據並將它們粘貼到循環中上次使用的行之後

Question

以下代碼返回允許我將標題與我的儀表板文件和apac文件進行匹配，並將數據複製到儀表板文件和「臨時計算」表。問題是，apac不是唯一的文件，我需要能夠通過彈出窗口選擇文件，並在循環上運行此代碼，以便它將粘貼來自每個文件後的數據匹配標題後在「temp calc」中使用行。我無法做到這兩個，請指教？

感謝，

馬修

Sub copyCol() 


    Sheets("Temp Calc").Select 

    'Clear existing sheet data except headers 
     Rows(1).Offset(1, 0).Resize(Rows.Count - 1).ClearContents 



     Dim lastCol, lastRow As Long, k As Long, a As Variant, b As Variant, cmpRng As Range 
     Dim mastCol As Long, mastRng As Range, n As Long 
     Dim Wbk As Workbook 

     Application.ScreenUpdating = False 
     Worksheets("Temp Calc").Select 

      lastCol = Worksheets("Temp Calc").Cells(1, Columns.Count).End(xlToLeft).Column 
      lastRow = Worksheets("Temp Calc").Cells(Rows.Count, 1).End(xlDown).Row 

     Set cmpRng = Range(Cells(1, 1), Cells(1, lastCol)) 
     a = cmpRng 
     Set Wbk = Workbooks.Open("G:\work\APAC.xlsx") 
     Worksheets("Sheet1").Select 
     mastCol = Cells(1, Columns.Count).End(xlToLeft).Column 

     Set mastRng = Range(Cells(1, 1), Cells(1, mastCol)) 
     b = mastRng 

     For k = 1 To lastCol 
      For n = 1 To mastCol 
       If UCase(a(1, k)) = UCase(b(1, n)) Then 
       Windows("APAC-Personal Assignment.xlsx").Activate 
        Worksheets("Sheet1").Range(Cells(2, n), Cells(lastRow, n)).Copy 
        Windows("Dashboard_for_Roshan.xlsm").Activate 
        Worksheets("Temp Calc").Select 
        Cells(2, k).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
        False, Transpose:=False 

        Exit For 
       End If 
      Next 
     Next 

     Application.ScreenUpdating = True 

     Exit Sub 

    End Sub 

Answer 1

我建議實行推薦碼（見下文），其目標是：你以後再A）與多選選項顯示打開文件對話框，B）按確定它會打開（C）並關閉）所有選定的文件。

我想你可以加入你的代碼解決方案。在你做它最簡單的代碼之前，先了解它是如何工作的。

Sub Solution_for_multifiles() 

    Dim SelectedFiles As Object 
    Set SelectedFiles = Application.FileDialog(msoFileDialogFilePicker) 
     SelectedFiles.Show 

    If SelectedFiles.SelectedItems.Count <> 0 Then 
     'here is the code which will run for all files selected 
     Dim fileOne 
     Dim Wbk As Workbook 
     For Each fileOne In SelectedFiles.SelectedItems 
      Set Wbk = Workbooks.Open(fileOne) 
      'your code here... 
      '......... 

      'remeber to close before move to next file 
      Wbk.Close 
     Next 

    Else 
     MsgBox "No file was selected...", vbOKOnly + vbCritical, "Error!" 
     Err.Clear 
    End If 
End Sub