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

已有3條答案

醉塵輕拂

回答數：153 | 被采納數：16

批量移動文件至對應文件夾用什麼樣的代碼可以把EXCEL表格放到名字一樣的文件夾裏？(1)

代碼如下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填寫配置

2017-09-22 07:40:47

讚 15

星屑心屑

回答數：103 | 被采納數：48

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

2017-09-22 07:46:57

讚 10

檸檬c丨

回答數：51 | 被采納數：18

這個用批處理命令吧

2017-09-22 07:57:05

讚 5

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