vba生成excel文件

VBA新建一个excel文件，并且这个excel里面含有5个sheet，如何操作？~

在Excel选项中，“常用”→“新建工作簿时”→包含的工作表数→改为5。
以后新建工作簿时，会默认打开5个工作表sheet。

关键是你没有说复制哪些行到哪些位置，下面的代码复制A1到B1，请自行适当修改：
sub 宏1() dim st as worksheet, wb as workbook set st=activesheet '当前表 set wb=workbooks.add st.range("a1").copy wb.sheets(1).range("b1") '复制内容 wb.saveas thisworkbook.path & "\" & "123.xlsx"end sub

使用vba生成一个excel 文件，可以使用以下方法：

1 Workbooks.Add 方法
1.1 语法
新建一个工作表。新工作表将成为活动工作表。
语法
表达式.Add(Template)
表达式 一个代表 Workbooks 对象的变量。
参数
名称 必选/可选 数据类型 说明
Template 可选 Variant 确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。如果此参数为常量，新工作簿将包含一个指定类型的工作表。可为以下 XlWBATemplate 常量之一：xlWBATChart、xlWBATExcel4IntlMacroSheet、xlWBATExcel4MacroSheet 或 xlWBATWorksheet。如果省略此参数，Microsoft Excel 将创建包含一定数目空白工作表的新工作簿（该数目由 SheetsInNewWorkbook 属性设置）。
返回值
一个代表新工作簿的 Workbook 对象。
说明
如果 Template 参数指定的是文件，则该文件名可包含路径。

1.2 workbooks.add 会自动打开一个“工作簿1”这类的wb文件，并activate之
workbooks.add 会自动生成一个 " 工作簿N" 的WB文件，且active
workbooks.add 在add后，会打开一个“工作簿1”这类的wb文件
并且最后add的 wb文件 成为新的 activeworkbook
Sub test98()
Workbooks.Add
End Sub

1.3 workbooks.add(template)
template Variant 类型，可选

1.3.1 template如果指定为 EXCEL内置的常量
可为以下 XlWBATemplate 常量之一
xlWBATChart
xlWBATExcel4IntlMacroSheet
xlWBATExcel4MacroSheet
xlWBATWorksheet
Sub test91()
Workbooks.Add (xlWBATChart)
Workbooks.Add (xlWBATWorksheet)
Workbooks.Add (xlWBATExcel4MacroSheet)
Workbooks.Add (xlWBATExcel4IntlMacroSheet)
End Sub

1.3.2 若 template指定为文本，文本是一个文件路径，文件必须先存在
（暂时没发现有什么用处）
template 如果本参数为指定一现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板

如果template指定为文件，文件必须先存在，否则报错。
那么template为一个路径
如果是完整的绝对路径，则需要带path
如果只是相对路径，那么 excel 2010版本会去这儿找这个文件：D\用户目录/我的文档下面 ,默认目录？
好像指定过后会把新的路径当默认路径
Sub test96()
Workbooks.Add (ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx")
End Sub

Sub test97()
Workbooks.Add (ActiveSheet.Name & ".xlsx")
End Sub

2、thisworkbook.sheets(1).copy
这个是将当前代码所在工作簿的左侧第一张表拷贝生成新的工作簿文件。新文件包含一张表格。具体对应的文件跟表格可以根据需求调整

---

襄阳区13025026979： 求用VBA生成一个新的Excel文件文件名＂ABCD＂ 谢谢! - ？
茅怪格奈： sub test Dim FileName As String Dim wb As Workbook FileName = ＂ABCD.xls＂ Set wb = Workbooks.Add wb.SaveAs FileName end sub 下面是弹出另存为对话框的:FileName = Application.GetSaveAsFilename( ＂ABCD.xls＂)

襄阳区13025026979： 如何用VBA 筛选数据并生成新的excel表 - ？
茅怪格奈： 假设数据在A到M列,从第2行开始(表头为第2行),代码如下: Sub test() ActiveSheet.Range(＂A2:M999＂).AutoFilter Field:=2, Criteria1:=＂投资＂ Range(＂A2:M999＂).Copy Sheets.Add After:=Sheets(Sheets.Count) Range(＂A2＂).Select ActiveSheet.Paste End Sub

襄阳区13025026979： EXCEL vba 中使用SUMPRODUCT公式,并自动生成EXCEL公式 - ？
茅怪格奈：Sub copyFormula()Range(＂J8＂).Formula = ＂=SUMPRODUCT((MONTH($E$2:$E$65536)=MONTH(J$7))*($H$2:$H$65536=$I8)*($A$2:$A$65536))＂Range(＂J8＂).Copy Range(＂J8:L20＂) End Sub

襄阳区13025026979： VBA 从数据库读取数据写到 EXCEL - ？
茅怪格奈： 'sql完整例子 Sub testSql() '定义连接对象 Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset '定义连接字符串 Dim conStr As String Dim sqlstr As String '连接字符串-以下是连接MSSQL数据库 conStr = ＂Provider=...

襄阳区13025026979： 怎么vba实现word表格批量转为excel - ？
茅怪格奈： 注:vba偶并不太熟(偶一般是用c#和delphi的),VBA只是稍有了解,以下代码大部分是偶google到的内容拼出来的.....如下,使用时先更改test下的docpath和xlspath路径设定,docpath即你的word的目录,此目录包括子目录下的所有...

襄阳区13025026979： 使用vba可以将文件存为excel07格式吗 - ？
茅怪格奈： Excel2007中的VBA代码可以保存为xlsm格式.方法如下:1.点击Office按钮,选择另存为,选择“启用宏的Excel工作簿”:2.选择保存位置,设置文件名,点击保存:3.这样,再打开这个文件,就可以看到里面的VBA代码.

襄阳区13025026979： 如何 通过vba将 pdf 转为 excel - ？
茅怪格奈： 如果是专门的excel表格下载一个pdf转excel的文件就行.只记得软件名是.ABBY打头的.

襄阳区13025026979： 请教如何在窗体上通过VBA把表导出到已有的excel文件 - ？
茅怪格奈： 虽然编程方法不同,但大体思路如下:1、读取要导出的数据、保存在数组中或建立循环一行一行读取2、打开已有的excel3、将数据写入4、关闭excel.还有一些细节.比如触发导出事件的按钮,导出的excel的文件路径等等

襄阳区13025026979： 各位大侠,请问access 中vba怎样将数据导出excel中 - ？
茅怪格奈： 给你一段代码,修改下即可!第一步:创建一个Excel的链接表!'输入目录向数据库链接一个Excel表 并且加上 ＂XL＂ Sub LinkInxlsData(strSelectDir As String, tabName As String) On Error GoTo Err_InExcel Dim rst1 As ADODB.Recordset Dim ...

襄阳区13025026979： vba 如何将excel表中的某些sheet生成新的文件,并且文件名字自动添加日期. - ？
茅怪格奈： 下面的代码可以把所有的Sheet都生成一个新文件,把不要的删除就好了:Sub M() For Each sh In Sheets sh.Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & ＂\＂ & sh.Name & ＂-＂ & Format(Now, ＂YYYYMMDD＂) ActiveWorkbook.Close Next End Sub