Tag: pdf的一代

如果工作表名称出现在单元格范围内,则select

我希望能够将多个特定的工作表保存为PDF。 我目前有这个代码工作: Sheets(Array("Print – Cover", "Print 2.2")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile,Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=OpenPDFAfterCreating 这将打印 – 封面和打印2.2页保存为预期的PDF。 而不是硬编码sheetnames,我想保存任何工作表有一个单元格范围内存在的名称。 例如,在我的ActiveSheet的单元格A1:A3中,我可以有蜜蜂,猫和狗 ,而macros将会 select工作表“蜜蜂”,“猫”和“狗” , 但不是“猪” ,作为工作表存在,但没有列出。 列出的页数可能会增加或减less。 这样做的目的是让用户可以轻松地指出他们想要保存哪些表而不必编辑macros。

用电子邮件将电子邮件中的Excel工作表的一部分作为PDF附件用button发送

我在上面的标题中有代码,下面的代码将把电子邮件中的Excel表单的PDF发送到单元格中指定的电子邮件地址。 我的问题是它给PDF文件的名称是文件名后跟标签名称。 我将如何编辑下面的代码,以便为文件提供表单中单元格中指定的名称? Sub savePDFandEmailPayPlan() Dim strPath As String, strFName As String Dim OutApp As Object, OutMail As Object 'Create PDF of active sheet only strPath = Environ$("temp") & "\" trailing "\" strFName = ActiveWorkbook.Name strFName = Left(strFName, InStrRev(strFName, ".") – 1) & "_" & ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ strPath & strFName, […]

没有看到Excel VBA的PDF字段

我的任务是创build一个Excel工具,将数千个PDF数据导入到Excel中。 我已经安装了Adobe Acrobat X Professional,它似乎工作正常。 我正在使用Excel 2007。 我在这里find示例代码: http : //khkonsulting.com/2010/09/reading-pdf-form-fields-with-vba/ 并稍微修改它,以提示我浏览到PDF文件,并设置“Adobe Acrobat 10.0types库”的引用,我想这个代码: Sub Main() Dim AcroApp As Acrobat.CAcroApp Dim theForm As Acrobat.CAcroPDDoc Dim jso As Object Dim text1, text2 As String Set AcroApp = CreateObject("AcroExch.App") Set theForm = CreateObject("AcroExch.PDDoc") Dim strFullPath As String strFullPath = Application.GetOpenFilename() theForm.Open (strFullPath) 'theForm.Open ("C:\temp\sampleForm.pdf") Set jso = […]

从Windows 7升级到Windows 10后出现VBScript问题

所以我有一个在VBA中与VBA一起工作的VBScript,并且每天都执行模型的自动更新(绑定到Task Scheduler)。 除了将名称中的当前date保存为excel文件外,还可以保存pdf格式的硬拷贝(也包含相关date)。 切换到Win 10后,脚本每运行一次,窗口就会popup并询问 – 您想如何打开一个文件? Adobe,记事本等pdf默认由Adobe(set)打开。 那么我怎样才能摆脱那个popup窗口? 它违背了自动化过程的整个目的,也阻止了它的正常工作,因为在popup之后,pdf不被保存。 另外,如果我通过cmd通过cscript运行脚本,它一切正常,但如果通过任务调度(也与cscript)比问题仍然存在。 任何帮助?

将网页保存为PDF到某个目录

我有它在哪里将打开Internet Explorer给用户另存为框,然后退出。 但是,我宁愿如果不是用户必须导航到正确的文件夹,该目录来自工作表中的单元格,并将网页保存为PDF。 我安装了完整的Adobe。 代码: Sub WebSMacro() Dim IE As Object Dim Webloc As String Dim FullWeb As String Webloc = ActiveSheet.Range("B39").Value FullWeb = "http://www.example.com=" & Webloc Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate FullWeb Do While IE.Busy Application.Wait DateAdd("s", 1, Now) Loop IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER Application.Wait DateAdd("s", 10, Now) IE.Quit Set IE = […]

将多个选定的工作表保存为一个PDF

我试图将多个选定的工作表保存到一个PDF中。 relativePath = wb.Path & "\" & sheetName & dateToday wb.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select ***This is the code in question***.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=relativePath, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True 我已经尝试了两种方法来修改“这是有问题的代码” 我用“select” 结果:空白文档以空格forms保存为PDF 我已经使用“ActveSheet” 结果:文档仅以第一张纸张的forms保存为PDF 我已经使用'wb'(这是我目前的工作手册,只是为了testing它的工作原理) 结果:正如预期的那样,文档被保存为PDF格式,其中包含所有表格,主要是testingPDFfunction是否正常工作 为了澄清,我希望的结果是sheet1,sheet2和sheet3被保存到相同的PDF(我有一堆在我的工作簿中的其他工作表,我会replace静态编码表名与数组,当我得到它的工作) 我已经从stackoverflow的答案得到解决scheme1和2,但都不为我工作的地方为他人工作。 任何人都可以请一些解决scheme或至less确定为什么这两件事情发生?

将excel文件转换为pdf文件

我用openpyxl来自动生成154个excel文件。 一切都像魅力一样工作! 现在我需要将excel文件转换成pdf文件。 这可以自动完成,或者我需要手动吗? 注:重要的是我可以select定义边距和水平方向。 python中的解决scheme首选。 我正在使用OS X或Ubuntu。

如何使用Tika或任何其他库从PDF文件中提取数据并以CSV / Excel格式存储

我想提取PDF文件中存在的数据,并以CSV / Excel表单的格式显示。我知道这可以在java.But中使用Tika库来完成,我确实find了如何提取数据作为简单的文本,但我想知道如何将其存储在Excel表格中。 如果有人早些时候做过这种types的工作,那么请帮助我。

从数据库生成多个pdf

我想一次生成多个PDF文件。 这些pdf应该从数据库中提取数据。 它可以是一个Excel表或关系数据库,无所谓,我可以创build任何东西。 在adobe acrobat pro中使用excel和javascript我设法将数据拉到模板pdf中,但是对于excel表格中的每个logging(行),我必须手动生成一个pdf,然后是另一个,等等..还有一个很多的logging,所以我想尽可能自动做到这一点。 有没有办法做到这一点? 有什么build议么? 我添加了一个图像来更好地解释它…

结合PDF与VBA

我试图将一个PDF数组合并成一个这样的代码: Option Explicit Sub Fusion_PDFs(ByVal name As String, ByRef pdfs() As Variant) Dim oPDDoc() As Object Dim oPDDocFinal As Object Dim Num As Long Dim i As Integer Set oPDDocFinal = CreateObject("AcroExch.PDDoc") oPDDocFinal.Open (pdfs(0)) ReDim oPDDoc(UBound(pdfs)) For i = LBound(pdfs) + 1 To UBound(pdfs) Set oPDDoc(i) = CreateObject("AcroExch.PDDoc") oPDDoc(i).Open (pdfs(i)) Next i For i = […]