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

星屑心屑

回答数：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

柠檬c丨

回答数：51 | 被采纳数：18

这个用批处理命令吧

2017-09-22 07:57:05

已解决用什么样的代码可以把EXCEL表格放到名字一样的文件夹里？