前言

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