Tag: pdf的一代

VBA在Excel中如何保存http：//blahblah.pdf网页作为pdf文件？: 目前我的macros浏览IE浏览器下面的具体链接，并带我到一个点，我点击PDF链接，并在IE中打开它。我现在想要做的是将这个打开的页面保存为pdf文件。我已经尝试URLDownloadtofile保存文件，但不会允许我打开它。这里是我的代码结束的示例： Loop For Each e In ie.document.getElementsByTagName("span") If e.InnerText = "View Assigned Workout" Then e.ParentElement.Click Exit For End If Next Do While (ie.Busy Or ie.READYSTATE <> 4) DoEvents Loop Application.Wait (Now + TimeValue("0:00:1")) For Each e In ie.document.getElementsByTagName("strong") If e.InnerText = "View/Print Workout" Then e.ParentElement.Click Exit For End If Next Do While […]

将PDF转换为Base64string表示forms在转换回时不可打开: 我需要将PDF转换为基本64string，以便我可以将其发送到XML文件中。我正在使用Excel电子表格来存储我们需要进入XML的所有数据，然后将一些将XML打印到文件的VBA代码。所述XML文件的收件人无法打开我的PDF文件。 Adobe说这不是一个.pdf文件，或者它是腐败的。我做了一些额外的代码来testing我的原始转换，我也遇到了同样的问题。 XSD指定数据应该是xsd：base64Binarytypes 第一个函数是生成以XML格式发送的string。第二个函数是从第一个函数调用的，纯粹是为了我的testing目的。我发现这个代码在其他stackoverflow线程，并从几个来源拼凑在一起，但它使用不同的常量值（例如，“Base64Data”，“B64”和“Base64”都是我见过的objXMLinput略有不同。的createElement）。我也有一种感觉，我已经得到了文本/二进制和读/写function相反的顺序。生成的string看起来非常像base64二进制文件，但是当我快速扫描生成的XML时，有些部分看起来像是可疑的重复。 Function processBase64Binary(ByVal filePath As String) As String 'define objects used Dim mstream As Stream Dim objXML As MSXML2.DOMDocument Dim objNode As MSXML2.IXMLDOMElement 'load the data from the filepath provided Set mstream = New Stream mstream.Type = adTypeBinary mstream.Open mstream.LoadFromFile filePath 'convert to base 64 […]

将活动的打开的文档保存为pdf文件: 我有以下的代码，从Excel中复制范围单元格的值，并粘贴为新的Word文档中的图片。我想将活动文档保存为文件名称的pdf文件作为单元格“A2”中的值。如果你可以帮助我在下面的代码中添加相同的东西，这将是一个很好的帮助。 Sub Picture() Dim objWord, objDoc As Object ActiveWindow.View = xlNormalView Range("A2:K25").Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add objWord.Visible = True objWord.Selection.Paste objWord.Selection.TypeParagraph End Sub

Excel工作簿保存为.pdf: 我正在处理一个包含20个以上Excel文件的文件夹，并希望打开它们中的每一个，进行一些页面设置更改，最后保存为.pdf。我几乎涵盖了所有的主题，除了保存为.pdf。我需要将该文件保存为与Excel工作簿相同的名称。在同一个文件夹中。下面的代码做的工作，除了我需要给名称，并select文件夹来保存它： fName = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf") ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fName, xlQualityStandard, , , , , True 资料来源： http : //www.mrexcel.com/forum/excel-questions/651621-save-pdf-macro.html#post3232801 有人能帮我优化这个来实现我的目标吗？

添加基于“查找字符”的换行符并返回到第一个空格: 我正在清理大量具有如下常见模式的数据：注册编号：15082608date：15-JUN-15 BACKTRACK清除date：31-八月-15接收机构：13-MAY-15机构：奥克兰（每个logging约25个其他数据点，但遵循这种模式）。包含一系列logging的原始PDF文件位于： http ： //abc.ca.gov/reports/Actions2015/ActionsFinal_09-23-15.pdf 我不是一个程序员，但是，已经尝试了Refine和一堆Exceltesting，但是，还没有find一种方法，我可以做到这一点的大量的logging（数千，但将从几十:)开始。所以，我的问题是：脚本是否可以识别冒号“：”，然后回退到冒号前的第一个空格，例如“Date：15-JUN-15 BACKTRACK Cleared：Date：31-AUG-15”，然后为每个实例input一个新行？所以得到的输出将是： Date:15-JUN-15 BACKTRACK Cleared: Date:31-AUG-15 另一个问题是，我可以手动将每个logging（所有25个以上的数据点）复制并粘贴到一个唯一的单元格中，但是最理想的是将PDF保存为电子表格，并且基本上为每一行都build立一行发现 – 在一些单元格中会有多个冒号，我需要脚本相应地击倒其他行。一旦我到达那个地方，我可以做一个文本到列，然后从那里build立我的数据库。

