Excel批量创建和打开工作簿

最新推荐文章于 2025-05-25 12:00:00 发布

原创最新推荐文章于 2025-05-25 12:00:00 发布 · 516 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Excel #vba

Excel 专栏收录该内容

0 篇文章

订阅专栏

本文介绍使用VB.Net进行批量创建和打开Excel工作簿的方法。通过简单的代码实现自定义数量的工作簿创建，并保存到指定路径；同时，也展示了如何批量打开位于特定目录下的所有Excel文件。

批量创建工作簿

VB.Net
Sub 批量新建工作簿()
    Dim strcount As String, intcounter As Integer
    Dim mypath As Workbook
    Path = ActiveWorkbook.Path  ' 获取当前工作簿所在的路径
    strcount = InputBox("please input the number of new workbook")
    If IsNumeric(strcount) Then
        For intcounter = 1 To strcount
            Workbooks.Add   ' 创建工作簿
            ActiveWorkbook.SaveAs Path & "\" & ActiveWorkbook.Name  '保存工作簿到磁盘
        Next intcounter
    End If
    MsgBox "there are " & strcount & "of workbooks is created"
End Sub

批量打开工作簿

Sub 批量打开工作簿()
    Dim wk As Workbook
    myPath = "F:\学习资料\随书光盘\Excel函数与图表应用实例解析\02\素材\" '指定文件存储在这个目录
    myFile = Dir(myPath & "*.xls") '选中所有的xls文件
    
    Do While myFile <> ""
        If myFile = False Then Exit Sub
        If myFile <> ThisWorkbook.Name Then
               Workbooks.Open (myPath & myFile)
        End If
        myFile = Dir
    Loop
End Sub