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