[VBA]在后台删除工作表后出现的怪问题

天空_1991

天空_1991

2016-01-29 13:00

[VBA]在后台删除工作表后出现的怪问题,[VBA]在后台删除工作表后出现的怪问题

昨晚写一代码,将备将某目录下EXCEL中的某一工作表(同名“sheet2”)批量删除代码如下,成功删除之后发现奇怪问题,被删除处理过的EXCEL文件打开后发现是什么都没有,一张工作表都没有,但用 VB编辑器查看,却发现工作表还在,但就是没办法显示。
Private Sub CommandButton1_Click()
Dim app As Excel.Application
Dim xlapp As Variant
Dim xlworkbooks As Workbooks
Dim MyFile, MyPath, MyName
MyPath = "d:temp"
MyName = Dir(MyPath & "" & "*.xls")
Do While MyName <> "" ' 开始循环。
Set xlapp = GetObject(MyPath & "" & MyName)
Set w_sheets = xlapp.Worksheets
xlapp.Application.DisplayAlerts = False '不显示警告
xlapp.Worksheets("sheet2").Delete
Workbooks(MyName).Save
xlapp.Application.DisplayAlerts = True
xlapp.Application.Visible = True
Workbooks(MyName).Close
MyName = Dir ' 查找下一个目录。
Loop
End Sub
后来,再和高手探讨调试,发现如果不用getobject,而是直接先用workbook.open就可达到正常。
Application.Workbooks.Open MyName '此是关键,先打开工作表
反正是为什么会出现上面的情形我也说不清楚,不过能解决问题就好。。。呵呵
展开更多 50%)
分享

猜你喜欢

[VBA]在后台删除工作表后出现的怪问题

电脑网络
[VBA]在后台删除工作表后出现的怪问题

Excel使用VBA破解工作表/工作簿密码

excel
Excel使用VBA破解工作表/工作簿密码

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Excel工作表打印后留下的几条虚线打印线删除方法

软件教程 excel
Excel工作表打印后留下的几条虚线打印线删除方法

删除注册表垃圾后XP出现错误的解决方法

windows 操作系统
删除注册表垃圾后XP出现错误的解决方法

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

怎样删除excel工作表上的控件

excel
怎样删除excel工作表上的控件

Excel工作表打印线删除图解

电脑入门
Excel工作表打印线删除图解

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

PHP5 OOP编程之代理与定制异常(1)

PHP5 OOP编程之代理与定制异常(1)

EJB 3.0 开发指南之定时服务

EJB 3.0 开发指南之定时服务
下拉加载更多内容 ↓