我完全是vba的新手,需要使用VBA将多个图形从excel工作簿导出到单个pdf。我知道可以将图形导出为单独的pdf或jpg,但是否可以使用vba将工作簿中的所有图形放入一个pdf中?任何建议都将非常感谢,因为我似乎找不到我在其他地方寻找的东西。
到目前为止,我的代码将每个图表打印到pdf,但是每个图表在下一次打印时都会被覆盖。我的代码如下:
Sub exportGraphs()
Dim Ws As Worksheet
Dim Filename As String
Filename = Application.InputBox("Enter the pdf file name"
昨天我试着为朋友把一组PPTs转换成PDF,我决定看一看PowerShell,因为它在我的硬盘上已经有一段时间了。
这是我想出的密码。
$p = new-object -comobject powerpoint.application
# I actually don't know why I have to set the window to visible,
# but it doesn't work otherwise, anyway, it's not the real problem I have
$p.visible = 1
$f = $p.pres
如果可能的话,我想添加一些代码来检查“返回注释”中是否有一个与B1具有相同文本值的文件(其中包含文件名)。
Private Sub CommandButton1_Click()
Dim NameofWorkbook As String
NameofWorkbook = "RN" & Range("B1")
MyMsg = NameofWorkbook + " " & "saved to return note folder"
'Create and assign variables
Dim save
我正在尝试ExportAsFixedFormat任何excel文件从一个特定的文件夹,如果他们匹配我的范围从B3到lr。(range是文件名减去扩展名) 这就是我到目前为止所拥有的。目前它尝试打开每个文件(并非所有都是excel文件,有些是autocad文件)并将.xlsx导出为pdf。它PDF当前页面(这是我不想要的),它PDF我的列表中的一个.xlsx文件。 我不想打印该文件夹中的所有excel文件,只打印该范围中的文件。 感谢您的反馈。 Sub ExcelPrint()
Dim myFile As String, myFolder As String
Dim LoginName As
我的宏如下所示。我正在尝试将我的excel表格保存为pdf文档。当我运行我的宏时,我得到一条“打印时出错”的消息,接着是:运行时错误'1004':应用程序定义的错误或对象定义的错误
我正在运行Microsoft Excel for Mac版本15.13.1。
这是我的宏。怎么啦?
Sub SAVE_DIRECTORY_IN_PDF_FORMAT()
Dim DIRECTORY As Worksheet
Dim DIRECTORY2 As Worksheet
Sheets("DIRECTORY").Select
ActiveSheet.ExportAsFixed
我正在编写一个VBA代码,以便将excel中的一些表导出到相同的PDF中。我的excel文件中有几张图表表,每个表的名称都以“(名称)_Chart”结尾。我想导出所有的纸张与名称结束的with图表到一个PDF文件。这是我想要写的代码。
Sub FindWS()
'look if it at least contains part of the name
Dim s As Worksheet
Dim strPath As String
strPath = ActiveWorkbook.Path & "\
因此,当我运行代码时,PDF会获得一个额外的空白页面。
已尝试使分页符连续。尝试删除字符。
它们删除了页眉和页脚,但它们是必需的。
Sub Word_ExportPDF()
Dim i As Long
Dim CurrentFolder As String
Dim FileName As String
Dim myPath As String
myPath = ActiveDocument.FullName
CurrentFolder = ActiveDocument.Path & "\"
FileName = Mid(myPath, InStrRev(myPath
如何将Excel电子表格导出到PDF/A (ISO 19005-1)?
编辑:我要求的是PDF/A,不是普通的旧PDF1.5,因为它是默认导出的。我甚至在我最初的问题中强调了A。
我已经可以使用PowerPoint函数将Word和PowerPoint文档导出到PDF/A,因为Word和PowerPoint函数都有一个可选的UseISO19005_1参数,但是Excel非常不同,而且缺少很多参数。
我似乎找不到使用COM互操作导出PDF/A的任何方法。
下面是从docx导出的代码:
Dim ExportFormat As WdExportFormat = WdExportFormat.wdExp
我有多个演示文稿打开,并希望将其保存为PDF格式。我有这样的代码:
For Each prs In Presentations
With prs.Windows(1)
If Not .Active Then
.Activate
End If
End With
ActivePresentation.ExportAsFixedFormat "d:\\temp\\" & prs.Name & "-color.pdf", _
ppFixedForma
我想在一个变量中设置所有命名范围并导出为PDF。当我手动输入所有指定的范围时,我可以这样做。我的问题是命名范围是可变的,有时它会有一个时间,它会有超过10个。请注意……我尝试了以下代码。
Dim wbBook As Workbook
Dim nName As Name
Set wbBook = ActiveWorkbook
Set nName=wbBook.Names
Set rs = wbBook.Range(nNames)
rs.Select
Selection.ExportAsFixedFormat xlTypePDF, strPath, , , False
但是下面的代码适用于我,
我尝试了以下解决方案从Excel打印到PDF:
它产生
运行时错误1004
在wb.ExportAsFixedFormat上。
我的Excel: 2007版。
我更改了文件路径,以便将其保存到我的桌面上。
Sub Invoice_to_PFD()
'Saves the invoice print area to a PDF file
Dim fp As String
Dim wb As Workbook
fp = "C:\desktop\NewInvoice.pdf"
Set wb = ActiveW
当我保存到本地驱动器时,我的代码运行得很好,但是当我保存到共享驱动器时,会得到运行时错误5吗?这是怎么发生的?
我有未合并的单元格,并将整个文档放在selectionEnsured的中心位置,即整个文档位于打印边距内。
编辑:我已经尝试保存到上面的文件夹目录中,在那里我保存并且它工作。我知道有一个字符限制(路径名和标题),哪一个可能是问题?有办法解决这个问题吗?
错误发生在以下领域:
'Creating Only the PDF based on Company Network - there is an existing folder
ActiveSheet.ExportAsFixe
我无法让SaveAsFixedFormat从Excel导出PowerPoint文件为PDF格式。我已经求助于启动预置的宏- PowerPoint从Excel,它将演示文稿直接从PowerPoint导出为pdf。
是否有任何方法引用此宏中运行在PowerPoint中的Excel文件中的单元格来获取文件名?
Sub pppdf()
ActivePresentation.ExportAsFixedFormat "M:\random\test.pdf", 32
End Sub
我可以将PowerPoint文件从.pptx中保存为.pptx,并使用不同的文件名和路径,但是现在我想在导
我正在创建一个VBScript,它将运行一个循环并获取指定文件夹中的所有XLSX文件,然后将它们保存为PDF格式。那部分我开始工作了。我遇到的问题是,生成的PDF文件在顶部和底部都有空白/空白。我只是用一个带有2列和10行的小XLSX文件进行测试。
问题:如何消除VBScript保存的PDF文件顶部和底部的空白?
'Set Objects and Variables
Set xlObj = CreateObject("Excel.Application")
Set fso = CreateObject("Scripting.FileSystemObject
内置PDF-附加按钮
在Excel 2013及更高版本中,可以将“电子邮件作为PDF的PDF”按钮添加到自定义色带中。此按钮将发布整个工作簿,将pdf保存在临时文件夹中,并将其附加到默认电子邮件客户端的新电子邮件中,其中工作簿名称(.xlsm)为主题,没有收件人。
当将按钮单击记录为宏时,记录的代码在从VBA编辑器执行时将不会以相同的方式运行,因为附件(从xlDialogSendMail运行时)将成为xlDialogSendMail文件,这可能是由于xlDialogSendMail中的记录错误所致。(我不知道这是否已向办公室发展小组报告)
记录输出:(不复制按钮操作)
Sub Mac
对于一个论坛来说,这可能是一个太简单的问题,但我有点困住了,而且我的编程技巧非常有限。在vba中提交用户表单后,我希望程序检查用户是否犯了逻辑错误。有几个CheckBoxes,组合选择是可能的,但并不是所有的组合都被允许。因此,我编写了以下代码,以防止用户通过选择两个特定的CheckBoxes提交表单。但是程序完全忽略了这个if语句,而且无论选择什么CheckBoxes,都不会改变任何情况。
If userform1.CheckBoxOption3.Value = True And userform1.CheckBoxOption7.Value = True Then
MsgBox "
我试图添加一个按钮,按钮提示用户输入一个页面号码,然后保存到pdf中。
下面是我用来保存为pdf的代码。
'export to PDF if a folder was selected
If myFile <> "False" Then
wsA.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
我正在使用一个vba代码,该代码将一个文件夹中的多个word文档转换为单独的pdf文件。
问题是,我无法将word文件保存为pdf格式。
以下是代码:
Sub convertword()
Dim Filename As String
Dim irow As Integer
Dim jsObj As Object
Dim NewFileName As String
Dim objWord As Object
Dim strDocName As String, strDocName1