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 的需求,只需双击运行,剩下的交给代码。

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

相关推荐
gihigo199830 分钟前
在CentOS上配置SVN至Web目录的自动同步
前端·svn·centos
祐言QAQ33 分钟前
(超详细,于25年更新版) VMware 虚拟机安装以及Linux系统—CentOS 7 部署教程
linux·运维·服务器·c语言·物联网·计算机网络·centos
心灵宝贝34 分钟前
如何在CentOS 7上安装bzip2-1.0.6-13.el7.x86_64.rpm RPM包(详细步骤)
linux·服务器·centos
珍宝商店35 分钟前
优雅的 async/await 错误处理模式指南
开发语言·前端·javascript
数据知道1 小时前
Go基础:Go语言能用到的常用时间处理
开发语言·后端·golang·go语言
华纳云IDC服务商1 小时前
服务器机械硬盘能支撑高并发流媒体吗?
运维·服务器·媒体
excel1 小时前
楖览:Vue3 源码研究导读
前端
proud12121 小时前
开源的 CSS 动画库
前端·css·开源
折翼的恶魔1 小时前
HTML媒体标签
前端·html
excel1 小时前
前端项目中的测试分类与实践 —— 以 Vue 项目为例
前端