VBA来创建一个新的 Excel 文件
前言
其他的宏指令执行的前提条件是创建一个新的xlsx文件,来存储操作完成后的结果.否则会因为缺少操作对象,出现1004错误.
(图片来源网络,侵删)
Sub CreateNewFile() Dim xlApp As Object Dim xlWB As Object ' 创建一个新的 Excel 应用程序对象 Set xlApp = CreateObject("Excel.Application") ' 禁止显示警告信息和屏幕更新 xlApp.DisplayAlerts = False xlApp.ScreenUpdating = False ' 创建一个新的工作簿 Set xlWB = xlApp.Workbooks.Add ' 在新工作簿中进行一些操作,例如写入数据或设置格式 ' 保存新文件 xlWB.SaveAs "C:\path\to\your\newfile.xlsx" ' 关闭工作簿和 Excel 应用程序 xlWB.Close xlApp.Quit ' 释放对象 Set xlWB = Nothing Set xlApp = Nothing ' 恢复显示警告信息和屏幕更新 Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
(图片来源网络,侵删)
(图片来源网络,侵删)
文章版权声明:除非注明,否则均为主机测评原创文章,转载或复制请以超链接形式并注明出处。
还没有评论,来说两句吧...