无法在未启用宏的工作簿中保存以下功能把vba做成成执行的exe_monster1725

个人资料

微博

正文字体大小：大中小

无法在未启用宏的工作簿中保存以下功能把vba做成成执行的exe

(2016-02-01 20:35:25)

分类： Excel Vba

打开excel文件，Alt+F11调出vba编辑器，拷贝以下代码，保存的时候，选“否"，将文档另存为xlsm，以后每次打开xlsm的excel，就会自动执行以下代码。

区别：xlsx 不带宏的excel文件，xlsm带宏的excel文件。

做成可执行的exe没办法，还没找到，但可以有类似的功能：

workbook_open打开excel工作簿自动执行；application.quit退出excel程序

workbook_open 一定要放到 thisworkbook中，不能放到sheet1中，也不能放到模块中！

Private Sub Workbook_Open()

Set acsv = Workbooks.Open(ThisWorkbook.Path & "\a.csv")

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\a.xlsx", FileFormat:=51

ActiveWorkbook.Close

Set acsv = Workbooks.Open(ThisWorkbook.Path & "\b.csv")

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\b.xlsx", FileFormat:=51

ActiveWorkbook.Close

application.quit

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report