vba 打开同一文件夹的特定名称工作簿

你可以使用下面的 VBA 代码来打开同一文件夹中的特定名称工作簿：

Sub OpenWorkbook()
    Dim MyPath As String
    Dim MyWorkbook As String
    
    '设置文件夹路径和工作簿名称
    MyPath = "C:\Users\username\Documents\"
    MyWorkbook = "MyWorkbook.xlsx"
    
    '检查文件是否存在
    If Dir(MyPath & MyWorkbook) <> "" Then
        '如果存在，打开工作簿
        Workbooks.Open MyPath & MyWorkbook
    Else
        '如果不存在，显示错误消息
        MsgBox "The workbook does not exist in the specified folder."
    End If
End Sub

请注意，你需要更改 `MyPath` 和 `MyWorkbook` 变量的值以匹配你的文件夹路径和工作簿名称。如果指定的工作簿不存在，将显示一个错误消息框。

相关问题

VBA将同一路径下多个分页合并到一个

VBA (Visual Basic for Applications) 是Microsoft Office应用程序中的一种宏语言，可以用于自动化工作流程和处理Excel数据。如果你想通过VBA把同一路径下的多个Excel工作簿(即分页)合并到一个文件中，你可以使用以下步骤：

1. 打开一个空白的工作簿作为目标，设置为活动工作簿。

2. 创建一个新的模块，在VBA编辑器中输入以下代码：

Sub MergeSheets()
    Dim folderPath As String
    Dim fileNames() As String
    Dim wbTemp As Workbook
    Dim wsTemp As Worksheet
    
    '指定要搜索的文件夹路径
    folderPath = "C:\YourFolder" '替换为你实际的文件夹路径
    
    '获取该文件夹下的所有工作簿名
    fileNames = Dir(folderPath & "\*.xls*") '*.xlsx 也可以替换为其他扩展名
    
    '遍历每个文件并读取
    Do While Len(fileNames) > 0
        Set wbTemp = Workbooks.Open(folderPath & "\" & fileNames)
        
        '如果需要，可以选择特定工作表合并
        If wbTemp.Sheets.Count > 1 Then
            For Each wsTemp In wbTemp.Worksheets
                '假设所有工作表都叫Sheet1
                ThisWorkbook.Sheets("Sheet1").Insert Shift:=xlDown
                ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = wsTemp.Name
                ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Activate
                ActiveSheet.Paste Destination:=ActiveSheet.UsedRange
                wsTemp.Delete
            Next wsTemp
        Else
            '如果只有一个工作表，则直接复制过去
            ThisWorkbook.Sheets("Sheet1").Insert Shift:=xlDown
            ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = wbTemp.Name
            ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Activate
            wbTemp.Sheets(1).Copy Before:=ActiveSheet
            wbTemp.Close SaveChanges:=False
        End If
        
        fileNames = Dir
    Loop
    
    '关闭目标工作簿
    ThisWorkbook.Save
End Sub

3. 运行`MergeSheets`宏，它会查找指定路径下的所有Excel文件，将其内容逐个工作表合并到目标工作簿中。