vba修改指定文件夾內的文件名

Ⅰ Excel 請問怎樣用VBA重命名文件

1、首先我們打開一個工作樣表作為例子。

Ⅱ Excel VBA列出某文件夾下子文件夾及文件名

遍歷文件夾 並列出文件 & 文件夾 名 代碼如下：

在文件夾內 新建 個 Excel文件

Excel文件內 按 Alt+F11 視圖--代碼窗口， 把如下代碼復制進去， F5運行

Sub遍歷文件夾()
'OnErrorResumeNext
Dimfn(1To10000)AsString
Dimf,i,k,f2,f3,x
Dimarr1(1To100000,1To1)AsString,qAsInteger
Dimt
t=Timer
fn(1)=ThisWorkbook.path&""
i=1:k=1
DoWhilei<UBound(fn)
Iffn(i)=""ThenExitDo
f=Dir(fn(i),vbDirectory)
Do
IfInStr(f,".")=0Andf<>""Then
k=k+1
fn(k)=fn(i)&f&""
EndIf
f=Dir
LoopUntilf=""
i=i+1
Loop
'*******下面是提取各個文件夾的文件***
Forx=1ToUBound(fn)
Iffn(x)=""ThenExitFor
f3=Dir(fn(x)&"*.*")
DoWhilef3<>""
q=q+1
arr1(q,1)=fn(x)&f3
f3=Dir
Loop
Nextx
ActiveSheet.UsedRange=""
Range("a1").Resize(q)=arr1
MsgBoxFormat(Timer-t,"0.00000")
EndSub

效果如圖：

Ⅲ 用VBA怎樣在D盤上新建一個指定名稱文件夾，且在文件夾下建一個指定文件名的EXCEL文件，

VBA編程中，我們能夠輕松實現自動創建文件夾和生成文件的任務。比如，想要在D盤上創建一個名為"abc"的文件夾，並在該文件夾下生成一個名為"abc.xls"的Excel文件，可以使用以下代碼：

首先定義變數，包括文件夾名稱和文件名稱，如下所示：

Dim FolderName, FileName, MyFolder, MyFile As String

接著設置文件夾和文件的名稱：

FolderName = "abc"
FileName = "abc.xls"

使用Dir函數檢查指定路徑下的文件夾或文件是否存在。如果文件夾不存在，則使用MkDir函數創建文件夾：

MyFolder = Dir("D:\" & FolderName, 16)
MyFile = Dir("D:\" & FolderName & "\" & FileName, 16)
If MyFolder > "" Then
MsgBox "The folder is OK"
Else
MkDir "D:\" & FolderName
End If

接下來檢查文件是否已經存在，如果文件不存在，則使用Open語句創建並寫入文件：

If MyFile > "" Then
MsgBox "The File is OK"
Else
Open "D:\" & FolderName & "\" & FileName For Output As #1
Close #1
End If

這段代碼首先檢查D盤下是否存在名為"abc"的文件夾，若不存在，則自動創建該文件夾；之後檢查該文件夾下是否已經存在名為"abc.xls"的Excel文件，如果不存在，則創建一個空文件。

這樣的操作不僅提高了工作效率，還使得文件管理變得更加自動化，為後續的數據處理和分析提供了便利。

Ⅳ 批量更改文件夾下所有指定類型文件的擴展名的VBA代碼

PrivateSubWorkbook_Open()
OnErrorResumeNext
thepath=InputBox("文件所在路徑專：屬")
Setfso=CreateObject("scripting.filesystemobject")
ForEachfilInfso.getfolder(thepath).Files
IfRight(fil.Name,3)="jpg"Then
fil.Name=Left(fil.Name,Len(fil.Name)-3)&"BMP"
EndIf
Next
EndSub

Ⅳ 用VBA代碼如何獲得指定文件夾內的所有子文件夾名稱

Set fso=CreateObject("Scripting.FileSystemObject")
Set folder=fso.GetFolder("D:")
dim a() as string
dim b
b=1
for each thing in folder.subfolders
addfolder fso,thing,a,b
next
msgbox b

function addfolder(byref fso,byref dir,byref a,byref b)
set folder=fso.getfolder(dir)
a(b)=dir
b=b+1
For Each thing in folder.SubFolders
set folder=fso.getfolder(thing)
a(b)=thing
b=b+1
addfolder fso,thing,a,b
Next
end function