VBA来创建一个新的 Excel 文件

前言

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

vbscript 复制代码
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
相关推荐
cngkqy27 分钟前
excel中筛选条件,数字筛选和文本筛选相互转换
excel
Hello 0 128 分钟前
用计算思维“破解”复杂Excel考勤表的自动化之旅
自动化·excel·ai编程·计算思维
我命由我123458 小时前
Excel 表格 - Excel 减少干扰、专注于内容的查看方式
学习·ui·excel·photoshop·表格·ps·美工
北风toto8 小时前
excel数字转文本样式不生效问题
excel
我命由我123458 小时前
Excel 表格 - Excel 单元格添加边框
学习·ui·excel·课程设计·photoshop·ps·美工
admin⁠8 小时前
php 实现 导入excel 带图片导入
php·excel
葡萄城技术团队8 小时前
SpreadJS:让多源数据筛选排序如 Excel 般便捷高效
运维·服务器·excel
Developer-YC8 小时前
像素图生成小程序开发全解析:从图片上传到Excel图纸
java·javascript·图像处理·微信小程序·excel
懵逼的小黑子1 天前
excel里面店铺这一列的数据结构是2C【uniteasone17】这种,我想只保留前面的2C部分,后面的【uniteasone17】不要
excel
偷心伊普西隆1 天前
Python EXCEL 理论探究:格式转换时处理缺失值方法
python·excel