精华内容
下载资源
问答
  • vba怎么新建文件夹 我经常能够在用户的硬盘驱动器或网络驱动器上创建文件夹来存储文件。但是,问题之一是,如果父文件夹还不存在,则内置函数MkDir的标准将失败。 因此,我做了一个自定义函数,该函数将循环遍历并...

    vba怎么新建文件夹

    我经常能够在用户的硬盘驱动器或网络驱动器上创建文件夹来存储文件。但是,问题之一是,如果父文件夹还不存在,则内置函数MkDir的标准将失败。 因此,我做了一个自定义函数,该函数将循环遍历并根据需要创建目录。 如果创建成功,它将返回True。 我确信还有改进的空间,所以如果有人要添加一些内容,请继续。

    用法示例:

    If MakeDir("C:\MyAppWorkfolder\2012\January") Then
        'Proceed to export file
    End If
    这是代码:
    Public Function MakeDir(ByVal strPath As String) As Boolean
    '****************************************************************************************
    '* Function: MakeDir
    '*
    '* Author:   TheSmileyCoder
    '* Version:  1.0, Dated: 2012-03-01
    '* Input:    Full path to directory desired. For example: "C:\Program Files\MyTool\
    '*
    '* Output:   True/False indicating whether or not creation was succesfull.
    '**************************************************************************************** 
    '*  Known issues
    '   * No error handling for cases such as network drives,
    '     with restricted permissions to create folders.
    '   * No input validation  
    On Error GoTo err_Handler 
       'Check if rightmost char is a \
          If Right(strPath, 1) = "\" Then
             'Strip it
             strPath = Left(strPath, Len(strPath) - 1)
          End If 
       'Check if each individual directory exists, and if not, create it
          Dim strSplitPath() As String
          strSplitPath = Split(strPath, "\")
          Dim intI As Integer
          Dim strCombined As String 
          'Loop through, creating each directory if needed
             For intI = 0 To UBound(strSplitPath)
                If intI <> 0 Then
                   strCombined = strCombined & "\"
                End If
                strCombined = strCombined & strSplitPath(intI)
                If Dir(strCombined, vbDirectory) = "" Then
                   MkDir strCombined
                End If
             Next 
       'Code ran to end without errors, so creation was succesfull
          MakeDir = True
          Exit Function 
    '**************************************
    '*      Error Handler
    '**************************************
    err_Handler:
       MakeDir = False
       MsgBox "Error " & Err.Number & " occured." & vbNewLine & Err.Description 
    End Function

    翻译自: https://bytes.com/topic/access/insights/933852-create-folder-using-vba

    vba怎么新建文件夹

    展开全文
  • EXCEL-VBA复制文件夹

    2018-01-11 17:04:13
    VBA编写的复制文件夹工具
  • VBA 浏览文件夹对话框调用实现代码。大家可以根据需要选择。
  • 使用VBA创建文件夹

    2020-05-23 14:50:52
    我经常可以在用户的​​硬盘驱动器或网络驱动器上创建文件夹来存储文件。但是,问题之一是,如果父文件夹还不存在,则内置函数MkDir的标准将失败。 因此,我做了一个自定义函数,该函数将循环遍历并根据需要创建目录...

    我经常能够在用户的硬盘驱动器或网络驱动器上创建文件夹来存储文件。但是,问题之一是,如果父文件夹还不存在,则内置函数MkDir的标准将失败。 因此,我做了一个自定义函数,该函数将循环遍历并根据需要创建目录。 如果创建成功,它将返回True。 我确信还有改进的空间,因此,如果有人要添加一些内容,请继续。

    用法示例:

    If MakeDir("C:\MyAppWorkfolder\2012\January") Then
        'Proceed to export file
    End If
    这是代码:
    Public Function MakeDir(ByVal strPath As String) As Boolean
    '****************************************************************************************
    '* Function: MakeDir
    '*
    '* Author:   TheSmileyCoder
    '* Version:  1.0, Dated: 2012-03-01
    '* Input:    Full path to directory desired. For example: "C:\Program Files\MyTool\
    '*
    '* Output:   True/False indicating whether or not creation was succesfull.
    '**************************************************************************************** 
    '*  Known issues
    '   * No error handling for cases such as network drives,
    '     with restricted permissions to create folders.
    '   * No input validation  
    On Error GoTo err_Handler 
       'Check if rightmost char is a \
          If Right(strPath, 1) = "\" Then
             'Strip it
             strPath = Left(strPath, Len(strPath) - 1)
          End If 
       'Check if each individual directory exists, and if not, create it
          Dim strSplitPath() As String
          strSplitPath = Split(strPath, "\")
          Dim intI As Integer
          Dim strCombined As String 
          'Loop through, creating each directory if needed
             For intI = 0 To UBound(strSplitPath)
                If intI <> 0 Then
                   strCombined = strCombined & "\"
                End If
                strCombined = strCombined & strSplitPath(intI)
                If Dir(strCombined, vbDirectory) = "" Then
                   MkDir strCombined
                End If
             Next 
       'Code ran to end without errors, so creation was succesfull
          MakeDir = True
          Exit Function 
    '**************************************
    '*      Error Handler
    '**************************************
    err_Handler:
       MakeDir = False
       MsgBox "Error " & Err.Number & " occured." & vbNewLine & Err.Description 
    End Function

    From: https://bytes.com/topic/access/insights/933852-create-folder-using-vba

    展开全文
  • (2)打开后按住Alt再按F11,这样就会打开vba代码编辑器 (3)点菜单栏上的“插入”,选择“模块”,这样在左下角就会出现一个“模块1” (4)双击“模块1”,右边就会出现“模块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 新建文件夹

    2019-10-02 10:20:01
    检测EXCEL文件所在目录下,是否以前当工作表命名的文件夹,如果没有提示创建。 Sub mkdir() spatch = Excel.ThisWorkbook.Path newmd = spatch & "\" & ActiveSheet.Name t = Dir(newmd, vbDirectory)...

     检测EXCEL文件所在目录下,是否以前当工作表命名的文件夹,如果没有提示创建。

    Sub mkdir()
    spatch = Excel.ThisWorkbook.Path
    newmd = spatch & "\" & ActiveSheet.Name
    t = Dir(newmd, vbDirectory)
    If t = "" Then i = MsgBox("文件夹不存在是否创建并写入?", vbYesNo + vbQuestion, "存盘提示")
    If i = 6 Then MkDir newmd Else Exit Sub
    End Sub

     

    转载于:https://www.cnblogs.com/aliensky/p/9623533.html

    展开全文
  • VBA读取文件夹下所有文件的三种方法,能够读取到子文件夹下所有的文件。
  • 通过VBA程序批量修改文件夹名称,需要列出旧文件夹、新文件夹
  • VBA文件夹,直接解压后,放到%Common Files%\microsoft shared下, 再通过win+r调出CMD窗口,输入regedit后弹出注册表编辑器, 找到HKEY_CLASSES_ROOT\TypeLib\{0002E157-0000-0000-C000-000000000046}\5.3\0\win32...
  • Sub test2() Dim Fso As Object, oFile As Object, downloadpathfile$, filepath$, sFolder$, t$ downloadpathfile = [B5].Value & "\" t = [B3].Value Set Fso = CreateObject("Scripting.File...
  • 如何用VBA判断文件夹是否存在.doc如何用VBA判断文件夹是否存在.doc
  • Excel vba获取文件夹内文件名

    千次阅读 2019-10-05 00:50:21
    If .SelectedItems.Count = 0 Then Exit Sub '未选择文件夹 strFolder = .SelectedItems(1) End With '获取文件夹中的所有文件列表 varFileList = fcnGetFileList(strFolder) If Not IsArray(varFileList) Then ...
  • '该方法适用于三种情况(格式): 1、D:\vba 2、D:\vba\ 3、D:\vba\1.txt '只要上述三种情况有一种存在,那么方法返回true Function IsFolderOrFileExists(ByVal strFileName As String) As Boolean If Dir...
  • 自己学习VBA编程时,利用excel内VBA宏编写的简单命令,涉及一些基础的操作,亲测可用,初学者可以借鉴,也能利用其解决一些简单的办公问题。
  • '如果路径path是D:\vba\1.txt,程序会认为路径下不存在该文件夹,则创建新的文件夹, '而如果1.txt这个文本文件在该目录下存在,报错,errorNumber>0,程序结束。 If Not CreateObject("Scripting....
  • vba 遍历文件夹(利用Dir函数)

    千次阅读 2020-05-18 15:51:57
    path = "F:\vba" '当不确定路径的最后一位是不是"\"时,可以用如下代码判断: If Right(path , 1) <> "\" Then path = path & "\" End If '遍历文件夹,获取以".xlsx"结尾的文件 Dim count As ...
  • AutoCAD VBA选择文件夹的代码

    千次阅读 2020-12-22 18:27:33
    '将此份文档另存为纯文本格式文件MdFileBrw.bas,'并导入至vba的模块中即可在其他模块调用当中的函数。'其中GetFolder函数可以选择文件夹并返回选择的路径(按取消则返回空字符串),'ListFilesFSO过程可以根据传入的...
  • 只会提取到文件,如果是文件夹自动忽略。 Sub FileDir() Dim p$, f$, k& '获取用户选择文件夹的路径 With Application.FileDialog(msoFileDialogFolderPicker) '选择文件夹 If .Show Then p = ....
  • Sub output() Application.ScreenUpdating = False Dim Mydir As String Dim i As Integer i = 2 Mydir = ThisWorkbook.Path & “” ChDrive Left(Mydir, 1) ChDir Mydir '文件名 Match = DirKaTeX parse error:...
  • 使用VBA提取文件夹内所有word文档中的表格数据
  • 将某文件夹下子文件夹的名称导入到excel表中,语言是VBA
  • VBA遍历文件夹的三种方法(转载)

    万次阅读 2018-02-01 12:45:37
    ">VBA遍历文件夹常用有三种方法,这三种方法中,filesearch不适合2007和2010版本,而且速度比较慢,递归法速度也慢。只有用DIR加循环的方法,速度飞快。下面是三种方法的代码:     1、filesearch法    Sub...
  • Sub tiqu() '提取文件夹下所有文件名[张志晨] '路径由浏览文件夹根据需要指定。这样灵活! Dim strFileName As String'文件名
  • 前景提要之前我们在上一系列也是学了一些关于VBA创建文件夹的相关操作,我们是通过dir()方法来实现的,如果是简单的文件夹的创建的话,我们完全可以通过这个方法,但是在进行VBA代码执行的过程中,如果涉及文件夹的...
  • 使用vba 批量合并文件夹下的所有xls、xlsx文件
  • Excel VBA工具 可以指定条件, 列出某个文件夹下所有子文件夹和文件
  • Sub 遍历文件夹下所有文件() ' ' ' Dim MyFile As String Dim Arr(100) As String Dim count As Integer MyFile = Dir("C:\Users\60930\Desktop\孔隙体积压缩系数-已完成67\孔隙体积数据2020.12.20-51块\" &...
  • vba 电子表格 宏代码 编程 用VBA代码实现遍历某文件夹下所有*.xls*文件,有两种实现方法
  • VBA 遍历所有文件夹内容

    千次阅读 2020-08-28 23:14:56
    今天讲讲VBA遍历所有文件夹,之前提到过,感觉这个很是实用,以为如果要批量导入的话,能遍历操作效率杠杠的 一、VBA遍历单个文件夹 下面的所有内容之前已经学过,再把代码贴一下,主要是通过Dir实现: ...
  • VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。用Microsoft Office提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogTypeMsoFileDialogType类型,...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 6,560
精华内容 2,624
关键字:

vba如何建立文件夹