用什么样的代码可以把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

这个用批处理命令吧