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