VBA 怎么提取二级、三级文件夹下的文件
还没有解决吗?那我就来试一下。
(1)首先,楼主先新建一个excel,名称楼主自己写,怎样都行,然后将其打开。
(2)打开后按住Alt再按F11,这样就会打开vba代码编辑器
(3)点菜单栏上的“插入”,选择“模块”,这样在左下角就会出现一个“模块1”
(4)双击“模块1”,右边就会出现“模块1”的编辑界面,将以下代码复制,并粘贴到这个界面中,按F5运行。
Sub 遍历文件夹()'Columns(1).Delete On Error Resume NextDim f As StringDim file() As StringDim i, k, xx = 1i = 1: k = 1ReDim file(1 To i)file(1) = InputBox("请输入要查找的文件夹:") & "\"Do Until i > k f = Dir(file(i), vbDirectory) Do Until f = "" If InStr(f, ".") = 0 Then k = k + 1 ReDim Preserve file(1 To k) file(k) = file(i) & f & "\" End If f = Dir Loop i = i + 1LoopFor i = 1 To k f = Dir(file(i) & "*.*") Do Until f = "" 'Range("a" & x) = f Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:= _ file(i) & f, TextToDisplay:=f x = x + 1 f = Dir LoopNextEnd Sub(5)在出现的对话框中,将你要查找的文件的地址复制到对话框中,按确定,就完成了。
注:这里用的是excel2007版,如果楼主用的是其他版本,有可能存在代码不兼容问题。
图1.打开vba编辑器。
图2.运行代码。
图3.结果。
用DIR这个函数来列出某个文件夹下的内容,
以excel里的为例
Dim i As Integer
i = 1
Sheet1.Range("A" & i) = Dir("C:\")
Do While True
i = i + 1
Sheet1.Range("A" & i) = Dir
If Sheet1.Range("A" & i) = "" Then Exit Do
Loop
1:运行->cmd然后会出来命令提示符,再输入dir e:\access /B/S *.xls > e:\data.xls (以上是直接把e盘access这个文件夹中的所有.xls文件和子文件夹中的.xls文件名提取出来并保存到e盘的data.xls中)(data.xls是自己生成不用新建)
2:打开data.xls文件,就会发现A列全是文件路径和名称,然后在B列把A列的文件名分离出来。
然后建一个commandbutton,输入以下代码:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False '关闭屏幕刷新
Application.DisplayAlerts = False '禁用所有事件
for i=1 to range("a65536").end(xlup).row
Workbooks.Open range("a"&i)
For Each sht In Sheets
If sht.Name = "Sheet1" Then
sht.Range("D3") = "己复核"
End If
Next
workbooks(trim(range("b"&i))).Close True
next
Application.DisplayAlerts = True ' 启用所有事件
Application.ScreenUpdating = True '打开屏幕刷新
END SUB
花花烟酸: excel中用vba实现自动提取文件夹内的文件名的方法如下:1、新建一个vba宏脚本2、写入如下代码:Function GetFileList(FileSpec As String) As Variant' Returns an array of filenames that match FileSpec' If no matching files are found, it returns ...
禄丰县13646204949: 如何用VBA实现以下功能: 读取指定文件夹下的某些文件?(比如文件名含有A关键的文件) - ?
花花烟酸: 使用fso系统,msdn搜索一下就可以 或者使用dir函数,一样的好用 关键字就需要自己根据获取的文件名进行判断了.
禄丰县13646204949: VBA提取文件夹路径 - ?
花花烟酸: fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen <> False ThenMsgBox "Open " & fileToOpen End If
禄丰县13646204949: vba的判断文件名,然后提取不同工作表内的数据 - ?
花花烟酸: 你应该是要遍历文件夹下book工作簿,而不应该遍历所有文件,如果不是book文件,会找不到sheet工作表,这样会产生错误的.修改代码如下123456789101112131415161718192021222324252...
禄丰县13646204949: 怎样用vba取得子文件夹一览 - ?
花花烟酸: 用DIR这个函数来列出某个文件夹下的内容,以excel里的为例 Dim i As Integer i = 1 Sheet1.Range("A" & i) = Dir("C:\") Do While True i = i + 1 Sheet1.Range("A" & i) = Dir If Sheet1.Range("A" & i) = "" Then Exit Do Loop
禄丰县13646204949: Excel VBA 怎样获取指定目录下所有的文件(网上找到的程序都不对)?
花花烟酸: 此过程能把指定文件夹下的文件名放入Sheet1的A列. Public Sub findname() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("d:\33") '在括号内输入你指定的目录 Set fc = f.Files i = 1 For Each f1 In fc Sheet1.Cells(i, 1) = f1.Name i = i + 1 s = s & f1.Name s = s & vbCrLf Next End Sub
禄丰县13646204949: 提取多个文件夹下的excel数据,怎么编写vba代码,如提取A、B、C下相同名字的ecxel中数据 - ?
花花烟酸: 遍历目录,打开,过滤,存入数组,最后回写excel再看看别人怎么说的.
禄丰县13646204949: 怎么用VBA代码获取文件所在地址? - ?
花花烟酸: 返回应用程序完整路径 Application.Path 返回当前工作薄的路径 ThisWorkbook.Path 返回当前默认文件路径: Application.DefaultFilePath Application.ActiveWorkbook.Path 只返回路径 Application.ActiveWorkbook.FullName 返回路径及工作簿文件名 Application.ActiveWorkbook.Name 返回工作簿文件名
禄丰县13646204949: VBA提取当前工作簿所在文件夹的名称??
花花烟酸: sub t() dim str str=ThisWorkbook.Path MsgBox Right(str, Len(str) - InStrRev(str, "\")) end sub用路径整理下就是文件夹了啊~
禄丰县13646204949: VBA一次性提取文件名的方法 - ?
花花烟酸: 没理解你这里为什么用“一次性”这个词?问题应该是:“获取指定文件夹的所有文件”.Dim MyPath As String Dim MyFilesName As String Dim n As Long MyPath = "C:\ABC\" MyFilesName = "" n = 0 If Right$(MyPath, 1) <> "\" Then ...