如何導入工作表的列以激活工作簿

Question

我想從用戶選定的工作簿中導入特定列以激活工作簿。

當我複製並粘貼列時，它無法粘貼到目標工作表中。我究竟做錯了什麼？

這裏是我的代碼：

Sub Import_sheet() 

Dim fDialog As Office.FileDialog 
Dim varFile As Variant 
Dim wb As Workbook 
Dim activeWB As Workbook 
Set activeWB = Application.ActiveWorkbook 

Set fDialog = Application.FileDialog(msoFileDialogFilePicker) 
    With fDialog 
     .AllowMultiSelect = True 
     .Title = "Select Files to prepare" 
     .Filters.Add "All Files", "*.*" 

     If .Show = True Then 

     For Each varFile In .SelectedItems 
      MsgBox varFile 
      Application.ScreenUpdating = False 
      Application.DisplayAlerts = False 

      Set wb = Application.Workbooks.Open(varFile) 
      'wb.Worksheets(1).Copy _ 
      After:=activeWB.Sheets(activeWB.Sheets.Count) 

      wb.Sheets(1).Columns("C").Select 
      Selection.Copy 

      activeWB.Sheets("template").Columns("B").Select 
      Selection.Paste 

      wb.Close False 

      Application.ScreenUpdating = True 
      Application.DisplayAlerts = True 
     Next 

     Else 
     MsgBox "You clicked Cancel in the file dialog box." 
     End If 
    End With 

End Sub 

Answer 1

你需要複製前啓動工作簿或粘貼，所以它不是超出範圍。

wb.activate 
    wb.Sheets(1).select 
    wb.Sheets(1).Columns("C").Copy 


    activeWB.activate 
    activeWB.Sheets("template").select 
    activeWB.Sheets("template").Cells("B1").Paste