用什麼樣的代碼可以把EXCEL表格放到名字一樣的文件夾裏？

批量移動文件至對應文件夾代碼如下Sub 批量移動文件() Dim Fso As Object, oFile As Object, p$, o$, sFolder$, t$ p = [B1].Value & "\" o = [B2].Value & "\" t = [B3].Value Set Fso = CreateObject("Scripting.FileSystemObject") For Each oFile In Fso.GetFolder(p).Files If oFile.Name Like "*." & t Then sFolder = o & Replace(oFile.Name, t, "") '設置目標文件夾 If Fso.FileExists(sFolder & "\" & oFile.Name) Then Fso.DeleteFile sFolder & "\" & oFile.Name '文件夾中已經存在該文件則刪除它 oFile.Move (sFolder & "\") '移動文件 End If Next oFile Set Fso = NothingEnd Sub需要在當前打開的表格中的B1：B3填寫配置

將單個excle表格導入的代碼寫成過程，傳入一個excle文件名參數：Private Sub Command1_Click()Dim i AS Long,sFile as syringFoe i =0 To File1.ListCount-1sFile=File1.list(i)導入過程sFileNEXTEnd Sub

這個用批處理命令吧