精华内容
下载资源
问答
  • VBA打开PDF文件

    2021-10-12 11:14:43
    Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & myfile, vbMaximizedFocus ' myfile是PDF文件完整路径
    Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & myfile, vbMaximizedFocus '

    myfile是PDF文件完整路径

    展开全文
  • EXCEL VBA PDF 文件

    2015-05-26 08:35:35
    EXCEL VBA PDF 1.使用CreateObject("Wscript.Shell").Run("pdf文件路径") 2.可以使用foxit Activex 或者 adobe 的activex workbookS.open("PDF的路径")
  • VBA读取PDF页数

    2018-08-01 11:38:34
    在EXCEL中使用VBA读取PDF文件的总页数,大大减少重复工作量。
  • 通过网络搜索得到关于“通过查阅读pdf文件格式的标准或者官方的文件格式文档,可以得知,如果用二进制形式打开pdf文件的话,”/Count”后面出现的数字即为总页数。利用这个规则,可以使用如下的vba自定义函数获取pdf...

    问题点:

    在日常工作是,有需要批量打印.pdf的需求,但是客户提供的是pdf档,在pdf档的最后一页是关于客户公司的信息,如果批量打印的话,会有大量重复无用的页面,只能通过手动设置打印页数,这无疑给工作造成上大量的工作。

     

    解决方法:

    step1:

    通过网络搜索得到关于“通过查阅读pdf文件格式的标准或者官方的文件格式文档,可以得知,如果用二进制形式打开pdf文件的话,”/Count”后面出现的数字即为总页数。利用这个规则,可以使用如下的vba自定义函数获取pdf文件的总页数”通过他的代码,可以实现。

    不过我对VBA也不是特别懂。

    代码如下:

    Function GetPageNum(sPath As String)
        Dim iFN As Integer
        iFN = VBA.FreeFile
        Dim bFileSize As Long
        bFileSize = VBA.FileLen(sPath)
        Open sPath For Binary Access Read As iFN
        Dim arrResult() As Byte
        '读取字节流
        arrResult = InputB(bFileSize, iFN)
        Dim arrFind() As Byte
        '要查找的字节串,"/Count"为pdf总页数的特征字符标识
        arrFind = VBA.StrConv("/Count", vbFromUnicode)
        '设置查找的起始位置
        bPos = 0
        bPos = VBA.InStrB(bPos + 1, arrResult, arrFind, vbBinaryCompare)
        '设置个变量预装"/Count"之后的字符
        Dim sResult As String
        sResult = Space(1000)
        Get iFN, bPos + 6, sResult
        GetPageNum = VBA.Val(sResult)
        Close iFN
    End Function
    

    step2:创建一个过程,然后调用这个自定义函数

    Sub xxs()
    
    GetPageNum ("F:\李敏\内部课程-完结篇\CTF课程\拓展学习资料\CTF学习资料\003-CTF web题型解流量分析-第三课 工具使用-流量分析.pdf")
    Debug.Print GetPageNum("F:\李敏\内部课程-完结篇\CTF课程\拓展学习资料\CTF学习资料\003-CTF web题型解流量分析-第三课 工具使用-流量分析.pdf")
    
    End Sub
    

    step3:实现后的界面

    step4:这个代码既然是通过二进制打开然后搜索”/Count”,那必然很卡,100M左右文件获取大约需要10分钟。

     

    用记事本打开也是长时间的卡死,但最终能打开。

     

    step5:通过记事本的方式也可以获取页数

     

     

     

     

     

    展开全文
  • EXCEL-VBA打开word文件转换为PDF保存

    千次阅读 2020-02-27 21:34:37
    Sub a() Dim WordApp As Word.... WordDoc.SaveAs ThisWorkbook.Path & "\HAHA1.pdf", wdFormatPDF WordDoc.Close WordApp.Quit Set WordDoc = Nothing Set WordApp = Nothing End Sub 要引用word哦
    Sub a()
        Dim WordApp As Word.Application
        Dim WordDoc As Word.Document
        
        Set WordApp = New Word.Application
        Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\HAHA1.docx")
        WordDoc.SaveAs ThisWorkbook.Path & "\HAHA1.pdf", wdFormatPDF
        WordDoc.Close
        WordApp.Quit
        Set WordDoc = Nothing
        Set WordApp = Nothing
    End Sub
    

    要引用word哦

    展开全文
  • 将该文件与需要转换的Excel文件放在同一个文件夹中,打开该文件,点击开始转换,稍等片刻即可完成转换
  • 本文介绍在 CorelDRAW VBA中使用官方原生工具 CorelScriptTools 调用文件对话框,选择文件并获得文件路径的VBA代码。其提供的 GetFileBox 方法可用来打开文件对话框(或者另存为对话框)。 CorelScriptTools ...


    本文介绍在 CorelDRAW VBA中使用官方原生工具 CorelScriptTools 调用文件对话框,选择文件并获得文件路径的VBA代码。其提供的 GetFileBox 方法可用来打开文件对话框(或者另存为对话框)。

    CorelScriptTools

    CorelScriptTools 是Corel官方提供的一个脚本工具,可以用来执行很多有用的操作。比如 GetFileBox 方法就可以用来打开获取文件的对话框,用户选择文件后会返回文件的路径。

    GetFileBox 打开文件对话框

    该函数用来打开文件对话框,并返回文件路径。它显示一个标准的 Windows 文件打开(或另存为)对话框。这两个对话框都允许用户从文件系统中选择一个文件。

    如果用户选择了取消,则返回空字符串。GetFileBox 语句本身不打开或保存文件,它只返回与所选文件对应的字符串。

    语法

    Function GetFileBox(Optional ByVal Filter As String = "All Files (*.*)|*.*", Optional ByVal Title As String = "", Optional ByVal Type As Long =
    展开全文
  • 读取PDF内容

    2014-11-24 11:26:22
    支持32位和64位下 读取PDF文件内容!
  • 自己编的vba程序,可以批量打印成pdf。有源码
  • VBA两种打开文件窗口的方式

    千次阅读 2020-10-20 10:32:33
    VBA两种打开文件窗口的方式第一种第二种结语 第一种 获取文件夹路径,返回完整路径 Dim Fso, Fld '定义文件路径 Set Fso = CreateObject("Scripting.FileSystemObject") Set Fld = Fso.getfolder(CreateObject(...
  • 使用ObjectDBX实现的批量文字替换,与上一个版本比较起来,修正了一些Bug,并且是在不打开文件的情况下完成操作的,速度有了明显的提高。 第6章介绍了标注和公差的使用。新的圆弧长度标注程序涉及到多行文字格式代码...
  • Private Sub Workbook_AfterSave(ByVal Success As Boolean) Dim fso Dim f Dim readText As String filepath = "C:\temp\FileName.txt" Set fso = CreateObject("Scripting.FileSystemObject"...
  • ExcelVBA批量添加PDF文件

    千次阅读 2020-02-26 21:30:35
    如图1所示,"BOM-01.xlsx"工作簿中的Sheet1工作表根据B列图号单元格中的内容,在图2所示的文件夹中找到对应的PDF文件,然后嵌入到相应的N列,双击N列中所示的图标,会打开PDF文件,是源文件的副本,即删除源文件,也...
  • 需要传两个参数,word路径和pdf路径。 代码可以做成wsf文件,通过C语言或者java调用 <job id="wtop"> <reference guid="{00020905-0000-0000-C000-000000000046}" comment="MSWord 2000 tag library,under ...
  • VBA-另存为pdf

    千次阅读 2018-06-30 12:26:27
    Sub 另存为pdf() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\zgjxg\Desktop\" &amp; Worksheets(2).Range("c4").Value, Quality:=xlQualityStandard, _ ...
  • 1、打开、保存和关闭图形 2、设定AutoCAD参数 5、重置活动对象 6、设定和返回系统变量 7、精确制图 8、提示用户输入 9、访问AutoCAD命令行 第四章 创建和编辑AutoCAD图元 1、创建对象 2、编辑对象 3、使用图层、颜色...
  • 一个基于Excel和VBA开发的自动生成.pdf
  • 在Excel VBA中,经常会有输出PDF的操作,但系统经常报错,因为有同名的PDF文件处于打开状态。所以想找到关闭PDF文件的方法。
  • Python 技术篇-利用Office VBA实现word文档转化为pdf文档实例演示。 from win32com.client import * # 创建word程序对象 word = gencache.EnsureDispatch('Word.Application') # 读取word文件 f = word.Documents....
  • 需要传两个参数,excel路径和pdf路径。 代码可以做成wsf文件,通过C语言或者java调用 <job id="etop"> <reference guid="{00020813-0000-0000-C000-000000000046}" comment="MSExcel 2000 tag library, ...
  • ppt是画科研插图的优秀工具,能够很方便的导出为pdf并插入latex,但手动通过“另存为-格式-pdf-当前页-确定”将一页ppt保存为一个pdf文件要选择多个选项,稍显繁琐,故编写了一小段vba脚本来自动化这一步骤。...
  • 如何能够将jpg图片批量转成pdf文件,并将pdf子文件合并成一个文件.? 为此给出解题思路如下: 将jpg图片批量插入到word文档中,然后使用word的导出功能将文档转为pdf文件。 主要步骤: 1,使用Scripting....
  • vba 实现Word文档的批量转换为PDF

    万次阅读 2019-03-04 15:36:02
    如图,在vba编辑窗口,选择“工具--》引用” sub batchConvert2pdf() '需要转换的word文档的个数 dim total as Integer '定义文件名数组:数组的个数根据需要进行设置 Dim fns(total) As String fns(0) =...
  • 1.只能遍历到工程资源管理器显示到的工作簿。 2.另外双击打开的工作簿无法遍历到。 3.用代码所在excel文档打开的工作簿也可以遍历到
  • VBA 实现批量word 转 pdf

    2021-05-31 17:29:01
    打开word 点击开发 新建vba文件 copy以下代码 执行 OK Option Explicit Sub docx2other() On Error Resume Next Dim sEveryFile As String, sSourcePath As String, sNewSavePath As String Dim CurDoc As Object ...
  • 完整 无限制版, 全英文版. 优化了破解速度, 8个字符之内的密码 破解较快.
  • 100 Excel VBA Simulations 英文无水印转化版pdf pdf所有页面使用FoxitReader、PDF-XChangeViewer、SumatraPDF和Firefox测试都可以打开 本资源转载自网络,如有侵权,请联系上传者或csdn删除 查看此书详细信息...
  • SolidWorks 工程图 转PDF的宏(VBA 代码)

    千次阅读 2020-01-04 21:23:01
    xRet2 = MsgBoxTimeout(0, "另存为PDF OK, 是否现在打开" & pdfFileName, "是否打开PDF (5秒后自动打开PDF)", vbYesNo + vbQuestion, 1, 5000) Select Case xRet2 Case 32000 Debug.Print "超时自动关闭" ...
  • 有时候需要把大量的xlsx文件另存为其它格式,比如pdf、xls、csv,或者反向转换,可以用VBA批量处理。启动Excel,按下Alt+F11,打开Microsoft Visual Basic for Applications,点击 插入>模块,将下面的代码粘贴...
  • vba编写的excel批量转换为 ,xls格式、xlsx格式 、csv格式、或pdf格式。 使用界面如下: 解压缩,用office的Excel打开vba批量另存为工具.xlsm》文件,启用宏 选择转换文件,ctrl A 本目录下文件全选,...

空空如也

空空如也

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

vba打开pdf