前言
其他的宏指令执行的前提条件是创建一个新的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