精华内容
下载资源
问答
  • VBA实现批量删除指定文件夹下工作表表头,如图所示,删除前与删除后效果。 但在运行时出错 (文件夹内工作薄模拟了上报的数据,只能保证结构相同,数据质量得不到保证,要求在这种情况下运行),请各位高手帮我看看...

    用VBA实现批量删除指定文件夹下工作表表头,如图所示,删除前与删除后效果。

    但在运行时出错

    (文件夹内工作薄模拟了上报的数据,只能保证结构相同,数据质量得不到保证,要求在这种情况下运行),请各位高手帮我看看代码错在哪儿?

    补充内容(2015-7-30 15:32:23):

    Sub deleteheadline()

    Dim Fso As Object, Folder As Object

    Dim i&, n&, a, b, Wb As Workbook, p$

    With Application.FileDialog(msoFileDialogFolderPicker)

    .InitialFileName = ThisWorkbook.Path & "\"

    If .Show = False Then Exit Sub

    p = .SelectedItems(1)

    End With

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    Set Fso = CreateObject("Scripting.FileSystemObject")

    With ThisWorkbook

    For Each File In Fso.GetFolder(p).Files

    If File.Name Like "*.xls" Then

    n = n + 1

    Set Wb = Workbooks.Open(File)

    Application.DisplayAlerts = False

    If ThisWorkbook.MultiUserEditing Then

    ThisWorkbook.UnprotectSharing ("")

    End If

    Application.DisplayAlerts = True

    Wb.Unprotect

    Wb.Sheets("基本情况(填表)").Unprotect

    Wb.Sheets("基本情况(填表)").Rows("1:4").delete

    Wb.Close False

    End If

    Next

    End With

    Set Fso = Nothing

    Application.ScreenUpdating = True

    MsgBox "表头已删除!"

    End Sub

    补充内容(2015-7-30 15:33:13):

    展开全文
  • 我们今天分享的内容是按指定名称和位置批量将图片插入到Excel工作表中……这个问题后台提问的朋友太多了,赶紧分享了事。看个动画先:代码如下:Sub InsertPic()'ExcelHome VBA编程学习与实践 by:看见星光 Dim Arr, ...

    我们今天分享的内容是按指定名称和位置批量将图片插入到Excel工作表中……这个问题后台提问的朋友太多了,赶紧分享了事。

    看个动画先:

    7cece0d8af6891ed49d8b48a1e4a74a3.gif

    代码如下:

    Sub InsertPic()

        'ExcelHome VBA编程学习与实践 by:看见星光

        Dim Arr, i&, k&, n&, pd&

        Dim PicName$, PicPath$, FdPath$, shp As Shape

        Dim Rng As Range, Cll As Range, Rg As Range, book$

        'On Error Resume Next

        '用户选择图片所在的文件夹

        With Application.FileDialog(msoFileDialogFolderPicker)

            .AllowMultiSelect = False '不允许多选

           If .Show Then FdPath = .SelectedItems(1) Else: Exit Sub

        End With

        If Right(FdPath, 1) <> "\" Then FdPath = FdPath & "\"

        Set Rng = Application.InputBox("请选择图片名称所在的单元格区域", Type:=8)

        '用户选择需要插入图片的名称所在单元格范围

        Set Rng = Intersect(Rng.Parent.UsedRange, Rng)

        'intersect语句避免用户选择整列单元格,造成无谓运算的情况

        If Rng Is Nothing Then MsgBox "选择的单元格范围不存在数据!": Exit Sub

        book = InputBox("请输入图片偏移的位置,例如上1、下1、左1、右1", , "右1")

        '用户输入图片相对单元格的偏移位置。

        If Len(book) = 0 Then Exit Sub

        x = Left(book, 1) '偏移的方向

        If InStr("上下左右", x) = 0 Then MsgBox "你未输入偏移方位。": Exit Sub

        y = Val(Mid(book, 2)) '偏移的尺寸

        Select Case x

            Case "上"

            Set Rg = Rng.Offset(-y, 0)

            Case "下"

            Set Rg = Rng.Offset(y, 0)

            Case "左"

            Set Rg = Rng.Offset(0, -y)

            Case "右"

            Set Rg = Rng.Offset(0, y)

        End Select

        Application.ScreenUpdating = False

        Rng.Parent.Select

        For Each shp In ActiveSheet.Shapes '如果旧图片存放在目标图片存放范围则删除

            If Not Intersect(Rg, shp.TopLeftCell) Is Nothing Then shp.Delete

        Next

        x = Rg.Row - Rng.Row: y = Rg.Column - Rng.Column

        '偏移的坐标

        Arr = Array(".jpg", ".jpeg", ".bmp", ".png", ".gif")

        '用数组变量记录五种文件格式

        For Each Cll In Rng

        '遍历选择区域的每一个单元格

            PicName = Cll.Text '图片名称

            If Len(PicName) Then '如果单元格存在值

                PicPath = FdPath & PicName '图片路径

                pd = 0 'pd变量标记是否找到相关图片

                For i = 0 To UBound(Arr)

                '由于不确定用户的图片格式,因此遍历图片格式

                    If Len(Dir(PicPath & Arr(i))) Then

                    '如果存在相关文件

                        ActiveSheet.Pictures.Insert(PicPath & Arr(i)).Select

                        '插入图片并选中

                        With Selection

                            .ShapeRange.LockAspectRatio = msoFalse

                            '撤销锁定纵横比

                            .Top = Cll.Offset(x, y).Top + 5

                            .Left = Cll.Offset(x, y).Left + 5

                            .Height = Cll.Offset(x, y).Height - 10 '图片高度

                            .Width = Cll.Offset(x, y).Width - 10 '图片宽度

                        End With

                        pd = 1 '标记找到结果

                        n = n + 1 '累加找到结果的个数

                        [a1].Select: Exit For '找到结果后就可以退出文件格式循环

                    End If

                Next

                If pd = 0 Then k = k + 1 '如果没找到图片累加个数

            End If

        Next

        MsgBox "共处理成功" & n & "个图片,另有" & k & "个非空单元格未找到对应的图片。"

        Application.ScreenUpdating = True

    End Sub

    代码已有注释,这儿就再说明一下运行过程。

    首先,会让用户选择存放图片的文件夹。注意是选择文件夹,不是选择图片;选择文件夹后,看不到文件夹内的图片是正常现象。

    64ae398aafb8bded10a4f59ece9821e3.png

    然后,选择图片名称存放的单元格区域,可以选择整列、多列、整行或多行,比如示例动画中的B:D列,2:2行等。。

    9884ff48b339b00915f4c07a00c9e1e4.png

    最后,设置图片相对于图片名称所在的单元格便宜的位置;比如图片名称在B列,图片放在C列,那就是向右偏移1列,即右1。上下左右代表了方向,数字代表偏移的量。

    10d5fe5dc927231a512f23feebb0d8f1.png

    代码继续运行,先删除存放于放置图片单元格范围的原图片图形(如何用代码删除指定位置的图形图片?这个问题也不要在后台提问了),然后遍历图片名称,根据偏移位置插入新图片。

    代码运行结束后会告之用户一共成功插入了多少张图片,以及失败了多少张;有朋友说找不到图片的单元格能否填充颜色作提醒,我想想觉得没必要啊,就没做……不要说我懒,认真脸。

    1f64e54027d63c72da53f7539c3dede8.png

    小贴士:

    1,该段小代码支持一下图片格式:

    ".jpg", ".jpeg", ".bmp", ".png", ".gif"

    2,图片的纵横比是未锁定的,如需锁定,可以注释掉下句代码:

    .ShapeRange.LockAspectRatio = msoFalse

    3,图片的行高和列宽是由放置图片的单元格行高和列宽决定的。当然,您也可以把代码稍微修改,设置固定的图片行高和列宽,并由图片的行高和列宽决定单元格的大小。

    4,图片的名称必须和指定单元格范围内的名称一致,如果需要模糊匹配,使用DIR函数搭配通配符的方式即可。

    5,还有什么……想不起来了,就先酱紫吧,挥手致安~

    嗯,以下是示例文件~.

    https://pan.baidu.com/s/1ClgLjzXe0K9WOIPbxDPDhg#list/path=%2F

    图文作者:看见星光

    6601e0d885a93c604bbe7334ac5e7b2e.png

    ExcelHome云课堂,我们的职场加油站

    展开全文
  • 在Excel表中通过VBA编码,制做了一个小程序,功能是"修改指定文件夹包括子文件中文件后缀名".说明:Excel表的sheel1列A中存放了后缀名,不能删除。否则窗口中的下拉框没有值。该程序的特点是用VBA调用外部批处理代码...
  • 这段时间写的程序也少了,可能是真正的会了,也就这么回事了。但这几天一直在想一个问题,如何操作文件及文件夹,虽然以前也零零碎碎写...②如何删除指定工作表,并不出现提示;③如何统计工作表的个数;④如何将指...

    这段时间写的程序也少了,可能是真正的会了,也就这么回事了。但这几天一直在想一个问题,如何操作文件及文件夹,虽然以前也零零碎碎写了一点,但一直没有好好整理过,都是到用时再查找资料,要求也不高,只要能过关就行。现在想着趁着还能上网,还是抓紧时间整理一下吧。

    想要解决的问题如下:

    ⒈在指定工作簿中①如何添加新工作表,并重命名;②如何删除指定工作表,并不出现提示;③如何统计工作表的个数;④如何将指定工作表移动到新工作簿或更改次序;⑤如何保存文件,包括直接保存及另存为。

    ⒉如何遍历指定文件夹下的指定文件,并将其保存到工作表。

    ⒊如何按指定格式更改文件名。

    以上3个问题应该可以涵盖现在遇到的情况,下面一一解决。

    ①如何添加新工作簿,并重命名。

    Workbook 对象用法
    本部分将对下列返回 Workbook 对象的属性进行说明:

    Workbooks 属性
    ActiveWorkbook 属性
    ThisWorkbook 属性
    Workbooks 属性
    可用 Workbooks(index)(其中 index 为工作簿名称或编号)返回单个 Workbook 对象。下例激活第一个工作簿。

    Workbooks(1).Activate
    编号指示创建或打开工作簿的顺序。Workbooks(1) 为创建的第一个工作簿,而 Workbooks(Workbooks.Count) 为最后一个。激活某工作簿并不更改其编号。所有工作簿均包括在编号计数中,即便是隐藏工作簿也是如此。

    Name 属性返回工作簿名称。不能用该属性设置名称;如果需要更改名称,应当用 SaveAs 方法以其他名称保存工作簿。下例激活工作簿“Cogs.xls”中的工作表“Sheet1”(该工作簿必须已在 Microsoft Excel 中打开)。

    Workbooks("Cogs.xls").Worksheets("Sheet1").Activate
    ActiveWorkbook 属性
    ActiveWorkbook 属性返回当前处于活动状态的工作簿。下例设置活动工作簿的作者名称。

    ActiveWorkbook.Author = "Jean Selva"
    ThisWorkbook 属性
    ThisWorkbook 属性返回 Visual Basic 代码正在运行的工作簿。在绝大多数情况下,这也就是活动工作簿。然而,如果 Visual Basic 代码是加载宏的一部分,那么 ThisWorkbook 属性就不会返回活动工作簿。在这种情况下,活动工作簿是调用加载宏的工作簿,而 ThisWorkbook 属性将返回该加载宏工作簿。

    如果用 Visual Basic 代码创建加载宏,那么对于那些编译到加载宏中的工作簿,在其中运行的语句应当用 ThisWorkbook 属性加以限定。

    演示如何添加工作簿并进行更名及相关操作

    Sub 添加工作簿()
        Application.DisplayAlerts = False
        Workbooks.Add
        ActiveWorkbook.SaveAs Filename:="E:aaidafd.xls" '保存到指定文件夹中
        ActiveWorkbook.SaveAs Filename:="adiasf.xls" '保存到与代码所在工作簿同一文件夹中.
        ActiveWorkbook.Close savechanges:=True '关闭当前活动工作簿,并保存更改.
        Workbooks(1).Activate '将第1工作簿激活,但由于并不甚清楚工作簿如何排序的,所以尽量少用.
       
    ThisWorkbook.Activate '将VBA代码所在工作簿激活,这句比较实用.
        Application.DisplayAlerts = True
        Debug.Print Workbooks.Count '统计工作簿的个数
        Debug.Print Worksheets.Count '统计当前工作簿中工作表的个数,包含隐藏工作表.
    End Sub

    演示关于工作表本身的操作,例如:更名/移动位置/添加等.

    Sub 工作表()
        '如何添加工作表
        Worksheets.Add after:=Worksheets(Worksheets.Count) '添加新工作并放在倒数第1位置处.
        Worksheets.Add before:=Worksheets(Worksheets.Count) '添加新工作表并放在倒数第2位置处.
        '如何更改工作表的顺序
        Sheets(1).Move before:=Worksheets(Worksheets.Count) '移动指定工作表到指定位置处,但这个地方不会出现提示。
        Worksheets(1).Move before:=Worksheets(Worksheets.Count) '移动指定工作表到指定位置处.
        '如何更改工作表名称
        ActiveSheet.Name = "xiehui" '将当前活动工作表更改为指定名字.
        Worksheets(1).Name = "sidafd" '将当前工作簿中指定工作表更名.

        '如何为一指定工作表建立副本

        worksheets(1).copy

    End Sub

    遍历文件夹,获得文件名并只保留文件名.

    Sub 遍历指定文件夹下的所有文件并只保留文件名()
        Dim i As Integer
        Dim sr As FileSearch '定义一个文件搜索对象
        Set sr = Application.FileSearch
        sr.LookIn = "E:2009-2010学年历次考试2009年11月份考试--学校统考补考名单" '注意路径,换成你实际的路径
        sr.Filename = "*.*" '搜索所有文件
        sr.Execute '执行搜索
        Cells.Delete '表格清空
        For i = 1 To sr.FoundFiles.Count
            Cells(i, 1) = sr.FoundFiles(i) '每一行第一列填写一个文件名
        Next
        '获取共有多少行,为下一步循环做准备
        totalR = Range("A65536").End(xlUp).Row
        '这是左边取,结果为"E:"
    '    For i = 1 To totalR
    '        Cells(i, 1).Value = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, "") - 1)
    '    Next i
        '若从右边取呢?结果只保留了文件名
        For i = 1 To totalR
            Cells(i, 1).Value = Right(Cells(i, 1).Value, Len(Cells(i, 1).Value) - InStrRev(Cells(i, 1).Value, ""))
        Next i
    End Sub


     

    菊子曰 今天你菊子曰了么?

    转载于:https://www.cnblogs.com/xiehui/archive/2010/03/29/2004304.html

    展开全文
  • 大家好,我们今日继续讲解VBA代码解决方案的第65讲内容:在VBA中Dir函数的利用及删除文件的方法 在操作文件时删除一个文件时再平常不过的事情,选中它右键删除,或者直接按DELETE键删除即可,在VBA中操作却是要利用...

    9d4fa9ebcb7b4915f1ba01caa37ad83b.png

    大家好,我们今日继续讲解VBA代码解决方案的第65讲内容:在VBA中Dir函数的利用及删除文件的方法

    在操作文件时删除一个文件时再平常不过的事情,选中它右键删除,或者直接按DELETE键删除即可,在VBA中操作却是要利用代码来完成这些操作,用代码该如何进行呢?今日我们来讲解这个问题。在讲解之前还是先看看知识点吧。

    一:Dir函数。Dir函数返回一个String,用以表示一个文件名、目录名或文件夹名称。

    语法如下:Dir[(pathname[, attributes])]

    参数:

    a) pathname是可选的,用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到pathname,则会返回零长度字符串 ("")。

    b) attributes是可选的,常数或数值表达式,其总和用来指定文件属性,如下面所示。如果省略,则会返回不包含属性的匹配文件。

    vbNormal 0 (缺省) 指定没有属性的文件。

    vbReadOnly 1 指定无属性的只读文件。

    vbHidden 2 指定无属性的隐藏文件。

    VbSystem 4 指定无属性的系统文件,在Macintosh中不可用。

    vbVolume 8 指定卷标文件;如果指定了其它属性,则忽略。vbVolume 在Macintosh中不可用。

    vbDirectory 16 指定无属性文件及其路径和文件夹。

    vbAlias 64 指定的文件名是别名,只在Macintosh上可用。

    特别注意: 在第一次调用Dir函数时,必须指定pathname,否则会产生错误。

    二:Kill语句,从磁盘中删除文件。

    语法如下:Kill pathname

    参数pathname是必需的,用来指定一个文件名的字符串表达式,可以包含目录或文件夹、以及驱动器。

    特别注意点1:在Microsoft Windows中,Kill方法支持多字符 (*) 和单字符(?)的统配符来指定多重文件,如需要删除当前目录下所有*. Xls文件可以使用下面的代码:Kill "*.xls"

    特别注意点2: 使用Kill方法不能删除已打开的文件,否则会产生错误。

    有了上面的两个知识点,我们再看使用Kill方法删除指定的文件的方法,如下面的代码。

    Sub MyKillFile()

    Dim myFile As String

    myFile = ThisWorkbook.Path & "ABCabc.docx"

    If Dir(myFile) <> "" Then

    Kill myFile

    Else

    MsgBox "NOT " & ThisWorkbook.Path & " ABCabc.docx 文件!"

    End If

    MsgBox "ok!"

    End Sub

    代码解析:

    MyKillFile过程使用Kill方法示例文件所在文件夹中的“abc.docx”文件。

    第3行代码指定所要删除文件的路径和文件名称。

    第4行代码使用Dir函数返回指定文件名,如果存在该文件则使用Kill语句删除。

    代码窗口:

    21751db9ff59e47fb55b1d5f58dea467.png

    如果不存在文件,则返回:

    72f19d163b82e34edbf4268d29c9b431.png

    如果存在此文件,则删除,最后运行完成,返回:

    3bbf2ac6adf87e5d840a866f18bed658.png

    今日内容回向:

    1 DIR 函数的意义是什么?

    2 如何删除一个指定文件呢?

    欢迎大家到我的自媒体平台沟通交流:个人微信号“NZ9668”、头条号“VBA专家”、百家号“VBA与GO语言”、微信公众号“NZ_9668”、社群“VBA学习交流群”。

    这一系列文章是根据我多年的工作经验编写的,也是一直在利用的工具,非常方便好用。现在分享出来,希望能对同样在职场打拼的朋友有些许的帮助,使你的工作更加高效、流畅。朋友们有问题请随时提出来,我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我,及时为你提供专业的定制技术支持。

    工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的,时间会抹去很多问题。多关注自己、家人和朋友,这些才是我们生活中更为重要的东西。

    展开全文
  • 文件系统对象FSO的英文全称是File System Object ,这种对象模型提出了有别于传统的...FSO 对象模型不仅可以象使用传统文件操作语句那样实现文件的创建、改变、移动和删除,而且可以检测是否存在指定文件夹,如果存
  • 此cad插件vba格式,可批量删除dwg的指定图层,需批量删除图层的dwg与指定的图层txt放同一文件夹内,运行插件选中该文件夹即可批量删除指定图层
  • 点上方关注我们,每天早上5分钟,让Excel多点轻松大家好,我是星光,孔子曰一日不见如隔三秋兮——多无聊的人这...1使用以下代码,将指定文件夹下文件名提取到当前工作表的A列。发Sub GetFiles() Dim strPath As St...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧26 禁止删除指定工作表 12 技巧27 自动建立工作表目录 12 技巧28 工作表的深度隐藏 12 技巧29 防止更改工作表的名称 12 技巧30 工作表中一次插入多行 12 技巧31 删除工作表中的空行 12 技巧32 删除工作表的重复...
  • Excel_VBA教程

    2014-09-22 11:36:34
    8.创建和删除文件夹(MKDIR语句和RMDIR语句) 149 9.复制文件(FILECOPY语句) 149 10.删除文件(KILL语句) 151 11.从文件读取和写入数据(INPUT/OUTPUT) 151 12.文件访问类型 152 13.使用顺序文件 152 14.读取...
  • MkDir(“文件夹路径和名称”) 根据指定路径和名称新建一个文件夹,如果该文件夹已经存在,则会发生错误 FileCopy(“源文件名”,”目标路径与文件名”) 如果不存在该源文件,则会出错。 Name函数 重命名一个文件或...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧26 禁止删除指定工作表 76 技巧27 自动建立工作表目录 78 技巧28 工作表的深度隐藏 80 技巧29 防止更改工作表的名称 82 技巧30 工作表中一次插入多行 83 技巧31 删除工作表中的空行 84 技巧32 删除工作表的重复...
  • 如果用户自己的Excel文件中有一列是型号,该宏可以插入指定文件夹里以型号命名的JPG图片到另一列; 1.打开本Excel文件,不要关闭; 2.再另外打开你自己需要操作的另一个Excel文件,并保持你要操作的工作表做为当前...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    8.创建和删除文件夹(MKDIR语句和RMDIR语句) 149 9.复制文件(FILECOPY语句) 149 10.删除文件(KILL语句) 151 11.从文件读取和写入数据(INPUT/OUTPUT) 151 12.文件访问类型 152 13.使用顺序文件 152 14.读取...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    6 删除........................................................................ 6 打开........................................................................ 6 读入......................................
  • 01009获取库文件夹的路径 01010获取路径分隔符 01011获取Excel主窗口标题栏的名称 01012获取Excel窗口的状态(大小) 01013获取Excel主窗口的高度和宽度 01014获取Excel主窗口的左边界位置和顶端位置 01015获取在...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    删除........................................................................6 打开........................................................................6 读入...........................................
  • FSO对象是什么鬼?...FSO 对象模型可以实现文件(夹)的创建、改变、移动和删除等常见操作,也可以获取文件(夹)的名称、大小、属性、创建日期或最近修改日期等信息,还可以检测是否存在指定文件夹。通过F...
  • 函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和..........................59 '35.函数作用:返回 Column 英文字.......................60 '36.函数作用:查找指定列名的列数.......
  • 155.在指定列中寻找含有指定字符串的单元格,并将符合条件的单元格标为红色,并将对应的下一列单元格赋值为1 156.清除字符串中的空格 157.查找合并单元格位置 158.阴阳历转换和阴阳历生日 159.利用数组和Substitute...
  • 然后全部统一合并到一个指定的Excel里。 {Power Query} 不仅可以将文件夹下所有的文件统一合并,并把所有的工作簿内的不同Sheet一并合并。 [关键知识点]: 1. M函数,Excel.Workbook(Content,true) 2. 判断文件内容...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入所有与选区字符同名的图片到单元格,可以自由设定图片的大小及格式,且全部统一对齐...
  • excel 工具箱

    2012-01-22 15:04:34
    【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入所有与选区字符同名的图片到单元格,可以自由设定图片的大小及格式,且全部统一对齐...
  • Excel百宝箱

    2012-10-27 17:09:21
    【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入所有与选区字符同名的图片到单元格,可以自由设定图片的大小及格式,且全部统一对齐...
  • 【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按对应名称)按指定图片大小导入EXCEL中。允许一次性多图片格式(*.JPG/*.GIF/*.BMP/*.PNG),且支持模糊与非模糊方式导入图片,还可以在导入的...
  • 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入所有与选区字符同名的图片到单元格,可以自由设定图片的大小及格式,且全部统一...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按对应名称)按指定图片大小导入EXCEL中。允许一次性多图片格式(*.JPG/*.GIF/*.BMP/*.PNG),且支持模糊与非模糊方式导入图片,还可以在导入的...
  • 【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按对应名称)按指定图片大小导入EXCEL中。允许一次性多图片格式(*.JPG/*.GIF/*.BMP/*.PNG),且支持模糊与非模糊方式导入图片,还可以在导入的...

空空如也

空空如也

1 2 3 4
收藏数 79
精华内容 31
关键字:

vba删除指定文件夹