新建工作簿

这节内容介绍如何应用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) '更改工作表名字
        For Each sht In .Worksheets
            sht.Range("a1").Resize(1, 6) = arr '修改工作表中内容
        .SaveAs Filename:="D:\data\1.xlsx" '设置保存路径
        .Close savechanges = True '确定可以更改
    End With
End Sub
    Set w = Application.Workbooks.Add
    On Error Resume Next
    w.SaveAs Filename:=paths & "\" & files & ".xlsx"             '在此输入新建工作簿的文件名，包括完整路径和扩展名
                                    一、VBA概念
VBA（Visual Basic for Applications）是Visual Basic的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。（来自百度百科）
二、创建步骤
点击 文件-选项
点击 自定义功能区-勾选开发工具，然后确定
并保存宏为有效（后缀为xlsm）
接下来就可以编写VBA程序了
打开界面如下
                                    创建新的 Workbooks 。创建的 workbook 名称为Book1，Book2，Book3依次递增
'若要在 Visual Basic 中创建新的工作簿，请使用 Add 方法。下述过程创建了新的工作簿。
'Microsoft Excel 自动将该工作簿命名为“BookN”，其中“N”是下一个可用的数字。新工作簿将成为活动工作簿。
Sub AddOne()
    Workbooks.Add
End Sub
创建新的 Workbooks 。创建的 workbook 名称为Allsales.xl.
Sub test()
    Dim wb As Workbook, sht As Worksheet    '定义一个Workbook对象和一个Worksheet对象
    Set wb = Workbooks.Add                  '新建一个工作簿
    Set sht = wb.Worksheets(1)
    With sht
        .Name = "另存工资表"                '修改第一张工作表的标签名称
                                    vba代码创建步骤 制冷乱码 (REFACTORING MESSY CODE)
It’s honestly not very difficult to write great, configurable classes. But, it might be if you’ve grown used to doing things in certain ways. 老实说，编写出色的可配置类并不是很困...
	/* 定义为integer*/
	num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
	/* num是非空单元格数*/
	For i = 1 To num
    '定义一个长整型变量
    Sheets.Add After:=Sheets(Sheets.Count), Count:=Sheets(1).Range("A" & Rows.Count).End(...
                                    Function Create_New_Workbook() '新建工作薄
  Application.ScreenUpdating = False
  Dim gzb As Workbook
  Dim mypath, i, wb
  mypath = ThisWorkbook.Path '获取当前工作薄所在的路径
  Set wb = GetObject(mypa
                                     VB使用ADODB操作数据库的常用方法ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸准备工作========Dim conn As New ADODB.Connection 创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As AD