VBA从第一个工作簿打开两个工作簿并在第二个工作簿中选择特定工作表

Question

我正在尝试从包含 VBA 的第一个工作簿中打开两个工作簿，然后激活第二个工作簿中的特定工作表。代码如下，但由于某种原因，第二个工作簿中的工作表没有被激活。由于文件的名称和位置会有所不同，因此我在 VBA 文件中将它们作为参考，以便可以在前端而不是在代码中更改它们。

代码如下：

Sub OpenWorkbooks()

Application.ScreenUpdating = False

Dim srcFle, dataFle As String
Dim wb, wb1, wb2 As Workbook

srcFle = ActiveSheet.Range("C7").Value
dataFle = ActiveSheet.Range("C10").Value

Set wb = ThisWorkbook
Set wb1 = Workbooks.Open(srcFle)
Set wb2 = Workbooks.Open(dataFle)

wb1.Sheets("Sheet1").Activate

Application.ScreenUpdating = True

End Sub

提前致谢。

Answer 1

我想你忘了添加第二个工作簿的激活

Sub OpenWorkbooks()

On Error goto CleanUp  '<--- This will restore your screen update in case of error
Application.ScreenUpdating = False

Dim srcFle, dataFle As String
Dim wb, wb1, wb2 As Workbook

srcFle = ActiveSheet.Range("C7").Value
dataFle = ActiveSheet.Range("C10").Value

Set wb = ThisWorkbook
Set wb1 = Workbooks.Open(srcFle)
Set wb2 = Workbooks.Open(dataFle)

wb1.Sheets("Sheet1").Activate
wb2.Sheets("Sheet1").Activate   '<--- You need this line to activate the 2nd workbook

CleanUp:
Application.ScreenUpdating = True
End Sub

希望这是您所需要的。如果您需要进一步的帮助，请告诉我！

Answer 2

Option Explicit

Sub OpenWorkbooks()

'    ' You have declared srcFle as Variant
'    Dim srcFle, dataFle As String
'    ' You have declared wb and wb1 as Variant
'    Dim wb, wb1, wb2 As Workbook

'    ' This is how it's done:
'    Dim srcFle As String, dataFle As String
'    Dim wb As Workbook, wb1 As Workbook, wb2 As Workbook

    ' But best is briefly describing or naming the variables:
    Dim srcFle As String    ' Source Workbook Name
    Dim dataFle As String   ' Data Workbook Name
    Dim wb As Workbook      ' This Workbook
    Dim wb1 As Workbook     ' Source Workbook
    Dim wb2 As Workbook     ' Data Workbook

    ' Retrieve Target Workbook Names from This Workbook.
    Set wb = ThisWorkbook
    srcFle = wb.ActiveSheet.Range("C7").Value
    dataFle = wb.ActiveSheet.Range("C10").Value
'    ' better is e.g.:
'    srcFle = wb.Sheets("Sheet1").Range("C7").Value
'    dataFle = wb.Sheets("Sheet1").Range("C10").Value

    ' Open Target Workbooks (wb1, wb2)
    Set wb1 = Workbooks.Open(srcFle)
    Set wb2 = Workbooks.Open(dataFle)

    ' Prepare to work in Source Workbook (wb1).
    wb1.Sheets("Sheet1").Activate

End Sub