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

最后

以上就是愉快口红为你收集整理的Excel批量创建和打开工作簿的全部内容，希望文章能够帮你解决Excel批量创建和打开工作簿所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。