本文目录一览：
- 1、vba生成excel文件
- 2、EXCEl怎么用VBA建立一个目录？（用超链接）
- 3、用VBA创建一个新的excel文件在当前目录并复制当前表中指定行到新的excel文件中的指定位置！
- 4、如何用VBA实现导入自定义路径的Excel文件
- 5、VBA如何获取当前EXCEL文件的路径
vba生成excel文件
使用vba生成一个excel 文件，可以使用以下方法：
1 Workbooks.Add 方法
1.1 语法
新建一个工作表。新工作表将成为活动工作表。
语法
表达式.Add(Template)
表达式 一个代表 Workbooks 对象的变量。
参数
名称 必选/可选 数据类型 说明
Template 可选 Variant 确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。如果此参数为常量，新工作簿将包含一个指定类型的工作表。可为以下 XlWBATemplate 常量之一：xlWBATChart、xlWBATExcel4IntlMacroSheet、xlWBATExcel4MacroSheet 或 xlWBATWorksheet。如果省略此参数，Microsoft Excel 将创建包含一定数目空白工作表的新工作簿（该数目由 SheetsInNewWorkbook 属性设置）。 -.netvba创建excel文件路径
返回值
一个代表新工作簿的 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
这个是将当前代码所在工作簿的左侧第一张表拷贝生成新的工作簿文件。新文件包含一张表格。具体对应的文件跟表格可以根据需求调整
EXCEl怎么用VBA建立一个目录？（用超链接）
1、打开事先准备好的Excel文件
2、工具栏/开发工具/Visual Basic，打开Microsoft Visual Basic,也可使用快捷键Alt+F11，
3、然后，选择VBAProject/Microsoft Excel 对象/sheet1（sheet1），在右边窗口输入以下程序：
Sub 根据工作表创建目录()
Dim i As Integer, Biao As Worksheet
i = 2
For Each Biao In Worksheets
Cells(i, "A") = Biao.Name
i = i + 1
Next Biao
End Sub
程序已经编制完成！
4、最后，工具栏/开发工具/宏（快捷键Alt+F8），查看宏，选择已编制好的宏“根据工作表创建目录”，执行，就会根据工作表创建对应目录。也可直接在Microsoft Visual Basic中执行，工具栏/运行/运行子过程/用户窗体，或者直接点击菜单栏中类似于三角形的按键。-.netvba创建excel文件路径
用VBA创建一个新的excel文件在当前目录并复制当前表中指定行到新的excel文件中的指定位置！
关键是你没有说复制哪些行到哪些位置，下面的代码复制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文件
方法/步骤
首先，Excel已有自定义函数（这里就不多说了，如果不了解自定义函数的，可以在我关于自定义函数的经验中找找看）。
点击Excel左上角的”Office按钮“，选择”另存为“，”其他格式“。
在弹出的新对话框中，选择”Excel
97-2003加载宏（*.xla），然后选择保存的路径和保存的文件名，点击“保存”键即可。
到这一步，实际上就完成了制作自定义加载项的工作，接下来，就是添加自定义加载项到Excel中了。
随便打开一个新的Excel文件，点击左上角的“Office按钮”，选择下面的“Excel选项”，继续选择“加载项”。
然后点击下方的“转到”按钮。
这时候又弹出一个新的对话框出来，选择其中的“浏览”按钮。
此时会出现一个“打开”对话框，找到在步骤3中储存的xla格式的文件，并点击“确定”按钮。
8
这时候，就可以看到左侧多了一个文件名，这说明按照正确的路径找到了这个文件，点击“确定”按钮，返回Excel。
9
这时候，就可以在Excel中，像自带的函数一样，随意使用模块中的两个函数了。而且任意时候，打开Excel，这个函数都是可以使用的。
VBA如何获取当前EXCEL文件的路径
1、首先打开Excel数据表，在开发工具中打开VBA编辑器。
2、在单元格区域当中输入一些内容。
3、在VBA编辑器中插入模块。
4、Sub获取文件路径()Dim filess, tempfiless=Application.GetOpenFilename(, , "打开文件")If filess=False Then MsgBox "你未选择文件，程序即将退出！": Exit Subtemp=Split(filess, "\")。-.netvba创建excel文件路径
5、MsgBox "你选择的《" temp(UBound(temp)) "》的路径为：" Chr(10) filess _
Chr(10) "当前表路径为：" Chr(10) ThisWorkbook.FullName, vbokonty+64,"返回路径"End Sub。在模块当中输入代码，然后运行。
6、然后单击“执行”按钮，程序弹出“选择文件”对话框。选择一个文件后，程序立即弹出所选文件的路径，然后弹出当前工作簿的路径。
