Tag: pdf的一代

select单元格范围，保存在预设名称为PDF的设置文件夹中: 我试图将一系列的单元格导出为PDF格式，并将其保存为一个预先设定的名称到一个文件夹。我只使用的代码将创build一个PDF，并询问我想保存它的位置。有什么build议么？ Sub ExcelToPDF() Range("A11:D57").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:="C:\Documents\Plantwide\Document Managerment Control\File Name", Quality:=xlQualityStandard, _ IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub

适用于Mac的Excel 2016macros：保存为PDF不能在PC上工作: 我在我的电脑上有一个在Excel上工作的excelmacros，但是现在我试图在Excel 2016中使用我的新Mac。基本上它基于工作簿中的字段和实际date保存实际的文件。然后它保存与pdf相同的文件。当我优秀的脚本，我得到一个运行时错误，该文件无法保存，指向“SaveAs”…所在的行。我认为这与文件名中的variables有关，因为一个固定的文件名是woking … Sub save_pdf() Dim nr, jahr, jahreszahl, stdPfad, Dateiname jahreszahl = Year(Now) stdPfad = "Users/**myname**/Dropbox/Buchhaltung & Steuer/Customer/Zeiterfassung/" & jahreszahl & "/" & Format(Now, "mmmm") & "/" Dateiname = stdPfad & "Zeiterfassung " & " " & Format(Now, "mmmm ") & [Projekt] & " " & Format(Now, "ddmmyyyy") ActiveWorkbook.SaveAs Filename:=Dateiname ActiveSheet.ExportAsFixedFormat […]

用excel vba计算文件夹中的特定文件: 我需要一些帮助，我的Excel VBA。首先让我告诉它应该做什么… 在networking文件夹中有应该被计数的pdf文件。文件夹看起来像这样： X:/Tests/Manufact/Prod_1/Machine/Num/Year/Month/TEST_DDMMYYYY_TIMESTAMP.PDF X:/Tests/Manufact/Prod_2/Machine/Num/Year/Month/TEST_DDMMYYYY_TIMESTAMP.PDF X:/Tests/Manufact/Prod_3/Machine/Num/Year/Month/TEST_DDMMYYYY_TIMESTAMP.PDF 还有一个每年和每个月的文件夹，其中的pdf是根据其创builddatesorting。计数的文件应作为列表的文件名和date在活动工作表中列出。之后，我想统计在特定时间之间在特定时间内创build了多less个pdf文件。应该在新的工作表中 Date – Time-Period 1 (0AM-6AM) – Time Period 2 (6AM-10AM) – Time Period 3 (10AM – 12AM) 01.01.2017 – 12PDFs – 17PDFs – 11PDFs 02.01.2017 – 19PDFs – 21PDFs – 5PDFs 也许还有一种内存方式，所以脚本不会重新计算之前已经列出的所有文件？（因为有超过10万PDF，每天都在增加…）所以…我在互联网上search了整整一周的解决scheme，并且发现了一些，结束了我的代码： Sub ListFiles() Const sRoot As String = "X:\Tests\Manufact\" Dim […]

如何将数据从ListView导出到Excel和PDF（VBA）: 我有一个ListView中的数据，并希望将这些数据与列标题导出到一个新的Excel文件和一个PDF文件。 LV的定义如下： 'listview: | # | Col1 | Col2 | Col3 | … ================================== | 1 | Val1 | Val2 | Val3 | … 我从这个代码开始： Dim objExcel As Excel.Application Dim objWb As Excel.Workbook Dim objWs As Excel.Worksheet Dim objRange As Excel.Range Dim i%, j% On Error GoTo errMsg Set objExcel = New Excel.Application objExcel.Visible = […]

