首页 › 实战技术 › 打开工作薄的VBA

nnsea 发表于 2023-10-11 08:25:54

打开工作薄的VBA

Sub OpenWorkbook()
    Dim WorkbookPath As String
    Dim WorkbookName As String
    Dim Workbook As Workbook
      
    '提示用户输入工作簿路径和工作簿名称
    WorkbookPath = InputBox("请输入工作簿路径：", "打开工作簿")
    WorkbookName = InputBox("请输入工作簿名称：", "打开工作簿")
      
    '打开工作簿
    Set Workbook = Workbooks.Open(WorkbookPath & "\" & WorkbookName)
End Sub

查看完整版本: 打开工作薄的VBA