新建工作簿
这节内容介绍如何应用VBA自动创建工作簿，并修改部分内容后保存关闭。和创建工作表类似，创建工作簿仍然使用add方法。下面是一个较为完整的创建例子：
Sub addnewbook()
    Dim i As Integer
    Dim shtname As Variant
    Dim newbook As Workbook
    Dim arr As Variant
    Dim sht As Worksheet
    
    shtname = Array("a", "b", "c", "d") '新建工作簿中工作表名称
    arr = Array("1", "2", "3", "4", "5", "6") '工作表中内容
    
    Set newbook = Workbooks.Add '创建工作簿
    With newbook
        .ActiveSheet.Name = shtname(0)
        For i = 2 To 4
            .Sheets.Add after:=.Sheets(newbook.Sheets.Count) '创建工作表
            .ActiveSheet.Name = shtname(i - 1) '更改工作表名字
        Next
        
        For Each sht In .Worksheets
            sht.Range("a1").Resize(1, 6) = arr '修改工作表中内容
        Next
        .SaveAs Filename:="D:\data\1.xlsx" '设置保存路径
        .Close savechanges = True '确定可以更改
    End With
End Sub

                    
练习1：编程创建一个新的工作簿，把工作簿命名为Mybook，并用变量wb表示新建的工作簿，保存在D盘下test文件夹后退出。

Sub 新建工作簿 ()  
   Dim wb As Workbook  
   Set wb = Workbooks.Add  
   With wb  
      .SaveAs "d:\test\Mybook"  
      .Save  
      .Close  
   End With  
End Sub 
 
练习2：使用For Each In 结构变成石像在打开多个工作簿时，判断某个工作簿是否已经打开。
 

Sub 打开工作簿()  
    Dim wb As Workbook  
    Dim OtherWb As String  
    OtherWb = InputBox("输入工作簿名称：", "工作簿 _名称", "mybook.xlsx")  
    For Each wb In Workbooks  
        If LCase(wb.Name) = LCase(OtherWb) Then  
            MsgBox "工作簿" & OtherWb & "已经被打开！", vbInformation  
            Exit Sub  
        End If  
    Next  
    MsgBox "工作簿" & 

本文转自 kirin 51CTO博客，原文链接： http://blog.51cto.com/kirin/640426，如需转载请自行联系原作者


        
        
                
    

保存指定工作表为工作簿文件
1、指定的单一工作表
如果需要将工作簿中的工作表单独保存为一个工作簿文件，可以使用 Worksheet 对象的 Copy 方法，将指定的工作表复制到一个新建的工作簿。
Sub test()
    On Error GoTo line
    ActiveSheet.Copy  '复制工作表为工作簿
    ActiveWorkbook.Close savechanges:=True, Filename:="d:\123.xlsx" '保存当前工作簿即可
    Exit Sub
line:
    ActiveWorkbook.Close False
End Sub

2、所有工作表保存为工作簿
'方法一：
Sub test1()
    Application.ScreenUpdating = False '屏幕不更新
    Dim i As Integer
    Dim j As Integer
    Dim str As String
    j = Worksheets.Count
    For i = j To 1 Step -1
        Worksheets(i).Copy
    	str = ActiveWorkbook.Sheets(1).Name   '将工作簿名称改为工作表名称
        ActiveWorkbook.SaveAs Filename:="D:\data\" & str & ".xlsx"
        ActiveWorkbook.Close savechanges:=True
    Next
	Application.ScreenUpdating = True
End Sub

'方法二:
Sub test()
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx"
    ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

用程序计算数据，得到不同公司、不同项目的数据结果，最终还要将每个公司的数据结果放在各自的单独文件中。
这就需要在vba中新建、保存excel文件。
掌握几个东西就能很熟练了：
1、要想保存在当前目录下，需要调用thisworkbook.path得到当前文件的目录，得到的就是个string值，如“e:\download”。我通常是先定义一个string变量myPath，然后一上来就myPath=thisworkbook.path进行赋值。
2、新建工作簿的代码就是workbooks.add，我通常也是先定义一个workbook变量myBook，然后赋值，set myBook=workbooks.add。
3、修改工作表的名称了，我还是先定义一个worksheet变量mySheet，然后赋值set mySheet=myBook.sheets("sheet1")。再然后进行命名，mySheet.name="data"。
4、这里，我一般是让新建的工作簿只有一个工作表。所以，一开始我就会设定application.sheetsinnewworkbook=1。这样子新建出来的workbook就只有一个sheet了。
5、计算完成之后就是保存了。就要调用activeworkbook.saveas。最好都是写包含目录和文件扩展名在内的文件全名。不容易错。前面不是已经得到当前目录了，就是myPath。我一般也是先设定一个string变量myFileName，然后赋值，myFileName=myPath & "\" & "某某某.xlsx"。这里提醒一下的是，（1）不要漏了“\”；（2）连接符&左右都要加空格，要不然vba编译出问题，亲身体验。
6、关闭文件，调用activeworkbook.close。我一般会让它保存修改内容，就是activeworkbook.close savechanges:=true。免得会出现提示。
7、如果批量新建，套在for语句里吧。
转载于:https://www.cnblogs.com/wangzhisheng/p/3421369.html