精华内容
下载资源
问答
  • VBA删除某些文件夹下的所有文件

    千次阅读 2020-11-29 16:04:58
    '这个vba代码是后处理的代码,加载阶段未接触上进行修正 Dim i, jj, kk As Integer Dim wb As Workbook For i = 1 To 10 str = Dir("C:\Users\DELL\Desktop\保存\*.*") 'str就是带有.xlsx的文件名 If str = "" T...

    ‘写完就发现这个代码不用写得这么重复的

    Sub shanchuwenjian()
     Dim str As String
     Dim str2 As String
     '这个vba代码是后处理的代码,加载阶段未接触上进行修正
     Dim i, jj, kk As Integer
      Dim wb As Workbook
      
      For i = 1 To 10
      str = Dir("C:\Users\DELL\Desktop\保存\*.*") 'str就是带有.xlsx的文件名
      If str = "" Then
       Exit For
      End If
      Kill "C:\Users\DELL\Desktop\保存\" & str
      str = Dir
     If str = "" Then
       Exit For
      End If
      Next
       
       
       For jj = 1 To 10
      
      str = Dir("C:\Users\DELL\Desktop\二次后处理\*.*") 'str就是带有.xlsx的文件名
       If str = "" Then
       Exit For
      End If
      Kill "C:\Users\DELL\Desktop\二次后处理\" & str
      str = Dir
     If str = "" Then
       Exit For
      End If
      Next
       
       
       For kk = 1 To 10
     
      str = Dir("C:\Users\DELL\Desktop\测试\*.*") 'str就是带有.xlsx的文件名
       If str = "" Then
       Exit For
      End If
      Kill "C:\Users\DELL\Desktop\测试\" & str
      str = Dir
     If str = "" Then
       Exit For
      End If
    Next
    End Sub

    展开全文
  • Sub 所有文件夹() Dim fs As New FileSystemObject, arr(), i, j, k Dim fd, subfd As Folder Dim files As file 'Range(“A:A”).Clear Set fp = Application.FileDialog(msoFileDialogFolderPicker) fp.Show Set ...

    整体思路是:
    1.将需要查找所有文件的文件夹地址赋给数组,成为arr(1)
    2.使用folder.subfolders属性将子文件夹继续赋给数组,成为arr(i)
    3.使用folder.files属性访问所有文件夹内的文件
    核心算法就是,将子文件夹地址不断加入数组,然后遍历数组中的每一个地址访问文件

    首先需要添加引用:Microsoft Scripting runtime
    在这里插入图片描述
    添加用在这里插入图片描述

    Sub 所有文件夹()
    Dim fs As New FileSystemObject, arr(), i, j, k
    Dim fd, subfd As Folder
    Dim files As file
    Set fp = Application.FileDialog(msoFileDialogFolderPicker) '选择需要查询文件的文件夹
    fp.Show
    Set paths = fp.SelectedItems
    ReDim arr(1)
    arr(0) = paths(1) '文件夹路径赋给数组
    Application.ScreenUpdating = False
    Do Until i > k
        Set fd = fs.GetFolder(arr(i))
        For Each files In fd.files
            j = j + 1
            Range("a" & j + 1).Hyperlinks.Add Anchor:=Range("a" & j + 1), Address:=files.path, TextToDisplay:=files.Name
            Range("b" & j + 1) = files.DateLastModified
            Range("C" & j + 1) = files.Size \ 1024 & "KB"
        Next
        For Each subfd In fd.SubFolders
            k = k + 1
            ReDim Preserve arr(k + 1)
            arr(k) = subfd  ’将子文件夹赋给数组
        Next
        i = i + 1
    Loop
    MsgBox ("一共有" & j & "个文件," & k & "个文件夹")
    Application.ScreenUpdating = True
    End Sub
    
    
    
    
    
    展开全文
  • VBA遍历指定文件夹的所有文件(包括子目录)

    万次阅读 多人点赞 2018-12-29 13:53:14
    VBA遍历指定文件夹的所有文件(包括子目录) 1.添加引用:Microsoft Scripting Runtime

    VBA遍历指定文件夹的所有文件(包括子目录)

    1.添加引用:Microsoft Scripting Runtime

    在这里插入图片描述

    2.定义一个遍历文件的过程,过程需要传递一个文件夹变量

    '遍历文件的过程,并填充到工作表
    Sub LookUpAllFiles(fld As Folder)
        Dim fil As File, outFld As Folder    '定义一个文件夹和文件变量
        Set subfiles = fld.Files()     '获取文件夹下所有文件
        Set SubFolders = fld.SubFolders      '获取文件夹下所有文件夹
        For Each fil In fld.Files     '遍历文件
            n = n + 1
            Range("a" & n).Value = fil.Name     '把文件名填充到数据表
        Next
        For Each outFld In SubFolders    '遍历文件夹
            LookUpAllFiles outFld      '调用函数自身
        Next
    End Sub
    

    这里有一个公共变量,需要在函数外定义

    Private n As Integer
    

    4.然后,显示一个输入对话框,输入文件名,就能遍历所有文件了

    Sub demo()
        Dim fso As New FileSystemObject  '定义一个文件系统对象
        Dim fld As Folder, sr As String
        n = 0
        sr = InputBox("请输入文件路径")     '显示一个文本框输入文件名
        If fso.FolderExists(sr) Then        '判断文件是否存在
            Range("a:a").ClearContents
            Set fld = fso.GetFolder(sr)
            LookUpAllFiles fld         '调用函数
        Else
            MsgBox "文件夹不存在"
        End If
    End Sub
    

    效果:
    在这里插入图片描述

    在这里插入图片描述

    展开全文
  • 依照下面的MkDir语句语法,你可以创建一个新文件夹: MkDir Path Path明确你要创建的新文件夹名称。如果你没有写驱动器的名称的话,VB就将在当前的驱动上...使用RmDir函数来删除不需要的文件夹。该函数的语法如下:

    依照下面的MkDir语句语法,你可以创建一个新文件夹:
    MkDir Path

    Path明确你要创建的新文件夹名称。如果你没有写驱动器的名称的话,VB就将在当前的驱动上创建新文件夹。现在,我们来看几个例子:

    1. 在立即窗口里输入指令,在C盘上创建一个叫“try”的文件夹:

    MkDir "C:\try"

    2. 将缺省文件夹更改为"C:\try":

    ChDir"C:\try"

    3. 获取当前文件夹名称:

    ?CurDir

    结果如下:

    使用RmDir函数来删除不需要的文件夹。该函数的语法如下:
    RmDir Path

    Path明确你要删除的文件夹名称。Path可以包含驱动名称,如果你忽略了驱动名称,那么VB就会试图删除当前驱动下的相同名称的文件夹,如果存在的话;否则,VB将显示错误信息:“路径未找到”

    4. 删除刚才创建的文件夹C:\try:

    RmDir "C:\try"

    注意:有的C盘修改受限会产生相应的路径错误。

     

    技巧:RmDir移除空文件夹

    如果文件夹里有东西,你不可以删除它(使用RmDir)。你应该先用Kill语句删除这些文件

     

    展开全文
  • 删除指定文件夹指定后缀名文件,如果对此软件有什么意见,可以发邮件至softwt@126.com
  • 文件夹内已经汇总了几十上百篇Doc/Docx文档,可能是各部门的总结,可能是工会入会申请,或者其它半格式化(毕竟不是表格)内容,如果没有VBA帮忙,你就要挨个打开,之后copy-n-paste里面的特定内容到你的Excel表里;...
  • VBA 遍历所有文件夹内容

    千次阅读 2020-08-28 23:14:56
    今天讲讲VBA遍历所有文件夹,之前提到过,感觉这个很是实用,以为如果要批量导入的话,能遍历操作效率杠杠的 一、VBA遍历单个文件夹 下面的所有内容之前已经学过,再把代码贴一下,主要是通过Dir实现: ...
  • 这个小程序的前提是指定文件夹里装的全部是图片格式的文件 步骤1: 添加一个filesystemobject引用,工具--->引用---->microsoft scripting runtime 步骤2: 添加模块,并添加以下代码 Option ...
  • 在Excel表中通过VBA编码,制做了一个小程序,功能是"修改指定文件夹包括子文件中文件后缀名".说明:Excel表的sheel1列A中存放了后缀名,不能删除。否则窗口中的下拉框没有值。该程序的特点是用VBA调用外部批处理代码...
  • 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 语法 Dir[(pathname[, attributes])] 第一个参数即是文件的地址,第一次引用的时候要标注...
  • 今日表格中有很多图片,老板要我把图片全部保存到一个文件夹下。这点小事岂能难倒我? 于是我打开Excel表格,拉到了最后面 我勒个擦,有一千多个。没事,我还有VBA秘籍!具体情况如图所示 于是我默默打开了VBE编辑...
  • 汇总指定文件夹内所有工作簿,自动删除空行
  • 时隔N年再次拿起VBA-VBA统计文件夹中的excel表格各sheet页行数如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少...
  • 本工具可以一次性删除同一文件夹下(与本程序所在同一文件夹)所有同一格式的CSV文件多个指定列,效率还可以。是一个不错的CSV格式文件整理工具。
  • 初学VBA 做了一个小工具 供大家参考
  • 学习资源:《Excel VBA从入门到进阶》第48集 by兰色幻想忘了之前老师有没有讲过Dir函数了,还是写一下吧,再开始正文吧:Dir函数:返回一个 String,它表示与指定路径下的文件、目录或文件夹的名称。语法:Dir ...
  • vba上传文件到ftp服务器指定目录 +脚本形式 文章目录1. 测试版本无校验:2. 测试版本有检验3. 文件不存在校验版本4. 文件不存在校验+必填项校验版本 1. 测试版本无校验: Sub 按钮1_Click() Dim i, str1, str2, ...
  • 删除指定文件夹下的所有文件外部链接。 改了两天,终于成功了! Sub BreakLinkANDDelNames() Dim aLinks As Variant Dim j, I As Integer Dim MyName, Dic, Did, T, TT, MyFileName On Error Resume Next ...
  • 断开指定文件夹下所有excel的外部链接
  • Sub 遍历一个文件夹里的excel文件() Rem 用bat 怎么写? 'cd C:\VBA 'dir >1.txt '但是这样并没有把文件名给单独列出来? Rem 用python 怎么写? Dim a As Object Dim path path = ...
  • 'dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹,如果结果为"",则表示不存在。 Sub w1() If Dir(ThisWorkbook.path & "\2011年报表2", vbDirectory) = &...
  • 要求:将文件夹1-1.xlsx、文件夹1-1.xlsx移动到文件夹1,依次类推代码及说明:Sub 移动文件()Dim MyFold As Object, MyFile As ObjectDim ipath As String, TargetFolder As String'获取当前文件夹的路径ipath = ...
  • '.Cells.ClearContents '删除第一个表的内容 Open Filename(k) For Input As #1 ' 以只读的方式打开文件,参考open方法的帮助 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并...
  • 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 语法 Dir[(pathname[, attributes])] 第一个参数即是文件的地址,第一次引用的时候要标注,第二次...
  • * 循环删除指定文件夹下的(“._”)开头的多余文件 * * @author guoqk * @2021年1月8日 */ public class DeleteFile { //文件夹 private static final String BASEPATH = "D:\\\\test\\\\"; //以“._”...
  • 如图:根据A,B列的数据 得到C列(需要去掉前后空格),然后在文件夹中查找 “C列“ 中的文件并删除 Sub 删除目标文件() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim root...
  • '借助dir和do循环,压缩指定文件夹中的所有文件 Sub RarFile4() '每个文件单独压缩 Dim Rarexe As String Dim myRAR As String Dim Myfile As String Dim FileString As String Dim Result As Long Dim p As ...
  • 如何用VBA批量删除文件

    千次阅读 2018-06-09 23:36:07
    Sub 批量删除文件() mypath = ThisWorkbook.Path f = Dir(mypath & "\*.xlsx") '查找当前路径下符合条件的文件名 While f <> "" '一直到F找不到合条件的就结束循环 ...
  • 可以根据文件类型批量删除指定类型的文件,可以清理项目下不必要的文件,如:BIN,OBJ,SVN等等的文件
  • If promo = "" Then MsgBox "未找到推广费" Exit Sub Else End If HROW9 = Sheets("费用").[H2].CurrentRegion.Rows.Count HROW10 = Sheets("费用").[W2].CurrentRegion.Rows.Count '删除原有数据 Sheets("费用")....

空空如也

空空如也

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

vba删除指定文件夹