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
相关推荐
葡萄城技术团队1 天前
从100秒到10秒的性能优化,你真的掌握 Excel 的使用技巧了吗?
excel
QQ3596773452 天前
ArcGIS Pro实现基于 Excel 表格批量创建标准地理数据库(GDB)——高效数据库建库解决方案
数据库·arcgis·excel
星空的资源小屋4 天前
Digital Clock 4,一款免费的个性化桌面数字时钟
stm32·单片机·嵌入式硬件·电脑·excel
揭老师高效办公4 天前
在Excel和WPS表格中批量删除数据区域的批注
excel·wps表格
我是zxb4 天前
EasyExcel:快速读写Excel的工具类
数据库·oracle·excel
辣香牛肉面4 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
ljf88384 天前
Java导出复杂excel,自定义excel导出
java·开发语言·excel
tebukaopu1484 天前
json文件转excel
json·excel
shizidushu4 天前
How to work with merged cells in Excel with `openpyxl` in Python?
python·microsoft·excel·openpyxl
Eiceblue5 天前
使用 C# 设置 Excel 单元格格式
开发语言·后端·c#·.net·excel