【原创】VBA（实验19）怎么遍历文件夹内的excel文件，怎么遍历sheet

 

 

Sub 遍历一个文件夹里的excel文件()

 

 

Rem 用bat 怎么写？

'cd C:\VBA

'dir >1.txt

'但是这样并没有把文件名给单独列出来？

 

Rem 用python 怎么写？

 

 

 

Dim a As Object

Dim path

path = ThisWorkbook.path

 

Rem  set a = *.xlsm     错

Rem  set a = "*.xlsm"   错

Rem Set a = CreateObject("excel.application")

Set a = CreateObject("scripting.fileSystemObject")

 

Set f = a.getfolder(path)

 

For Each i In f.subfolders

   Debug.Print i.Name

Next i

 

'Set a = Nothing

'Set f = Nothing

 

 

End Sub

 

 

很难的感觉

 

Sub get_sheet_name()

Rem 考虑做个初级的打表工具，取EXCEL表名存在单独的文本，符合条件的sheet内容存在单独的文本

Rem 不能打开表，因为表有很多

 

 

Dim wb As Workbook

Dim sh As Worksheet

Dim path

Dim arr1()

 

path = ThisWorkbook.path  '不包括文件名，只包括前面的一段

 

 

Rem 怎么遍历一个文件夹内的workbook? 至少是同一后缀的？

For Each wb In arr1("path" & " \ " & "cs2.xlsm", "path" & " \ " & "cs3.xlsm", "path" & " \ " & "cs111.xlsm")

    Debug.Print wb.Name

    For Each sh In wb

       Debug.Print sh.Name

       Rem 这里还要加判断

    Next sh

Next wb

 

 

Rem 导出到其他文件

 

 

 

End Sub