大神們！在某個檔案夾下 如何批量給多個檔案簿的第一個sheet 中 有內容的區域添加相應的 作業簿名稱
uj5u.com熱心網友回復：
是批量給有內容的區域定義名稱嗎uj5u.com熱心網友回復：
Sub findXLS()
Dim curDir As String, xlsxName As String, fileType As String
fileType = "\*.xlsx"
curDir = Application.ActiveWorkbook.Path
xlsxName = Dir(curDir & fileType)
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim rng As Range
Do While xlsxName <> ""
Workbooks.Open fileName:=curDir + "\" + xlsxName
Set rng = ActiveWorkbook.ActiveSheet.UsedRange
If rng.Count <> 0 Then
'Debug.Print rng(1, 1)
rng(1, 1) = xlsxName
End If
ActiveWorkbook.Close SaveChanges:=True
xlsxName = Dir
Loop
Application.ScreenUpdating = True
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/7338.html
標籤：VBA
下一篇：為什么突然就這樣了啊