c# 如何删除Excel文件里所有工作表的第一行_百度知道
c# 如何删除Excel文件里所有工作表的第一行
用Workbook和Worksheet实现，谢谢
C#我不会。以下是VBA的代码，请自己修改：Dim i As IntegerFor i = 1 To W旦氦测教爻寄诧犀超篓orkbooks(&1.xls&).Worksheets.CountWorkbooks(&1.xls&).Worksheets(i).Rows(1).DeleteNext i
其他类似问题
2人觉得有用
excel的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁excel表格中病毒了怎样删除病毒还不是文件丢失_百度知道
excel表格中病毒了怎样删除病毒还不是文件丢失
提问者采纳
先备份文件，然后将文件打开后将重要的数据存放到另一个新建立的文件中，然后删除原文件
那不还是有毒？
病毒存在于宏或者程序里，数据和公式本身没有病毒。所以，你复制数据，尤其是基本数据是没问题的，当然，首先要保证程序本身没有病毒
提问者评价
谢谢 我试试
其他类似问题
按默认排序
其他1条回答
取下U盘然后对硬盘进行全盘杀毒，复制来还可以打开用，如果杀坏了，U盘上还有，毕竟数据最重要，表格可用：把重要的excel保存到U盘上最好的办法是，如果杀完后，不要怕病毒进U盘啊，那岂不是更好
excel表格的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁如何删除excel文件中具有相同关键字的记录？_百度知道
如何删除excel文件中具有相同关键字的记录？
在一个条目比较多的excel文件中，如何批量删除具有相同关键字的所记录？
选出后全部删除,&quot，第2列里选择包含图书。
答案补充 做筛选，首先按关键字排序这个用VB编辑器可以做到，只剩下值为1的，重新排序，按照这一行排序，去除筛选。如果A3值=A2,1)，输入代码，请问你的关键字在第几列;。删除控白的就可以了,那么在任意空白列写=if(a3=a2，假如关键在A列，按关键字排行？我帮你写代码。
答案补充 还有一种简单方法,打开sheet1表的代码区，双击左边的sheet1，选择工具-宏-VB编辑器,则A3=1;&quot
其他类似问题
按默认排序
其他3条回答
小学&quot,将不等于#VALUE;的显示为数字;功能,并不能删除整行,筛选时用自定义;小学&包含&quot,这样包含有&quot,B2) ,因为利用查找得到的一次只能删除一个书名中包含&quot.或者用公式也可以;,左边选择&小学&quot,就在最在一空白列输入公式;:=FIND(&quot,右边输入&quot.用公式的话,不过公式还没有自动筛选快;的单元格,删除,然后将筛选出来的行全部选中;,不包含的显示为错误值#VALUE.最好用自动筛选;查找&quot不要用&quot!的筛选出来删除;小学&quot!然后依旧要用到自动筛选
选定区域后,编辑菜单中的[查找],输入在删除的字,替换不输入字符,点击[全部替换]
CTRL+f搜索全部你要的内容。然后替换为空内容。试下。
excel的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 6430|回复: 15|
在线时间4 小时经验8 威望0 性别男最后登录注册时间阅读权限10UID848751积分8帖子精华0分享0
EH新人, 积分 8, 距离下一级还需 12 积分
积分排行3000+帖子精华0微积分0
高手们，现因本人工作原因，即将向别的部门移交特定目录下的一批EXCEL文件档案，这批文件中均含有一个固定名称的工作表，由于部门之间存在竞争，该工作表恰恰代表着我部门的重要秘密，因此，在移交前必须将每个文件中的这个工作表删除。
然而十年来的文件多达数千个，人工删除效率太低，易于漏删。我们虽然运用EXCEL有些日子，但水平有限，只是隐约觉得应该有类似编程的办法可解决这个问题。望高手们赐教。
请不要只是发个代码，关于VBA我这一无所知，而且基本上来不及从头学起，请一并指代码在哪使用，如何使用，是否要生成程序等等，不胜感激。
在线时间26428 小时经验39470 威望26 性别男最后登录注册时间阅读权限95UID501055积分42270帖子精华2分享0
139810财富
积分排行3帖子精华2微积分0
“请不要只是发个代码”，没有附件这个要求怎么实现？
请模拟效果，压缩成zip或rar文件，作为附件传上来
在线时间26428 小时经验39470 威望26 性别男最后登录注册时间阅读权限95UID501055积分42270帖子精华2分享0
139810财富
积分排行3帖子精华2微积分0
在A列输入：
要删除工作表名
(16.3 KB, 下载次数: 527)
17:43 上传
下载次数: 527
本帖评分记录鲜花
总评分:&鲜花 + 1&
在线时间4 小时经验8 威望0 性别男最后登录注册时间阅读权限10UID848751积分8帖子精华0分享0
EH新人, 积分 8, 距离下一级还需 12 积分
积分排行3000+帖子精华0微积分0
高手啊,不胜感激!
现手头无更多素材，不知您的设计原理，还有几个小问题不知是否有时间再研究
1，在A列可列的待删工作表限制几个表？
2，若同目录下待处理的文件达到一万个，有没有办法看其处理进度，比如还有多久出现OK。
3，是否对长文件名支持？
4，要学会你这招，需要的知识属于EXCEL知识的哪个类别，请提示以免走了弯路。
在线时间4 小时经验8 威望0 性别男最后登录注册时间阅读权限10UID848751积分8帖子精华0分享0
EH新人, 积分 8, 距离下一级还需 12 积分
积分排行3000+帖子精华0微积分0
zhaogang1960 发表于
在A列输入：
要删除工作表名
跟贴不算回复啊,重来个
高手啊,不胜感激!
现手头无更多素材，不知您的设计原理，还有几个小问题不知是否有时间再研究
1，在A列可列的待删工作表限制几个表？
2，若同目录下待处理的文件达到一万个，有没有办法看其处理进度，比如还有多久出现OK。
3，是否对长文件名支持？
4，要学会你这招，需要的知识属于EXCEL知识的哪个类别，请提示以免走了弯路。
在线时间26428 小时经验39470 威望26 性别男最后登录注册时间阅读权限95UID501055积分42270帖子精华2分享0
139810财富
积分排行3帖子精华2微积分0
那谁谁 发表于
跟贴不算回复啊,重来个
高手啊,不胜感激!
现手头无更多素材，不知您的设计原理，还有几个小问题不知是 ...
前3个问题一试便知
第4个问题需要长久磨练，不是一两个提示能办到的
在线时间5481 小时经验5120 威望2 性别保密最后登录注册时间阅读权限95UID1180810积分5270帖子精华0分享0
积分排行177帖子精华0微积分0
zhaogang1960 发表于
在A列输入：
要删除工作表名
请教版主，改成这样行不，我始终不会用GetObject。
Do While MyName && &&
& && &&&n = n + 1
& && &&&If MyName && ThisWorkbook.Name Then
& && && && &Workbooks.Open MyPath & MyName
& && && && && & For Each sh In Sheets
& && && && && && &&&If d.Exists(sh.Name) Then sh.Delete
& && && && && & Next
& && && && &ActiveWindow.Close True
& && &&&End If
& && &&&MyName = Dir
另外，我分步运行了你的代码，在DO循环中：
第1次，MyName=1.xls
第2次，MyName=2.xls
第3次，MyName=批量删除工作表.xls
第4次，MyName=1.xls
第5次，MyName=2.xls
第6次，MyName=1.xls
第7次，MyName=2.xls
第8次，MyName=1.xls
第9次，MyName=2.xls
第10次，MyName=1.xls
第11次，MyName=2.xls
..........................................
竟然循环了40次，不知道什么原因？
12:32 上传
Sub Macro1()
& & Dim MyPath$, MyName$, sh As Worksheet, d As Object, arr, i&, n
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & Set d = CreateObject(&scripting.dictionary&)
& & arr = Range(&a1&).CurrentRegion
& & For i = 2 To UBound(arr)
& && &&&d(arr(i, 1)) = &&
& & MyPath = ThisWorkbook.Path & &\&
& & MyName = Dir(MyPath & &*.xls&)
& & Do While MyName && &&
& && &&&n = n + 1
& && &&&If MyName && ThisWorkbook.Name Then
& && && && &With GetObject(MyPath & MyName)
& && && && && & For Each sh In .Sheets
& && && && && && &&&If d.Exists(sh.Name) Then sh.Delete
& && && && && & Next
& && && && && & Windows(.Name).Visible = True
& && && && && & .Close True
& && && && &End With
& && &&&End If
& && &&&MyName = Dir
& & Application.ScreenUpdating = True
& & MsgBox &ok& & &&&循环次数 & & n
改成下面的代码也循环了5次，同样不理解为什么，估计与保存（ActiveWindow.Close True）有关，具体不知道怎么解释。
Sub Macro1()
& & Dim MyPath$, MyName$, sh As Worksheet, d As Object, arr, i&, n
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & Set d = CreateObject(&scripting.dictionary&)
& & arr = Range(&a1&).CurrentRegion
& & For i = 2 To UBound(arr)
& && &&&d(arr(i, 1)) = &&
& & MyPath = ThisWorkbook.Path & &\&
& & MyName = Dir(MyPath & &*.xls&)
& & Do While MyName && &&
& && &&&n = n + 1
& && &&&If MyName && ThisWorkbook.Name Then
& && && && &Workbooks.Open MyPath & MyName
& && && && && & For Each sh In Sheets
& && && && && && &&&If d.Exists(sh.Name) Then sh.Delete
& && && && && & Next
& && && && &ActiveWindow.Close True
& && &&&End If
& && &&&MyName = Dir
& & Application.ScreenUpdating = True
& & MsgBox &ok& & &&&循环次数 & & n
本帖评分记录鲜花
总评分:&鲜花 + 1&
有事找我，请用邮箱联系（），不加好友。
在线时间4 小时经验8 威望0 性别男最后登录注册时间阅读权限10UID848751积分8帖子精华0分享0
EH新人, 积分 8, 距离下一级还需 12 积分
积分排行3000+帖子精华0微积分0
天书啊,不过仍然感谢版主指教和小花鹿的参与
在线时间26428 小时经验39470 威望26 性别男最后登录注册时间阅读权限95UID501055积分42270帖子精华2分享0
139810财富
积分排行3帖子精华2微积分0
小花鹿 发表于
请教版主，改成这样行不，我始终不会用GetObject。
Do While MyName&&&&
& && &&&n = n + 1
没有发现40次现象
第一种情况：
Sub Macro1()
& & Dim MyPath$, MyName$, sh As Worksheet, d As Object, arr, i&, n
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & Set d = CreateObject(&scripting.dictionary&)
& & arr = Range(&a1&).CurrentRegion
& & For i = 2 To UBound(arr)
& && &&&d(arr(i, 1)) = &&
& & MyPath = ThisWorkbook.Path & &\&
& & MyName = Dir(MyPath & &*.xls&)
& & Do While MyName && &&
& && &&&n = n + 1
& && &&&If MyName && ThisWorkbook.Name Then
& && && && &With GetObject(MyPath & MyName)
& && && && && & For Each sh In .Sheets
& && && && && && &&&If d.Exists(sh.Name) Then sh.Delete
& && && && && & Next
& && && && && & Windows(.Name).Visible = True
& && && && && & .Close True
& && && && &End With
& && &&&End If
& && &&&MyName = Dir
& & Application.ScreenUpdating = True
& & MsgBox &ok& & &&&循环次数 & & n
15:43 上传
在线时间26428 小时经验39470 威望26 性别男最后登录注册时间阅读权限95UID501055积分42270帖子精华2分享0
139810财富
积分排行3帖子精华2微积分0
第二种情况：
Sub Macro1()
& & Dim MyPath$, MyName$, sh As Worksheet, d As Object, arr, i&, n
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & Set d = CreateObject(&scripting.dictionary&)
& & arr = Range(&a1&).CurrentRegion
& & For i = 2 To UBound(arr)
& && &&&d(arr(i, 1)) = &&
& & MyPath = ThisWorkbook.Path & &\&
& & MyName = Dir(MyPath & &*.xls&)
& & Do While MyName && &&
& && &&&n = n + 1
& && &&&If MyName && ThisWorkbook.Name Then
& && && && &Workbooks.Open MyPath & MyName
& && && && && & For Each sh In Sheets
& && && && && && &&&If d.Exists(sh.Name) Then sh.Delete
& && && && && & Next
& && && && &ActiveWindow.Close True
& && &&&End If
& && &&&MyName = Dir
& & Application.ScreenUpdating = True
& & MsgBox &ok& & &&&循环次数 & & n
15:46 上传
CreateObject函数用法除了没有Open方法那么多参数外，基本用法相同，前者隐试打开速度稍快，但如果工作簿有密码、外部引用、远程引用等，就只能使用Open方法了
积分≥4700即可申请
最佳管理者
最佳管理者奖章No.4
最佳管理者
最佳管理者奖章No.3
最佳管理者
最佳管理者奖章No.2
最佳管理者
最佳管理者奖章No.1
金牌优秀管理者
金牌优秀管理者勋章No.1
优秀管理者
优秀管理者勋章No.1
金牌优秀会员
金牌优秀会员奖章No.2
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.2
优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&