怎样将Excel转化为PDF
发布网友
发布时间：2022-04-20 12:20
共3个回答
热心网友
时间：2022-05-20 13:46
Excel文件我们在发送是或者是接收是都是以PDF文件发送的，那为什么以PDF的格式发送呢？
因为PDF具有许多其他电子文档格式无法相比的优点。PDF文件格式可以将文字、字型、格式
颜色及于设备和分辨率的图形图像等封装在一个文件中。该格式文件还可以包含超文本链接、声音和动态影像等电子信息，支持特长文件，集成度和安全可靠性都较高。所以我们都会把做好的文件转成PDF文件进行发送或者保存。那我们工作中所用的表格如何转成PDF格式来发送或者保存呢？
方法：利用转换器
推荐转换器：SanPDF
转换步骤：
1、这个软件是SanPDF的PC端，直接在SanPDF的首页就可以直接下载下来。很方便啦~
2、下载完成后，打开下载的文件并开始安装SanPDF客户端。您可以选择所需的安装路径，或者选择是否创建开始菜单文件夹。选择后，单击开始安装。安装完成后，桌面上将出现SanPDF图标。
3、点击“start now”就安装完成了。
4、打开SanPDF的PC端，一共有12种转换功能点击你想转换功能。
5、选择你要转换的PDF文件开始转换就好了。并且效果真的挺好，极少的会有乱码的现，最重要的是可以多个PDF文件转换很省时间。
热心网友
时间：2022-05-20 13:46
1、ALT+F11，进入VBE对话框
2、右击-插入-模块
3、直接复制粘贴进入即可
4、按F5运行或者点击三角按钮运行代码
Sub BatchConvertWorkBookToPDF()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
Dim wkBook As Workbook
Dim showFolder As Boolean
showFolder = False
With fDialog
.Filters.Add "Excel文件", "*.xls; *.xlsx; *.xlsm", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
'如果选择了本工作簿则跳过
If InStrRev(vrtSelectedItem, ThisWorkbook.Name) = 0 Then
On Error Resume Next
Set wkBook = Application.Workbooks.Open(vrtSelectedItem, ReadOnly:=True, Password:="")
'跳过设置打开密码的工作簿
If Not wkBook Is Nothing Then
'跳过隐藏的工作簿
If Windows(wkBook.Name).Visible = True Then
For i = 1 To Sheets.Count
wkBook.Sheets(i).Select
Application.Calculation = xlManual
wkBook.Sheets(i).Unprotect
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Next
For i = 1 To Sheets.Count
If wkBook.Sheets(i).Name = "不打印" Then wkBook.Sheets(i).Delete
Next
showFolder = True
'转换开始
wkBook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Left(vrtSelectedItem, InStrRev(vrtSelectedItem, ".") - 1) & ".pdf" _
, Quality:=xlQualityMinimum, IncludeDocProperties:=False, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
wkBook.Close , savechanges = False
Else
wkBook.Close , savechanges = False
End If
End If
End If
Next vrtSelectedItem
If showFolder Then Call Shell("explorer.exe " & Left(fDialog.SelectedItems(1), _
InStrRev(fDialog.SelectedItems(1), "\")), vbMaximizedFocus)
End If
End With
Set fDialog = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
热心网友
时间：2022-05-20 13:47
方法1 、装pdf打印机，将excel 打印成pdf
方法2、excel2007支持另存为pdf