用Excel数据填充PDF表单: 我有一个Excel电子表格，例如： Patent No. Issue Date Patentee 7,777,776 2010-08-17 Horiuchi 7,777,778 2010-08-17 Scharenbroch, et al. 我想用这些数据填写下面的表格： https : //www.uspto.gov/sites/default/files/patents/process/file/efs/guidance/updated_IDS.pdf 请注意，PDF表单上有一个添加button，用于在电子表格的第二行中创buildPDF中的第二行。我对Python很熟悉，但是我看到的类似的解决scheme要么从头开始创build新的表单（我怎样才能自动填充Django / Python中的PDF表单），也不要操作PDF表单中的添加button（批量填充PDFforms从python或bash ）。

将Excel表单（提供的表单名称列表）转换为单个PDF文件: 我需要使用C＃中的Microsoft.Office.Interop.Excel库将所选工作表添加到pdf中。我一直在通过networkingsearch来弄清楚如何做到这一点。但我一直没能find有用的东西。有人可以帮我弄这个吗。 find以下声明将给定的表格转换为pdf。但是看起来，当我们提供表单名称时，它不能将excel表格列表附加到一个pdf中。 xlws.ExportAsFixedFormat(Excel.XlFixedFormatType.xlTypePDF, endPath); 请帮助。

从Sharepoint> Excel> PDF转换时，string中的幻影字符: 我的组织使用SP 2010表单来填充信息。我没有build立这种forms，但我注意到如果你试图从一些字段复制到其他任何地方（记事本等），它会在string前面直接放置问号或欧元符号（有时在中间。） Dim objMyList As ListObject Dim objWksheet As Worksheet Dim strSPServer As String Const SERVER As String = "xxx" Const LISTNAME As String = "{xxx}" Const VIEWNAME As String = "{xxx}" strSPServer = "https://" & SERVER & "/_vti_bin" Set objWksheet = Sheets("Sheet1") Set objMyList = objWksheet.ListObjects.Add(xlSrcExternal, _ Array(strSPServer, LISTNAME, VIEWNAME), False, , Range("A1")) […]

打印多个范围为PDF：VBA: 我有以下代码： ActiveSheet.Range("A:I","K:Q").ExportAsFixedFormat Type:=xlTypePDF 这将打印彼此相邻的两个范围。无论如何，我可以打印两个范围的顶部？

获取在线托pipe的pdf文档修改datevba excel: 我对VBA有点新鲜，并且已经花费了数小时的研究来查看是否有可能获得在线托pipe的PDF文档的创builddate或上次修改date。从一个线程我发现FileDateTime函数可能可以工作，但是没有关于如何使用它的信息。我发现并修改了msdn网站上的代码，但它返回了以下错误“无效的过程调用或参数”。下面的链接也很有帮助。声明使用没有“https：”的链接工作，但是它似乎只适用于Sharepoint文件并且返回了错误（“找不到文件”）如何使用VBA获取SharePoint中文件的最后修改date？ Sub return_created_date() Dim MyStamp ' Assume TESTFILE was last modified on February 12, 1993 at 4:35:47 PM. ' Assume English/US locale settings. MyStamp = FileDateTime("https://www.xxxx.com/xxxx.pdf") ' Returns "2/12/93 4:35:47 PM" MsgBox (MyStamp) End Sub 任何帮助，如果这是可能的，将不胜感激

VBA从Excel工作簿打印网页到PDF？: 我有一个Excel工作簿，下面的代码。它旨在导航到google.co.uk并以PDF格式打印网页。这工作几乎没有问题。代码导航到wepbage并打印到PDF并打开PDF文档。但是，我似乎有问题设置我想要文件保存的位置。我希望我的PDF文件始终保存在这个位置： G:\QUALITY ASSURANCE\06_SUPPLIER INFORMATION 但由于某种原因，它总是保存到桌面上。应该有一个保存为打开的对话框，但它永远不会显示。我已经从一个网站复制这个代码来尝试让我开始，所以我不假装理解所有这一切。我对VBA很新。本质上我的目标是让网页自动打印到PDF并保存在正确的文件夹中，而不需要用户提示保存对话框或不必保存。保存后，我也不希望PDF打开。这是我的代码。我怎样才能让我的代码做我需要的？码 option Explicit Public Declare Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function FindWindowEx Lib […]