VBA 打开另一个包含变量的工作簿和工作表

在VBA中，我们可以使用一些代码来打开另一个包含变量的工作簿和工作表。这对于需要在不同的Excel文件之间进行数据处理和交换的任务非常有用。

vba
Dim wbPath As String
Dim wb As Workbook
Dim ws As Worksheet
wbPath = InputBox("请输入工作簿的路径和名称：") ' 或者直接指定路径和名称
Set wb = Workbooks.Open(wbPath)

vba
Dim wsName As String
wsName = InputBox("请输入工作表的名称：") ' 或者直接指定名称
Set ws = wb.Sheets(wsName)

vba
Sub OpenWorkbookAndWorksheet()
    Dim wbPath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim wsName As String
    wbPath = InputBox("请输入工作簿的路径和名称：") ' 或者直接指定路径和名称
    Set wb = Workbooks.Open(wbPath)
    wsName = InputBox("请输入工作表的名称：") ' 或者直接指定名称
    Set ws = wb.Sheets(wsName)
    ' 在这里可以进行后续的操作，例如读取或写入数据
    ' ...
    ' 关闭工作簿
    wb.Close SaveChanges:=False
End Sub

vba
Sub OpenWorkbookAndWorksheet()
    Dim wbPath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim wsName As String
    wbPath = "C:\Documents\Workbook1.xlsx" ' 可以直接指定路径和名称
    Set wb = Workbooks.Open(wbPath)
    wsName = "Sheet1" ' 可以直接指定名称
    Set ws = wb.Sheets(wsName)
    ' 在这里可以进行后续的操作，例如读取或写入数据
    ' ...
    ' 关闭工作簿
    wb.Close SaveChanges:=False
End Sub