如何不打开Excel文件删除行？
发布时间：2023-04-25 15:15:08
Q：我有大约1000多个Excel文件（扩展名为xlsx），这些文件都只有1个工作表且具有相同的工作表结构，我想在不打开这些Excel文件的前提下删除其工作表的第1至3行，如何快速实现？
A：可以使用下面的VBA代码：
Sub DeleteRows()
‘声明变量
Dim FilePath As String
Dim fFile As String
Dim fName As String
Dim WB As Workbook
‘获取文件夹路径
FilePath = ActiveWorkbook.Path
fName = ActiveWorkbook.Name
‘添加反斜杠
If Right$(FilePath, 1) <> “\” Then
FilePath = FilePath & “\”
End If
‘获取文件
fFile = Dir(FilePath & “*.xlsx”)
‘遍历文件夹中的文件
Do While fFile <> “”
‘忽略当前工作簿
If fFile <> fName Then
Set WB = Workbooks.Open(FilePath& fFile, UpdateLinks:=0)
ActiveWorkbook.Sheets(1).Rows(“1:3”).Delete Shift:=xlUp
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
fFile = Dir
Loop
End Sub
在代码中，使用Dir函数来获取文件。只要不是代码所在的Excel工作簿文件，将打开该工作簿，执行删除第1至3行的操作，然后保存结果并关闭该工作簿。
注意，代码默认所要操作的工作簿与代码所在的工作簿在同一文件夹中。
虽然要求不打开Excel来删除行，但使用代码打开工作簿，执行操作，保存操作结果，然后关闭工作簿，让用户觉得根本没有打开过工作簿，这也是常用的技巧。
0
投稿猜你喜欢
- 已经深度体验1个月 PowerPoint 2016 的一次评测文章。一句话总结这次PowerPoint 的升级没有当年PowerPoint
很多时候，由于我们不小心安装了一些流氓软件，浏览器总是弹出网页或各种游戏广告。 那么，Win7浏览器经常自动弹出网页怎么办呢？教程/方法1，- 电脑用久了CPU风扇会累计大量灰尘杂质，散热功能降低，那么如何给CPU风扇清灰呢？怎么拆卸和安装CPU风扇呢？下面来看看具体操作步骤。CPU
- 在Excel中，我们可以在工作表中插入文档对象并设置链接，这样可以直接单击该对象即可打开相应的文档。因此，我们可以将与此工作表相关的文档当作
- 在我们平常电脑的使用中，最离不开的就是网络了，但是近期有Win10用户遇到了电脑网络图标不见了的情况，这样导致无法连接网络，十分影响电脑的使
- 文本框孤立的存在于文档中，略显单调，那么如何让它看起来更好看一些呢?方法有很多，不过最简单的还是对文本框加一些阴影效果，下面给大家分享WPS
- C盘是指电脑硬盘分区，用于储存或安装系统使用。很多人安装Win10单双系统，都默认保存在C盘。这样通常都只有20GB的C盘不用说都知道空间越
- Win7系统提示telnet不是内部或外部命令怎么解决?Telnet为用户提供了在本地计算机上完成远程主机工作的能力，给用户带来了许多方便之
- 小编升级到Windows 8后当时的第一反应就是Win8网络受限，Win8网络掉线情况很严重。Win8网络受限的原因比较多，解决办法也相对多
- 我们使用Windows电脑的时候，它都会为我们提供时间，一般位于任务栏的右边，会有时间和日期的显示。但是很多用户遇到了右下角的日期没有显示的
- 微软上一次为PC Insider会员推送系统更新是在11月18日，迄今已过去三周时间，版本号却依然停留在14971。微软上周末宣布，原来，他
- 今天偶然发现自己的电源管理方案选择变成了灰色，记得没有做什么较大的更改，可能删除某些插件时产生的问题吧。附上解决办法：症状您在基于 Micr
- Win7系统当中N卡的fps应该如何设置提高？大家都知道，fps帧数如果太低就会造成游戏画面卡顿，那么这个时候，我们就需要对N卡进行设置提高
- 最近有Win10系统用户反映，由于平常很少使用到IE浏览器，所以想要将桌面上的IE图标删除掉，可在删除的时候却发现，IE图标无法删除，这让用
- 或许很多Win7小伙伴们都有一个习惯，那就是如果我们人离开电脑，就一定会把电脑给休眠掉。因为我们都不惜花自己电脑里的东西被别人翻看。那小编今
- Win11正式版已经开始推送更新了，不过微软表示VirtualBox和Windows 11之间存在兼容性问题。升级到Windows 11后，
- 乞降函数是 咱们 常常 需求用到的一个函数。DSUM函数是一个 经常使用的 前提 乞降函数，它的 感化是 前往列表或数据库中 满意指定 前提
- 在日常生活中我们经常会需要进行小组合作，比如有时候我们需要多人合作制作一份PPT等等，每个人分别完成不同的内容。后续将两份或多份PPT合并为
- excel怎么把多选框变成单选框？在日常使用的excel工作表中，经常会遇到有选择的窗口，我们希望用户在填写选择的时候是多选框的样式，下面分
- PPT技巧多种多样，可能你比别人多学会一门技巧，制作的幻灯片就比别人的精美，毕竟这个社会还是靠技术吃饭的。本文以图文教程的形式简单的讲解将喜
