前言

        其他的宏指令执行的前提条件是创建一个新的xlsx文件,来存储操作完成后的结果.否则会因为缺少操作对象,出现1004错误.

Sub CreateNewFile()Dim xlApp As ObjectDim xlWB As Object' 创建一个新的 Excel 应用程序对象Set xlApp = CreateObject("Excel.Application")' 禁止显示警告信息和屏幕更新xlApp.DisplayAlerts = FalsexlApp.ScreenUpdating = False' 创建一个新的工作簿Set xlWB = xlApp.Workbooks.Add' 在新工作簿中进行一些操作，例如写入数据或设置格式' 保存新文件xlWB.SaveAs "C:\path\to\your\newfile.xlsx"' 关闭工作簿和 Excel 应用程序xlWB.ClosexlApp.Quit' 释放对象Set xlWB = NothingSet xlApp = Nothing' 恢复显示警告信息和屏幕更新Application.DisplayAlerts = TrueApplication.ScreenUpdating = True
End Sub