精华内容
下载资源
问答
  • VBA提取文件内容

    2011-12-07 09:42:59
    遍历指定文件夹,根据文件夹内文件内容,取得文件信息,并汇总在一个EXCEL中
  • VBA示例函数之 求人不如自已动手 提取定串中汉字,供初学者参考,大牛勿进~~~~~~~
  • 利用VBA技术批量将邮件(.eml格式)内容抽取到EXCEL,并利用工具中的检索功能,实现关键字搜索,快速定位需要查找的邮件,提高工作效率
  • 用于从.xlsm文件提取.vba文件的 Windows 命令行应用程序。 用法: $ ExcelMacroExtrator.exe file targetdir [--copy-xlsm] # example $ ExcelMacroExtrator.exe " C:\Dev\File.xslm " " C:\Dev\File-Source " --...
  • VBA 按行提取*.txt文件数据并写入Excel单元格


    1. 测试用例

    Drop : 37800.700000
    Create : 26049.600000
    Insert : 14446.400000
    Insert : 16425.800000
    Insert : 17029.200000
    Insert : 38510.100000
    Insert : 19219.200000
    Insert : 16962.800000
    Insert : 12910.100000
    Insert : 12250.300000
    Insert : 21846.400000
    Insert : 17188.100000
    Update : 30752.200000
    Delete : 16287.100000
    Select : 168256.600000
    Batch : 100261.900000
    Batch : 85628.500000
    Batch : 169102.600000
    DbData : 959430.000000
    DbData : 1216097.200000

    2. 测试代码

    Sub 按钮1_Click()
        Dim a, b, k%, i%, j%, q%
        Dim str As String
        str = Dir(ThisWorkbook.Path & "\*.txt")
        Open ThisWorkbook.Path & "\" & str For Input As #1
            a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
        Close #1
        k = UBound(a)
        For i = 0 To k
            b = Split(a(i), ":")
            q = UBound(b)
            For j = 0 To q
                Worksheets("cost time").Cells(i + 2, j + 1) = b(j)
            Next
        Next
    End Sub
    
    

    3. 实现效果

    在这里插入图片描述

    展开全文
  • VBA提取HTML文件信息

    千次阅读 2018-07-31 16:02:00
    Sub test() Dim html As Object, D As Object, W As Object, arr() Set html = CreateObject("msxml2.xmlhttp") html.Open "GET", "file:///" & ThisWorkbook.Path & "\内参平台.html", False html....

    Sub test()
        Dim html As Object, D As Object, W As Object, arr()
        Set html = CreateObject("msxml2.xmlhttp")
        html.Open "GET", "file:///" & ThisWorkbook.Path & "\内参平台.html", False
        html.send: strhtml = html.responseText
        Set D = CreateObject("htmlfile"): Set W = D.parentWindow
        D.write "<script src='http://ajax.microsoft.com/ajax/jquery/jquery-1.4.min.js'></script><body></body>"
        D.body.innerHtml = strhtml
        W.execScript "a=[];$('div.time').each(function(){a.push($(this).text())});r=a.length;"
        W.execScript "b=[];$('div.time').siblings().filter('p').each(function(){b.push($(this).text())});c=b.length;"
        ReDim arr(1 To W.r, 1 To 2)
        For i = 0 To W.r - 1
            arr(i + 1, 1) = W.eval("a[" & i & "]")
            arr(i + 1, 2) = W.eval("b[" & i & "]")
        Next
        Cells.Clear
        [a:a].NumberFormatLocal = "h:mm;@"
        Range("a2").Resize(UBound(arr), 2) = arr
    End Sub

    转载于:https://www.cnblogs.com/shida-liu/p/9396395.html

    展开全文
  • 使用VBA提取文件夹内所有word文档中的表格数据
  • 一、提取单层文件内的文件名 只会提取文件,如果是文件夹自动忽略。 Sub FileDir() Dim p$, f$, k& '获取用户选择文件夹的路径 With Application.FileDialog(msoFileDialogFolderPicker) '选择文件夹 ...

    一、提取单层文件内的文件名

    只会提取到文件,如果是文件夹自动忽略。

    Sub FileDir()
        Dim p$, f$, k&
        '获取用户选择文件夹的路径
        With Application.FileDialog(msoFileDialogFolderPicker)
       '选择文件夹
            If .Show Then
                p = .SelectedItems(1)
                '选择的文件路径赋值变量P
            Else
                Exit Sub
                '如果没有选择保存路径,则退出程序
            End If
        End With
        If Right(p, 1) <> "\" Then p = p & "\"
        f = Dir(p & "*.*")
        '返回变量P指定路径下带任意扩展名的文件名
        '如果有超过一个文件存在,将返回第一个找到的文件名
        '如果一个文件都没有,则返回空
        [a:a].ClearContents '清空A列数据
        [a1] = "目录"
        k = 1
        Do While f <> ""
        '如果文件名不为空,则……
            k = k + 1
            '累加文件个数
            Cells(k, 1) = f
            f = Dir
            '第二次调用Dir函数,但不带任何参数,则将返回同一目录下的下一个文件。
        Loop
        MsgBox "OK"
    End Sub
    

    二、提取多层文件夹内的文件名

    分别将文件夹名称和文件名提取在表格的A/B列,并对文件名创建了超链接

    Sub AutoAddLink()
        Dim strFldPath As String
        With Application.FileDialog(msoFileDialogFolderPicker)
        '用户选择指定文件夹
            .Title = "请选择指定文件夹。"
            If .Show Then strFldPath = .SelectedItems(1) Else Exit Sub
            '未选择文件夹则退出程序,否则将地址赋予变量strFldPath
        End With
        Application.ScreenUpdating = False
        '关闭屏幕刷新
        Range("a:b").ClearContents
        Range("a1:b1") = Array("文件夹", "文件名")
        Call SearchFileToHyperlinks(strFldPath)
        '调取自定义函数SearchFileToHyperlinks
        Range("a:b").EntireColumn.AutoFit
        '自动列宽
        Application.ScreenUpdating = True
        '重开屏幕刷新
    End Sub
    Function SearchFileToHyperlinks(ByVal strFldPath As String) As String
        Dim objFld As Object
        Dim objFile As Object
        Dim objSubFld As Object
        Dim strFilePath As String
        Dim lngLastRow As Long
        Dim intNum As Integer
        Set objFld = CreateObject("Scripting.FileSystemObject").GetFolder(strFldPath)
        '创建FileSystemObject对象引用
        For Each objFile In objFld.Files
        '遍历文件夹内的文件
            lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            strFilePath = objFile.Path
            intNum = InStrRev(strFilePath, "\")
            '使用instrrev函数获取最后文件夹名截至的位置
            Cells(lngLastRow, 1) = Left(strFilePath, intNum - 1)
            '文件夹地址
            Cells(lngLastRow, 2) = Mid(strFilePath, intNum + 1)
            '文件名
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(lngLastRow, 2), _
                        Address:=strFilePath, ScreenTip:=strFilePath
            '添加超链接
        Next objFile
        For Each objSubFld In objFld.SubFolders
        '遍历文件夹内的子文件夹
            Call SearchFileToHyperlinks(objSubFld.Path)
        Next objSubFld
        Set objFld = Nothing
        Set objFile = Nothing
        Set objSubFld = Nothing
    End Function
    

     

     

    展开全文
  • '测试:将“abc@@eee”中的@@提取出来 Sub test() MsgBox GetValueByRegex("abc@@eee", "abc(.*?)eee") End Sub Function GetValueByRegex(ByVal OrgStr As String, ByVal PatternStr As String) Set re = ...
    '测试:将“abc@@eee”中的@@提取出来
    Sub test()
        MsgBox GetValueByRegex("abc@@eee", "abc(.*?)eee")
    End Sub
    
    Function GetValueByRegex(ByVal OrgStr As String, ByVal PatternStr As String)
        Set re = CreateObject("VBScript.RegExp")
        re.Pattern = PatternStr
        re.Global = True
        re.IgnoreCase = False
        Set matchs = re.Execute(OrgStr)
        If matchs.Count > 0 Then
            GetValueByRegex = matchs(0).submatches(0)
        Else
            GetValueByRegex = ""
        End If
    End Function
    

     

    展开全文
  • VBA提取所有的文件中的特殊字段
  • 注意:因为ppt里面的VBA Zlib流在文件中的存储可能不是连续的,需要提取 PowerPoint Document流之后,再参考上面的方法处理   *****************************************************************************...
  • VBA批量提取文件

    千次阅读 2016-08-24 17:00:17
    作者:代sir ... 来源:知乎 1、将要调用的工作薄统一放在一个文件夹里,假设该文件夹名称为“数据”...3、将“数据”文件夹内的所有Excel文件的文件名提取到汇总工作簿的A列(见 Sub 提取文件夹内文件名()) 4、开始
  • VBA提取PPT中的文字

    千次阅读 2020-02-16 12:16:18
    将PPT另存为pptm格式,这是一种可以执行代码的文件, 将以下代码放到VBE中,运行即可提取 Public Sub Main() Dim temp As String, tmpShape As Shape, tmpSlide As Slide Dim pptPageCount As Integer, MyFName As...
  • 这是我个人运用Excel VBA在EXcel中实现的提取单元格中特定文字,并用”.“来标注此单元格是否存在这个字符的小程序。
  • 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 网抓】的那些事,最近,由于我的一个VBA工程项目,需要做到与网页里的特定数据进行比对,由于在此之前,也没有对VBA网抓有过多的了解,因此就凭着一股猛劲,边做边学,并最终达到了预期目的。 对于此过程...
  • Python脚本和管道配置文件,用于从MS Office文件提取VBA源文件并将其提交/推送到Git存储库。 它可以帮助您使用Azure DevOps上的VBA宏管理MS Office文件。 支持Git托管服务 Microsoft Azure DevOps服务 用法 设定值...
  • Excel VBA获取选择文件文件名称

    千次阅读 2020-10-20 10:50:20
    Dim aFile As Variant '数组,提取文件名fileName时使用 '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim i As Integer File = Application.GetOpenFilename(...
  • vba插件是一款WPS中Excel内的插件文件vba插件可以为Excel提供“宏”功能,只有Excel中安装这个插件模块,才可以使用”宏“功能,如果你的WPS无法使用该功能,就从这里下载。大多数人用的基本上都是WPS的个人版,这...
  • vba文件名提取

    2020-11-27 10:40:28
    Sub shishi() Dim ad As String ad = GetFileName("a\20201602.xlss") MsgBox (ad) End Sub Function GetFileName(ByVal sName As String) '获取纯文件名的自定义... iPos = Len(sTemp) - VBA.InStr(1, VBA....
  • 这是显示并导出 Office 2016 工具栏图标的 VBA 源码,详细内容见博客文章 https://blog.csdn.net/blackwoodcliff/article/details/89891405
  • 从本地html文件提取内容,支持弹框显示选择的HTML页面,获取对应的标签,或者对应的文本,修改下就可以用了
  • Sub tiqu() '提取文件夹下所有文件名[张志晨] '路径由浏览文件夹根据需要指定。这样灵活! Dim strFileName As String'文件名
  • 为了方便管理大量的简历文件,需要将简历文件列表导入Excel中,然后筛选符合条件的简历,并直接在Excel中打开简历文件。 本段代码即可实现以下功能: 1. 支持用户根据实际情况(个人电脑中的文件系统)选择简历...
  • VBA读取PDF页数

    2018-08-01 11:38:34
    在EXCEL中使用VBA读取PDF文件的总页数,大大减少重复工作量。
  • 想要完整提取word文件中的图片,VBA宏中并没有相应的方法,在网络中能找的方法一般就2种,一种是另存为网页,然后在files文件夹下会自动产生图片,此方法有弊端,当一个图片重复使用则只会保存一份,当然这其实正常...
  • VBA打开PDF文件

    2021-10-12 11:14:43
    Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & myfile, vbMaximizedFocus ' myfile是PDF文件完整路径
  • msg的文件中,提取保存的电子邮件和附件 提取提取电子邮件和附件保存在微软. msg Outlook 文件中python 脚本 ExtractMsg.py 自动提取关键电子邮件数据( 从。到。抄送。日期。主题。正文) 和电子邮件附件。使用它 ...
  • VBA批量获取模块中的代码并写入文本文件,可以使 自定义函数 也可以是 所有的过程,非常牛叉的,可以给使用者节省大量的时间!
  • excel中VBA提取文件夹名称的方法

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

空空如也

空空如也

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

vba提取文件的内容