直接通过电子邮件将PDF表格作为PDF发送: 我的目标是能够点击一个button，并为我的Excel工作表PDF格式的电子表格的范围，并通过电子邮件发送到一个电子邮件地址是在工作表中的单元格之一。对于初学者，我有代码可以把一个单元格的范围转换成PDF文件，并允许我保存它： Option Explicit Sub savePDF() Dim wSheet As Worksheet Dim vFile As Variant Dim sFile As String Set wSheet = ActiveSheet sFile = Replace(Replace(Range("D11"), " ", ""), ".", "_") _ & "_" _ & Range("H11") _ & ".pdf" sFile = ThisWorkbook.Path & "\" & sFile With Excel.Application.FileDialog(msoFileDialogSaveAs) Dim i As Integer For i = […]

Excel 2016 Mac ExportAsFixedFormat到PDF发送到打印机: 我正在编写一个macros来操作电子表格，并将一系列单元格保存为PDF。以下是保存为PDF的代码部分： Range("A1:G50").ExportAsFixedFormat _ Type:=xlTypePDF, _ fileName:=myFileName, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=False, _ IgnorePrintAreas:=True, _ OpenAfterPublish:=False 当它运行时，它将范围发送到我的打印机…但不保存为PDF。其他人看到这种行为？我究竟做错了什么？

Excel ExportAsFixedFormat（PDF）在导出的PDF中添加额外的空白工作表: 我已经使用Excel ExportAsFixedFormat()成功导出了excel文件的PDF，但是这种方法在每个表格中添加了额外的空白表格。如果我将工作簿保存为excel文件，则不包含任何多余的工作表。使用的纸张范围是从A1-B6所以只有12个单元在使用。这里是我如何将Excel工作簿导出为PDF。 xlNewWorkBook.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, userSpecificFile, missing, missing, true, missing, missing, missing, missing); 我无法弄清楚为什么要添加这些额外的空白表。

使用documents4j将Excel转换为PDF问题: 我想使用documents4j将Excel文件转换为PDF，但有两个问题：转换时我必须打开一个Excel文件。当我将Word转换为PDF时，我不需要打开doc / docx文件。 PDF不包含Excel中包含的图表图像。我该如何解决这个问题？这是重现问题的代码： private void convertExcelToPDF1() throws Exception { InputStream excelFileIS = new BufferedInputStream(new FileInputStream("C:\\test_convert\\test.xlsx")); File target = new File("C:\\test_convert\\sim_status_excel.pdf"); IConverter converter = RemoteConverter.builder() .baseFolder(new File("D:\\temp")) .workerPool(20, 25, 2, TimeUnit.SECONDS) .requestTimeout(10, TimeUnit.SECONDS) .baseUri("http://localhost:9998") .build(); Future<Boolean> conversion = converter.convert(excelFileIS).as(DocumentType.XLSX) .to(target).as(DocumentType.PDF) .prioritizeWith(1000) .schedule(); }

使用Excel VBA将Googlesearch转换为PDF: 我试图编写VBA代码来自动执行针对特定主题运行Googlesearch的过程，并将结果的前两页保存为PDF。我是新来的编码，所以任何帮助将大规模赞赏。我认为我需要遵循的步骤是：设置一个循环遍历search项目列表（可能列在Excel中的列A下）对于列表中的每个项目：打开Internet Explorer（在后台打开屏幕）在Google中search该项目等待页面完全加载将结果的第一页导出为PDF（到硬编码位置）移至Google结果的第二页等待页面完全加载将结果的第二页导出为PDF 退出Internet Explorer应用程序移到列表中的下一个项目并重复上述操作我已经创build了使用以下方式打开Internet Explorer的模块，但是我正在努力处理循环并导出到PDF组件： Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://www.google.com.au/search?hl=en&q=testing&meta=" IE.Visible = False Do Until IE.ReadyState = READYSTATE_COMPLETE 在出口到PDF格式，我已经得到了PDFCreator软件，这是我需要用于PDF导出。关于上述是否可能的任何想法？非常感谢。