Excel VBA列出特定文件中的所有工作表
我想打印一个特定文件夹下的所有excel文件的列表。 除了文件名之外,我还应该能够打印excel文件下所有表格的名称。
下面是我的打印文件名的代码示例如下。 但是,我无法弄清楚如何读取文件下的表名单?
Sub ButtonRun_Excel_Compare_Report_Click() Sheet1.Cells.Clear ShowFolderList ("D:\temp") End Sub Sub ShowFolderList(folderspec) Dim fs, f, f1, fc, s, sFldr Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.SubFolders For Each f1 In fc If Right(f1, 1) <> "\" Then ShowFolderList f1 & "\" Else ShowFolderList f1 Next Set fc = f.Files Rowcnt = 1 For Each f1 In fc If f1.Name Like "*.xls" Then 'How to loop through the Sheets under exach file? Sheet1.Cells(Rowcnt, 1) = f1.Name 'Sheet1.Cells(Rowcnt, 2) = f1.Path Rowcnt = Rowcnt + 1 'Debug.Print folderspec & f1.Name End If Next End Sub
感谢帮助。 谢谢
您将不得不打开工作簿并在工作表对象中循环
Application.Workbooks.Open Filename:=folderspec & f1.Name For i = 1 to ActiveWorkbook.Sheets.Count strFlenme = ActiveWorkbook.FullName strShtNme = ActiveWorkbook.Sheets(i).Name Debug.print strFlenme & " - " & i & " '" & strShtNme & "'" Next
- VBA Excel ActiveChart ProtectFormatting
- 如何从C ++(Clion)调用python脚本
- 在C#中导出和导入.xls(x) – 表错误
- c#添加一个图片从资源excel
- 八进制到hex数字在Excel中
- VBA使用公式计算行,并将答案粘贴为另一行中的值
- Excel:对象文本框不能在受保护与未受保护的工作表状态(w / Text Unlocked)中执行回车换行…为什么?
- Apache POI的C#端口会破坏.xlsx中的embedded式OLE对象
- 在MS Excel中,我需要删除每一个备用行AUTOMATICALLY而不是MANUALLy,它怎么可以用EXCEL来完成?