如何解决将 Excel VBA 用户表单另存为 PDF
我在 Excel 中创建了一个用户表单,效果很好。不幸的是,我在保存表格时遇到了麻烦。想法是,几个同事可以使用此表单,因此拥有标准保存文件夹或驱动器是行不通的,因为并非所有同事都可以访问所有驱动器。我希望出现一个窗口,询问用户将文档保存为 pdf 的位置。我知道有“saveCopyAs”命令,但我无法使用 PDF 作为格式运行它。
解决方法
请尝试下一个简单的代码。运行您的代码以按照您的方式导出表单,激活发生此操作的工作表并运行下一个代码,或在进行导出的过程中插入这些代码行:
Sub exportShAsPDF()
Dim strPath As String
strPath = folderPicker 'the ending "\" included...
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,fileName:= _
strPath & "Form.pdf"
End Sub
使用下一个函数选择保存pdf文件的文件夹:
Function folderPicker() As String
Dim tempFileDialog As FileDialog,initialFolder As String,strN As String
initialFolder = "C:\"
Set tempFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With tempFileDialog
.AllowMultiSelect = False
.InitialFileName = initialFolder
If Not .Show = -1 Then Exit Function
End With
strN = tempFileDialog.SelectedItems(1)
folderPicker = left(strN,InStrRev(strN,"\"))
End Function
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。