vba打开Excel文件中工作簿问题
我现在想批量打开文件夹中所有文件中的某个工作表，但问题是，不是所有文件都有这个工作表，想问一下当遇到这种文件要如何跳过，然后继续打开后面的文件进行操作
vba打开Excel文件中工作簿问题
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
分享- 邀请回答
-
2条回答 默认 最新
CSDN专家-showbo 2022-11-22 14:51关注On Error Resume Next容错或者写一个函数遍历所有sheet是否存在名字为你那个工作表的名称，存在再继续
On Error Resume Next If Sheets("xxx") Is Nothing Then MsgBox "xxx sheet不存在"本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏举报 分享
- 2022-11-22 14:43回答 2 已采纳 On Error Resume Next容错或者写一个函数遍历所有sheet是否存在名字为你那个工作表的名称，存在再继续 On Error Resume Next If Sheets("xxx") I
- 2022-06-06 09:24回答 3 已采纳 通过vba可以实现
- 2022-07-27 00:53回答 4 已采纳 检查一下 VBAPassword 函数是不是在去除密码后没有成功关闭文件，卡在内存里，所以后面无法修改。
- 2022-12-14 19:58Excel-VBA宏编程实例源代码-工作簿的操作-打开指定路径的工作簿.zip
- 2022-09-09 16:18回答 1 已采纳 添加一个模块，弄一个函数 Sub XXX() Range("A2:F1000").Select Selection.Copy Workbooks.Open Filename:
- 2021-08-20 21:30回答 2 已采纳 总课表中的数字是全角状态下的１，你输入的1是半角状态的，当然会找不到，改成全角的１就行了，不过最好判断下是否找单元格再取值。有帮助麻烦点个采纳【本回答右上角】，谢谢~~ Sub findcell()
- 2022-02-13 15:07回答 1 已采纳 Range("A#").Value = i-------cells(a,1).valueRange("B#").Value = i-------cells(a,2).valuecells可以接受两个变
- 2022-12-14 19:58Excel-VBA宏编程实例源代码-判断指定的工作簿是否打开.zip
- 2018-04-12 07:20回答 1 已采纳 代码实现重新构建所有链接,如果要单独刷新某文件夹的文件链接，可仿效代码（可不用单独刷新，如有增删，重新全部构建）。 Sub test() Dim fso, fp, ar, ar1, sub
- 2022-01-07 21:13回答 1 已采纳 Option Explicit Sub test()Dim I As LongDim tmpString As String With ActiveSheet For I = 1 To .Use
- 2020-08-12 17:09回答 2 已采纳 第一种方式，参数"all_transport1()"的括号不需要，只提供宏名称就行了 ``` import win32com.client import os.path xlApp =
- 2022-12-14 19:58Excel-VBA宏编程实例源代码-获取工作簿打开的方式.zip
- 2022-11-17 09:55回答 2 已采纳 Sub setCellCValue() rownum = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).row For i = 2 To
- 2023-03-18 20:12Excel-VBA宏编程实例源代码-指定工作簿发送邮件.zip
- 2022-12-14 19:58Excel-VBA宏编程实例源代码-工作簿被打开时执行代码.zip
- 没有解决我的问题, 去提问
问题事件
系统已结题
12月3日
已采纳回答
11月25日-
创建了问题
11月22日
悬赏问题
- ¥20 西门子S7-Graph,S7-300，梯形图
- ¥50 用易语言http 访问不了网页
- ¥50 safari浏览器fetch提交数据后数据丢失问题
- ¥15 matlab不知道怎么改，求解答！！
- ¥15 永磁直线电机的电流环pi调不出来
- ¥15 用stata实现聚类的代码
- ¥15 请问paddlehub能支持移动端开发吗？在Android studio上该如何部署？
- ¥20 docker里部署springboot项目，访问不到扬声器
- ¥15 netty整合springboot之后自动重连失效
- ¥15 悬赏！微信开发者工具报错，求帮改