精华内容
下载资源
问答
  • excel中VBA提取文件夹名称的方法

    千次阅读 2016-08-09 15:15:54
    内容提要:文章介绍excel中使用VBA代码来提取文件夹名称的具体操作步骤。对Excel感兴趣的朋友可加Excel学习交流群:284029260(www.itblw.com)  在网上看到有人用批处理命令提取文件夹名称。其实在excel中使用VBA...
    内容提要:文章介绍excel中使用VBA代码来提取文件夹名称的具体操作步骤。对Excel感兴趣的朋友可加 Excel学习交流群:284029260(www.itblw.com

      在网上看到有人用批处理命令提取文件夹名称。其实在excel中使用VBA代码也同样可以提取文件夹名称。

      比如需要将电脑E盘“论坛工作资料”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列,可以使用下面的代码。

      使用方法是:新建一个excel文档,按ALT+F11,打开VBE编辑器,单击插入——模块,将下面的代码复制到右边的代码编辑区,然后按工具栏中的“运行”按钮即可。

    Sub 提取文件夹名称()
    Dim fs As Object
    n = 1
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.getfolder("E:\论坛工作资料")
    For Each fd In f.subfolders
    Cells(n, 1) = fd.Name
    n = n + 1
    Next
    Set f = Nothing
    Set fs = Nothing
    End Sub

      下面是VBE编辑器中写入的提取文件夹名称相关的一个截图演示:

    提取文件夹名称

      举一反三,如果需要提取F盘下面文件夹名称,路径更改一下就OK。


    展开全文
  • Excel vba获取文件夹内文件名

    千次阅读 2019-10-05 00:50:21
    '获取文件夹中的所有文件列表 varFileList = fcnGetFileList(strFolder) If Not IsArray(varFileList) Then MsgBox "未找到文件", vbInformation Exit Sub End If For x = 0 To UBound(varFileList) Cells(x + 1,...

    来源:http://www.360doc.com/content/13/1225/16/1086327_340041443.shtml

     

    Sub test()
    Dim strFolder As String
    Dim varFileList As Variant
    Dim FSO As Object, myFile As Object
    Dim myResults As Variant
    Dim l As Long

    '显示打开文件夹对话框
    With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    If .SelectedItems.Count = 0 Then Exit Sub '未选择文件夹
    strFolder = .SelectedItems(1)
    End With
    '获取文件夹中的所有文件列表
    varFileList = fcnGetFileList(strFolder)
    If Not IsArray(varFileList) Then
    MsgBox "未找到文件", vbInformation
    Exit Sub
    End If

    For x = 0 To UBound(varFileList)
    Cells(x + 1, 1) = varFileList(x)
    Next x

    End Sub

    Private Function fcnGetFileList(ByVal strPath As String, Optional strFilter As
    String) As Variant


    ' 将文件列表放到数组
    Dim f As String
    Dim i As Integer
    Dim FileList() As String


    If strFilter = "" Then strFilter = "*.*"
    Select Case Right(strPath, 1)
    Case "\", "/"
    strPath = Left(strPath, Len(strPath) - 1)
    End Select

    ReDim Preserve FileList(0)
    f = Dir(strPath & "\" & strFilter)
    Do While Len(f) > 0
    ReDim Preserve FileList(i) As String
    FileList(i) = f
    i = i + 1
    f = Dir()
    Loop
    If FileList(0) <> Empty Then
    fcnGetFileList = FileList
    Else
    fcnGetFileList = False
    End If
    End Function

    转载于:https://www.cnblogs.com/panli-32/p/9169408.html

    展开全文
  • 如果需要对指定的文件夹进行操作,可以调用Excel内置的【文件夹选取器】对话框,对话框的返回值是用户选中的文件夹名,示例代码如下。 Sub SelectFolder() Dim objDialog As FileDialog'定义变量 Set objDialog ...

    如果需要对指定的文件夹进行操作,可以调用Excel内置的【文件夹选取器】对话框,对话框的返回值是用户选中的文件夹名,示例代码如下。

    Sub SelectFolder()
         Dim objDialog As FileDialog'定义变量
         Set objDialog = Application.FileDialog(msoFileDialogFolderPicker)
         With objDialog
             .Title = "浏览文件夹"'修改对话框标题,默认值是“浏览”
             If .Show = -1 Then
                 For Each vrtSelectedItem In .SelectedItems
                     MsgBox "The path is: " & vrtSelectedItem
                 Next vrtSelectedItem
             Else
             End If
         End With
         Set objDialog = Nothing
     End Sub

    第3行代码使用Application对象的FileDialog属性返回【文件夹选取器】对话框,并赋值给变量objDialog。

    FileDialog属性返回FileDialog对象,代表文件对话框,参数fileDialogType是用来确定返回的FileDialog对象类型的MsoFileDialogType常量。MsoFileDialogType常量值和说明如下表所示。

    名称说明
    msoFileDialogFilePicker3“文件选取器”对话框。允许用户选择一个或多个文件。用户选择的文件路径将捕获到  FileDialogSelectedItems 集合中。
    msoFileDialogFolderPicker4“文件夹选取器”对话框。允许用户选择一个路径。用户选择的路径将捕获到  FileDialogSelectedItems 集合中。
    msoFileDialogOpen1“打开”对话框。允许用户选择一个或多个可以在宿主应用程序中使用 Execute 方法打开的文件。
    msoFileDialogSaveAs2“另存为”对话框。允许用户选择一个文件,然后可以使用 Execute 方法将当前文件另存为该文件。

     

    FileDialog对象的Show方法显示文件对话框并返回一个Long类型的值,如果用户单击【打开】按钮或【另存为】按钮则返回值为-1,如果用户单击【取消】按钮或【关闭】按钮则返回值为0。

    FileDialog对象的SelectedItems属性返回FileDialogSelectedItems集合,该集合为用户所选中的文件夹路径。

    FileDialog对象的AllowMultiSelect属性设为True,允许用户从文件对话框中选择多个文件。

     


    微信公众号:VBA168

    淘宝店铺地址:https://item.taobao.com/item.htm?spm=a1z10.1-c-s.w4004-21233576391.4.1af0683dzrx3oU&id=584940166162

    关注微信公众号,每天及时接收Excel VBA经典示例讲解。

    淘宝店铺提供Excel定制服务。

    祝你工作和学习更轻松!

    展开全文
  • (1)首先,楼主先新建一个excel,名称楼主自己写,怎样都行,然后将其打开。 (2)打开后按住Alt再按F11,这样就会打开vba代码编辑器 (3)点菜单栏上的“插入”,选择“模块”,这样在左下角就会出现一个“模块1...

    (1)首先,楼主先新建一个excel,名称楼主自己写,怎样都行,然后将其打开。

    (2)打开后按住Alt再按F11,这样就会打开vba代码编辑器

    (3)点菜单栏上的“插入”,选择“模块”,这样在左下角就会出现一个“模块1”

    (4)双击“模块1”,右边就会出现“模块1”的编辑界面,将以下代码复制,并粘贴到这个界面中,按F5运行。

    1

    2

    3

    4

    5

    6

    7

    8

    9

    10

    11

    12

    13

    14

    15

    16

    17

    18

    19

    20

    21

    22

    23

    24

    25

    26

    27

    28

    29

    30

    31

    32

    33

    Sub 遍历文件夹()

    'Columns(1).Delete  

    On Error Resume Next

    Dim As String

    Dim file() As String

    Dim i, k, x

    x = 1

    i = 1: k = 1

    ReDim 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 + 1

    Loop

    For 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

        Loop

    Next

    End Sub

    (5)在出现的对话框中,将你要查找的文件的地址复制到对话框中,按确定,就完成了。

     

    注:这里用的是excel2007版,如果楼主用的是其他版本,有可能存在代码不兼容问题。

     

    图1.打开vba编辑器。

     

    图2.运行代码。

     

    图3.结果。

    展开全文
  • 通过excel文件,点击按钮通过资源管理器自动获取目标文件夹内的文件名,并进行修改
  • 开始参考了 VBA获取文件夹下所有文件和子文件目录的文件中的代码,按照此方式获取的结果有问题。 问题1 无法获取目录名中包含“.”的子目录 '-- 获得所有子目录 Do Until i > k f = Dir(file(i), vbDirectory)...
  • Sub getfoldername() '获取指定路径下的文件夹名称 Dim fs As Object n = 1 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.getfolder("C:\Lx\all") For Each fd In f.subfolders Cells(n, ...
  • Sub tiqu() '提取文件夹下所有文件名[张志晨] '路径由浏览文件夹根据需要指定。这样灵活! Dim strFileName As String'文件名
  • 将某文件夹下子文件夹名称导入到excel表中,语言是VBA
  • 一、提取单层文件内的文件名 ... '获取用户选择文件夹的路径 With Application.FileDialog(msoFileDialogFolderPicker) '选择文件夹 If .Show Then p = .SelectedItems(1) '选择的文件路径赋值变量P Else
  • 用于获取所有指定目录下所有文件名,用vba写的小access程序
  • vba 遍历文件夹(利用Dir函数)

    千次阅读 2020-05-18 15:51:57
    Dim path As String '外部文件夹路径 path = "F:\vba" '当不确定路径的最后一位是不是"\"时,可以用...'遍历文件夹获取以".xlsx"结尾的文件 Dim count As Integer Dim name As String Dim file As String c.
  • 本次所讲的遍历获取文件夹下所有文件,其实是我的《每月自动汇总考勤数据》案例中的其中一个知识点,近期我将会集中将本案例中所有应用到的知识点逐一的写出来,最后汇总成一个真正可用的成品。 本案例中首要的...
  • 文件夹中所有文件的名称,存在在excel中程序案例:程序案例:Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseApplication.DisplayAlerts = Falsetemp = ThisWorkbook.Path '设定路径object...
  • excel vba 自动读取文件名与文件夹
  • VBA 遍历所有文件夹内容

    千次阅读 2020-08-28 23:14:56
    今天讲讲VBA遍历所有文件夹,之前提到过,感觉这个很是实用,以为如果要批量导入的话,能遍历操作效率杠杠的 一、VBA遍历单个文件夹 下面的所有内容之前已经学过,再把代码贴一下,主要是通过Dir实现: ...
  • Excel VBA获取选择文件的文件名称

    千次阅读 2020-10-20 10:50:20
    FullName = aFile(0) For i = 1 To (UBound(aFile) - 1) '“UBound(aFile) - 1”即不包括数组的最后一个元素 FullName = FullName & "\" & aFile(i) '最终获取完整路径 Next Else End End If MsgBox "完整路径是:" ...
  • VBA自动获取二级文件夹目录

    千次阅读 2018-10-10 09:52:53
    Sub FindFileName() ThisWorkbook.Worksheets(1).UsedRange.Delete '打开文件... Dim DirectPath As String '定义父文件夹路径 Dim ChildDirectPath As String '定义子文件夹路径 DirectPath = ThisWorkbook.Pat...
  • 通览文件夹 网上看了很多,非计算机专业出身的我看着实在头疼 最后还是自己抽了一个简单的程序出来,希望对大家有帮助 Sub 遍历文件夹() file = InputBox("输入需要遍历的文件夹路径:") '这里会显示一个...
  • 获取文件夹下文件名,使用VBA处理难度并不大,但是获取全部(包括子文件夹)就难倒了很多新手!今天我们就使用Python和VBA一起来看看如何获取全部文件名!VBA 获取全部文件名(含子文件夹)子文件夹可能还有子文件夹,...
  • 比du如将D:\ABC文件夹内的所有文件zhi显dao示到zhuanA列,代码如下: Sub遍历所有文件() DimFn$,N% Fn=Dir("D:\ABC\*.*") WhileFn<>"" N=N+1 Range("A"&N)=Fn Fn=Dir Wend EndSub 上述方法对一层目录...
  • 既然FSO对象是操作文件(夹)神器,那么今天我们就用VBA编程来实现将指定文件夹内的所有文件名提取到Excel并生成超链接。具体实现效果如下:这个例程中,我们用到了FSO对象的GetFolder方法。具体实现代码如下图所示:S...
  • VBA代码 Sub addHyper() Set fso = CreateObject("Scripting.FileSystemObject") folder_location = "E:\CPA会计-张敬富\讲义\" Set Files = fso.GetFolder(folder_location).Files i = 0 For Each file In Files i...
  • 获取当前文件夹名称(CurDir 函数)当你使用文件时,经常会需要知道当前文件夹名称,你使用CurDir函数轻易地获取该信息:CurDir([drive])Drive是一可选参数,如果你忽略它,VBA将使用当前驱动(drive)。CurDir函数...
  • 学习资源:《Excel VBA从入门到进阶》第48集 by兰色幻想忘了之前老师有没有讲过Dir函数了,还是写一下吧,再开始正文吧:Dir函数:返回一个 String,它表示与指定路径下的文件、目录或文件夹名称。语法:Dir ...
  • VBA遍历指定文件夹的所有文件(包括子目录)

    万次阅读 多人点赞 2018-12-29 13:53:14
    VBA遍历指定文件夹的所有文件(包括子目录) 1.添加引用:Microsoft Scripting Runtime
  • Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址 手动选择 Set shell = Nothing If filePath Is Nothing Then '检测是否获得有效路径,如取消直接跳出程序 Exit ...
  • 这几天帮客户做个系统,需要获到系统环境变量及一些特殊文件夹。收集和研究了各种代码。记录一下,以免自己忘记,同时也分享一下给大家,避免大家遇到同样问题时,再去花费大量时间。 一、我个人整理出来的一些...
  • 依照下面的MkDir语句语法,你可以创建一个新文件夹: MkDir Path Path明确你要创建的新文件夹名称。...3. 获取当前文件夹名称: ?CurDir 结果如下: 使用RmDir函数来删除不需要的文件夹。该函数的语法如下:
  • '读取当前文件夹下txt文件的文件名,写入sheet1的第一列 Dim r As Long Dim Fso As Object Dim myfile As Object Dim mySheet As Worksheet Dim txtFolder As Object r = 1 Set txtFolder = CreateObject("S...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,619
精华内容 647
关键字:

vba获取文件夹名称