Tag: pdf的一代

保存为PDF循环无法正常工作

解决了。 macros循环遍历一个表，并自动填充值到目标工作表，并自动保存为一个PDF在桌面上与每行指定的文件名。 它不会将它们保存为一个PDF文件; 然而，如果你有Adobe Acrobat，它有一个简单的合并工具来将它们结合在一起。 Sub AutoFill_export2pdf() ' Dim rowCount As Integer Dim CurBU As String Dim CurOPRID As String Dim CurName As String Dim CurJournalID As String Dim CurJournalDate As String Dim FILE_NAME As String Sheets("List").Select rowCount = ActiveSheet.UsedRange.Rows.count Set Destsh = ActiveWorkbook.Sheets("Sheet") For sourceRow = 2 To rowCount CurOPRID = Range("A" & CStr(sourceRow)) […]

在文件夹中计算* .pdf文件并更新电子表格中的相邻列

我有以下Excel电子表格，tracker.xls与2列：类别和计数。 我想通过一个包含与我的电子表格中的类别列匹配的pdf文件的子目录进行循环。 这是我到目前为止所做的，但我的代码似乎并没有工作： Sub CV() Function CVCount() CategoryArray = Range("A2:A3") CountArray = Range("B2:B3") For i = 1 To UBound(CategoryArray) For j = 1 To UBound(CategoryArray, 2) 'get name of category Dim Category As String Category = (myarray(i, j)) FolderPath = Category + "\" path = FolderPath & "\*.pdf" Filename = Dir(path) For k = 1 […]

将特定范围的单元格导出为PDF – VBA

我试图保存和导出Excel中的当前工作表作为PDF使用VBA。 该代码正在工作，但是正在发布的PDF是整个工作表（其中包括几百个空白行和列，通过我有文本的地方。在这个链接1 ，有一个教程，如何通过“选项“菜单中的”另存为“窗口，我希望我的代码能够为我做这个，并且select只包含文本的范围，这个导出的工作表将被很多人用来创buildPDF文件，这个工作表中的数据大小，这解释了我希望通过代码自动执行的原因，因为文件被导出，任何帮助都会很好，谢谢！

Python：Excel到Web到PDF

我是编程新手，正在寻找从城市网站上抽取一系列水费账单的PDF的最佳方法。 我已经能够打开网页，并能够使用excel列表中的帐号打开帐户，但是，我无法创build循环来运行所有帐户而不重写代码。 我有一些想法，但我猜测存在更好的build议。 请参阅下面的介绍代码： import bs4, requests, openpyxl, os os.chdir('C:\\Users\\jsmith.ABCINC\\Desktop') addresses = openpyxl.load_workbook ('WaterBills.xlsx') type (addresses) sheet = addresses.get_sheet_by_name ('Sheet1') cell = sheet ['A1'] cell.value from selenium import webdriver browser = webdriver.Firefox() browser.get('https://secure.phila.gov/WRB/WaterBill/Account/GetAccount.aspx') elem = browser.find_element_by_css_selector('#MainContent_AcctNum') elem.click() elem.send_keys (cell.value) elem = browser.find_element_by_css_selector('#MainContent_btnLookup') elem.click() 感谢你的协助！

将Excel工作表范围导出为PDF错误

我正在尝试编写一个脚本，将单元格区域select导出为PDF。 我写的代码如下： Sub ExporttoPDF() With Sheets("Results").Range("B10:J100") .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\Users\Export.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End With End Sub 每次运行脚本时，都会popup一条消息，显示错误消息：“运行时错误”1004“：文档未保存，文档可能已打开，或者保存时可能遇到错误。 我在网上进行了研究，并试图find一个解决scheme，但无法。 你有什么想法，我可能做错了什么？ 谢谢。

mac excel vba loop：从列表中然后导出为pdf

所以我迷失了自我：我在一张表（学生名单）上有一个有160个学生号码的清单。 想要将每个学生号码粘贴到单元格A1的反馈表中，然后将其导出为PDF文件，并将学号作为文件名。 有这么远…干杯迈克 Sub Pdfexportmacro() Dim rCell As Range Dim rRng As Range Dim SNum As Integer 'Student numbers in cells A7:A160, set to A7:A9 for testing Sheets("studentlist").Activate Set rRng = Range("A7:A9") For Each rCell In rRng.Cells SNum = rCell.Value ' Write student number to cell A1 on Feedback sheet: Sheets("Feedback").Activate Range(“A1”).Activate ActiveCell.Value = SNum […]

从指定缩放级别的Excel导出后，VBA打开.pdf

我使用OpenAfterPublish:=True选项将活动工作表保存为.pdf文件，我可以通过附加参数来指定打开此pdf的zoom级别（我的默认设置为Acrobat Reader）？ ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ SOMENAME, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False _ , OpenAfterPublish:=True

将横向转换为PDF格式

我想转换一个Excel表格到PDF，它与以下代码一起工作： xlApp = client.Dispatch("Excel.Application") books = xlApp.Workbooks.Open('Table.xlsx') ws = books.Worksheets[0] ws.Visible = 1 ws.ExportAsFixedFormat(0, 'Table.pdf') books.Save() books.Close() 唯一的问题是，我需要桌子是横向的，而且我对如何制定这个规范感到不知所措。 我已经看到解决scheme的代码，如ws.PageSetup.Orientation = xlLandscape或一些变化，但我相信这只适用于VBA /我无法find正确的Python语法。 任何帮助或想法将不胜感激。

保存excel发票作为基于2单元格的xlsm和pdf，然后打印…解决scheme

我的目的是在一个按下的excel发票上打印一个button，打印发票，保存到xlsm，保存为pdf（两个单元格都存有自动名称，发票号码和客户名称），然后closures工作簿。 我已经search了低和高的答案，但只有在单独的元素find帮助。 文件名所需的单元格是C18和A7。

使用当前工作簿名称将excel保存为当前文件夹中的PDF

尝试将一组工作表从工作簿保存为PDF格式的文件夹并使用工作簿名称。 所有的步骤后loggingmacros回去，并试图取代我在这个论坛的一些线程中发现的代码片段，但现在它不工作。 当前版本在下面。 我打破了什么？ SaveToPDF Macro Sheets(Array("AUDIT Info", "REVIEW", "FILES", "WARNINGS", "PURGE", "NonBIM", _ "Clashes", "ViewsManagement")).Select Sheets("AUDIT Info").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & ActiveWorkbook.Name _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Sheets("AUDIT Info").Select