Question

vba提取文件路径 利用下面的代码提取出来的路径如何提起的Excel？

Answer 1

问：vba提取文件路径 利用下面的代码提取出来的路径如何提起的Excel？

答：首先打开Excel数据表，在开发工具中打开VBA编辑器。

答：在单元格区域当中输入一些内容

答：在VBA编辑器中插入模块。

答：Sub获取文件路径()Dim filess, tempfiless=Application.GetOpenFilename(, , "打开文件")If filess=False Then MsgBox "你未选择文件，程序即将退出！": Exit Subtemp=Split(filess, "\")。

答：MsgBox "你选择的《" & temp(UBound(temp)) & "》的路径为：" & Chr(10) & filess _& Chr(10) & "当前表路径为：" & Chr(10) & ThisWorkbook.FullName, vbokonty+64,"返回路径"End Sub。在模块当中输入代码，然后运行。

答：然后单击“执行”按钮，程序弹出“选择文件”对话框。选择一个文件后，程序立即弹出所选文件的路径，然后弹出当前工作簿的路径。

答：Sub getpath()Range("A2:D1000").ClearContentsOn Error Resume NextDim shell As VariantSet shell = CreateObject("Shell.Application")Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址Set shell = NothingIf filePath Is Nothing ThenExit SubElsegg = filePath.Items.Item.PathEnd IfSet obj = CreateObject("Scripting.FileSystemObject")Set fld = obj.getfolder(gg)For Each ff In fld.Filesm = m + 1Cells(m + 1, 1) = ff.nameCells(m + 1, 2) = ff.PathCells(m + 1, 3) = ff.SizeCells(m + 1, 4) = ff.DateCreatedNextEnd Sub

答：希望能帮到您

问：可以提取公用盘里的的文件名吗

问：我需要提取公用盘里的文件路径和文件名到Excel中

答：不可以的

问：只能提取电脑里的是吗

问：这个代码的提取出来的路径怎么弄到Excel中呢

答：是的

问：这个代码运行完是我要的结果 但是不知道怎么把msgbox显示的结果弄到Excel

答：首先，打开需要提取文件名的文件夹，对着地址栏点击复制文件夹地址。

答：再打开记事本文档，输入代码，

答：3/8接下来把记事本文档进行保存，保存位置为刚才上面的文件夹位置，文件名为name.bat，重要的是后面的扩展名.bat，切记，再点击保存。

答：保存好后，文件夹中就有了一个批处理文件，双击运行该文件

答：文件夹中就又出现了一个刚才代码中输入的文本文档名字，双击文件，就看到了我们要的文件名了。

答：接下来进入Excel，点击数据，点击获取外部数据，点击自其他来源，来自XML数据导入。

答：在选择数据源对话框中选择刚才的文本文档，点击打开按钮。

答：出现文本导入向导，直接点击完成，点击确定，文件名就出来了。