Question

VB代码 如何新建保存EXCEL 文件

Answer 1

1、打开excel软件，先点击“开发工具”，再点击“查看代码”，打开VBA窗口。

2、在新打开的窗体的代码编辑区复制粘贴以下代码，并点击绿色小三角按钮。

代码：

Sub创建新文件()

  DimexcelApp,excelWBAsObject

  DimsavePath,saveNameAsString

  SetexcelApp=CreateObject("Excel.Application")

  SetexcelWB=excelApp.Workbooks.Add

  savePath="C:\Users\w\Desktop\VBA测试文件夹\"     '新建文件保存的路径

  saveName="VBA创建的文件.xlsx"             '新建文件的名称

  excelWB.SaveAssavePath&saveName

  excelApp.Quit

   EndSub

3、除点击绿色小三角按钮外，还可以在excel文件数据窗口点击“开发工具”中的“宏”按钮，然后点击“执行”按钮，即可执行。

4、执行完之后，我们可去相应路径下查看，发现VBA已自动创建了一个新的excel文件。