Access开发一键删除Excel指定工作表

Hi,大家好!

又到了每周给大家更新的时间了,这周给大家讲讲excel的处理操作吧。

在开始前,先给大家汇报一下我们框架的进度,最近两周没有直播,所以大家不太清楚目前的进度,框架目前就差权限了,我争取在8月份上线测试。开始前,大家先给个一键三连吧!

0 1创建窗体

首先,我们先创建一个窗体,在窗体上放一个按钮就可以了。

0 2添加代码

在按钮的单击事件里添加代码:

vbscript 复制代码
Dim objApp  As Object           'Excel.Application

Dim objBook As Object           'Workbook

Dim strFile As String           '用户选中的文件



'1. 让用户挑文件

With Application.FileDialog(msoFileDialogFilePicker)

    .Filters.Clear

    .Filters.Add "Excel", "*.xls;*.xlsx"

    If .Show <> -1 Then Exit Sub

    strFile = .SelectedItems(1)

End With



'2. 后台启动 Excel

Set objApp = CreateObject("Excel.Application")

objApp.DisplayAlerts = False    '关闭系统弹框



'3. 打开工作簿并删除 Sheet1

Set objBook = objApp.Workbooks.Open(strFile)

On Error Resume Next            '若 Sheet1 不存在也不报错

objBook.Worksheets("Sheet1").Delete

On Error GoTo 0



'4. 保存并收尾

objBook.Save

objBook.Close SaveChanges:=False

objApp.Quit

0 3测试

最后,就是测试一下。

要点说明:

FileDialog(msoFileDialogFilePicker) 让脚本拥有"所见即所得"的文件选择体验,用户免记路径。

DisplayAlerts = False 关闭诸如"删除工作表无法撤消"之类的警告,保证脚本无人值守。

On Error Resume Next / GoTo 0 组合,在目标工作表可能已被删掉时也能正常结束。

Save 与 Close 分离:先硬保存,再以 SaveChanges:=False 关闭,避免二次询问。

当一个重复且机械的动作可以被脚本完全取代,就意味着省下的每一分钟都能投入到更具价值的工作。把这段 VBA 收进你的工具箱,下次碰到批量"瘦身" Excel 的需求,只需双击运行,剩下的交给代码。

愿你在自动化的道路上越走越轻松。

相关推荐
EveryPossible17 分钟前
终止异步操作
前端·javascript·vue.js
Stringzhua36 分钟前
setup函数相关【3】
前端·javascript·vue.js
neon12041 小时前
解决Vue Canvas组件在高DPR屏幕上的绘制偏移和区域缩放问题
前端·javascript·vue.js·canva可画
考虑考虑1 小时前
Redis8中的布谷鸟过滤器
redis·后端·程序员
Sammyyyyy1 小时前
Node.js 做 Web 后端优势为什么这么大?
开发语言·前端·javascript·后端·node.js·servbay
妮妮喔妮1 小时前
Webpack 有哪些特性?构建速度?如何优化?
前端·webpack·node.js
ST.J1 小时前
webpack笔记
前端·笔记·webpack
重庆穿山甲1 小时前
Cola架构深度解析:企业级应用架构设计指南
后端
Baklib梅梅2 小时前
2025 年 8 个最佳网站内容管理系统(CMS)
前端·ruby on rails·前端框架·ruby