以下代码执行后，单元格内容被清除，但是工作簿中的工作表为什么会隐藏了呢？

xiaodon9

1. 语数统计.rar (70.02 KB, 下载次数: 15)
   2017-4-26 11:21 上传

   点击文件名下载附件

复制代码

这段代码是论坛中找到的，整个窗口被隐藏了？求助

xiaodon9

有人吗？请高手帮我看看

xrs08234

xiaodon9 发表于 2017-4-27 13:34
有人吗？请高手帮我看看

是哪段代码？

xiaodon9

xrs08234 发表于 2017-4-27 13:44
是哪段代码？

1. Sub lqxs()
   
2.     Dim myPath$, myName$, wbnm$
   
3.     If MsgBox("你确定要清除吗？", vbYesNo) = vbYes Then
   
4.     Application.ScreenUpdating = False
   
5.     Sheet1.Activate
   
6.     wbnm = ThisWorkbook.Name
   
7.     myPath = ThisWorkbook.Path & ""
   
8.     myName = Dir(myPath & "*.xls")
   
9.     Do While myName <> ""
   
10.         If myName <> wbnm Then
    
11.         With GetObject(myPath & myName)
    
12.             .Sheets("sheet1").Range("C4:l70").ClearContents
    
13.             .Close True
    
14.         End With
    
15.         End If
    
16.         myName = Dir
    
17.     Loop
    
18.     Application.ScreenUpdating = True
    
19.      Else
    
20. ActiveSheet.Previous.Select
    
21. End If
    
22. End Sub
    

复制代码

xrs08234

xiaodon9 发表于 2017-4-27 14:05

Sub lqxs()
    Dim myPath$, myName$, wbnm$
    Dim wk As Workbook
    If MsgBox("你确定要清除吗？", vbYesNo) = vbYes Then
       Application.ScreenUpdating = False
        Sheet1.Activate
         wbnm = ThisWorkbook.Name
         myPath = ThisWorkbook.Path & "\"
          myName = Dir(myPath & "*.xls")
          Do While myName <> ""
            If myName <> wbnm Then
              Set wk = Workbooks.Open(myPath & myName)
                wk.Sheets("sheet1").Range("C4:l70").ClearContents
               wk.Close True
            End If
           myName = Dir
          Loop
       Application.ScreenUpdating = True
     Else
    ActiveSheet.Select
   End If
End Sub

xiaodon9

xrs08234 发表于 2017-4-27 22:10
Sub lqxs()
    Dim myPath$, myName$, wbnm$
    Dim wk As Workbook

高手，行了，谢谢 。、