将外部工作表复制到当前工作簿Excel VBA

我正在处理一个小型项目，在这个小型项目中，我需要从其他工作簿中工作表的外部数据库中将工作表添加到当前打开的工作簿中。 我做了一个表单来导入当前打开（活动）工作簿中所需的任何表单。 这些工作表将从远程（在任何其他文件夹，但同一台计算机）工作簿中复制。 我正在使用下面的代码，但由于未知的原因，工作表并没有被复制到我目前的工作簿。 紧急帮助表示赞赏。

Dim wb As Workbook Dim activeWB As Workbook Dim FilePath As String Dim oWS As String Set activeWB = Application.ActiveWorkbook FilePath = "D:\General Required Docs\DATA.xlsm" If optFirst.Value = True Then Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next oWS = cboMaterial.Value Set wb = Application.Workbooks.Open(FilePath) wb.Worksheets(oWS).Copy After:=Application.ActiveWorkbook.Sheets(ThisWorkbook.Sheets.count) activeWB.Activate wb.Close False Application.ScreenUpdating = True Application.DisplayAlerts = True 

Answer 1

更改

 wb.Worksheets(oWS).Copy After:=Application.ActiveWorkbook.Sheets(ThisWorkbook.Sheets.count) 

至

 wb.Worksheets(oWS).Copy After:=activeWB.Sheets(activeWB.Sheets.count) 

假定oWS是要复制的工作表的索引。

Answer 2

 Sub Add_Bridge_1() Dim wbk1 As Workbook, wbk2 As Workbook 'add your own file path fileStr = "C:\Program Files\Microsoft Office\Office\HL DDS Templates.xlsx" Set wbk1 = ActiveWorkbook Set wbk2 = Workbooks.Add(fileStr) 'wbk2.Sheets("Bridge 1").Copy After:=Workbooks("WorkbookNameYouCopyCodeInto").Sheets(1) wbk2.Sheets("Sheet Name").Copy After:=wbk1.Sheets(1) wbk2.Saved = True End Sub