系统粉 > 电脑问答 > 其他问答

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

提问者:小野村的姑娘  |  浏览次  |  提问时间:2017-09-22  |  回答数量:3

用什么样的代码可以把EXCEL表格放到名字一样的文件夹里?(图1)

已有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丨

柠檬c丨

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

这个用批处理命令吧
2017-09-22 07:57:05
赞 5
相关问答
最新其他问答
解决方法