[已解决]如何发现有隐藏的表

ZMW

一（1）想将表一、表二移动到表三，但代码怎么不能将表二移动了？
   （2）回复原因：你的“二表”中隐藏着一个表“VYSYLI”，是第一个表，表的内容是空白的，而我的宏就只复制第一个表，所以无法复制你显示的“表二”。解决办法：删除那个空白的“VYSYLI”

二、请问：如何发现有隐藏的表，因为上报来的表格太多，怎么办？请老师指教！

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-25 11:22

With Workbooks.Open(Mypath & "\" & Myfile).Sheets(1)

如果提取的工作表名都是sheet1,把上面的sheets(1),改为sheets("sheet1")

跳转到最佳答案楼层

qh8600

With Workbooks.Open(Mypath & "\" & Myfile).Sheets(1)

如果提取的工作表名都是sheet1,把上面的sheets(1),改为sheets("sheet1")

那么的帅

1. Sub test()
   
2.     Application.DisplayAlerts = False
   
3.     Application.ScreenUpdating = False
   
4.     Mypath = ThisWorkbook.Path
   
5.     Myfile = Dir(Mypath & "\*.xls")
   
6.     ThisWorkbook.Sheets(1).UsedRange.Offset(1).ClearContents
   
7.     Do Until Myfile = ""
   
8.         If Myfile <> ThisWorkbook.Name Then
   
9.             With Workbooks.Open(Mypath & "" & Myfile).Sheet1  '修改这句
   
10.                 W = .Range("B65536").End(3).Row
    
11.                 .Rows("2:" & W).Copy ThisWorkbook.Sheets(1).Range("A65536").End(3)(2)
    
12.             End With
    
13.             ActiveWorkbook.Close False
    
14.         End If
    
15.         Myfile = Dir
    
16.     Loop
    
17.     Application.DisplayAlerts = True
    
18.     Application.ScreenUpdating = True
    
19. End Sub

复制代码

ZMW

谢谢两位大师

ZMW

怎么？

ZMW

qh8600 发表于 2014-11-25 11:22
With Workbooks.Open(Mypath & "\" & Myfile).Sheets(1)

如果提取的工作表名都是sheet1,把上面的sheets( ...

大师请看看新问题，谢谢！