首頁>Club>
是怎麼轉換的,有人知道嗎?
9
回覆列表
  • 1 # 布衣公子

    雖然網上也有很多EXCEL轉PDF的軟體,但有的不支援批次轉換,有的只能轉換前幾頁,剩下的需要充值VIP,還有的不能支援EXCEL多種檔案格式,如:副檔名為.xlsb或.xlsm的檔案,於是我琢磨了老半天,終於寫出了自認為比較方便實用的EXCEL轉PDF程式碼,雖然不是很完善,但是足夠應對日常工作啦。

    這個程式碼有以下2個優點:

    1、可以支援多種EXCEL檔案格式(.xlsx/.xlsm/.xlsb/.xls)

    2、可以選擇只匯出第1張工作表還是匯出全部非隱藏的工作表,是不是很靈活和智慧?

    這麼方便的工具,不用客氣,直接拿去用就好。具體使用方法如下:

    相關程式碼如下:

    Sub ETOP()

    Dim path1, path2 As String, str, fs, ext As String, i As Integer

    With Application.FileDialog(msoFileDialogFolderPicker)

    If .Show = True Then path1 = .SelectedItems(1) & "\" Else Exit Sub

    End With

    With Application.FileDialog(msoFileDialogFolderPicker)

    If .Show = True Then path2 = .SelectedItems(1) & "\" Else Exit Sub

    End With

    Application.AskToUpdateLinks = False

    Application.ScreenUpdating = False

    line1: fs = InputBox("請輸入匯出方式:" & Chr(10) & "1為僅匯出第一張表,0為匯出所有工作表", "匯出方式", 1)

    If fs <> 1 And fs <> 0 Then MsgBox "輸入不正確,請輸入1或者0": GoTo line1

    t = Timer

    str = Dir(path1 & "*.xl*")

    Do While str <> ""

    ext = CreateObject("Scripting.FileSystemObject").getextensionname(str)

    Workbooks.Open path1 & str

    With ActiveWorkbook

    If fs = 0 And .Sheets.Count > 1 Then

    For Each sh In .Sheets

    If sh.Visible = True Then sh.ExportAsFixedFormat xlTypePDF, path2 & Replace(str, ext, "") & "-" & sh.Name & ".pdf"

    Next

    Else

    .ExportAsFixedFormat xlTypePDF, path2 & Replace(str, ext, "pdf")

    End If

    .Close 0

    End With

    str = Dir()

    Loop

    Application.AskToUpdateLinks = True

    Application.ScreenUpdating = True

    MsgBox "親,轉換結束,共用時" & Format(Timer - t, "0.00秒"), vbOKOnly, "友情提示"

    End Sub

    2、回到工作表介面後,點選【開發工具】選項卡→【宏】→選擇名為【ETOP】的宏→點選【執行】→選擇EXCEL檔案存放的路徑→【確定】→選擇PDF的匯出路徑→【確定】→選擇匯出方式(1為僅匯出第1張工作表,0為匯出所有非隱藏工作表)→【確定】。具體操作詳見如下動圖。

    匯出方式為1:PDF檔名以【工作簿名稱】命名

    匯出方式為0:PDF檔名以【工作簿&"-"&工作表名】命名

    3、如果希望下次繼續用該檔案將EXCEL轉PDF,可以把檔案另存為【啟動宏的工作簿】,即字尾名為.xlsm格式的檔案。具體操作詳見如下動圖。

    以上是該問題的回答,希望對您有幫助!

  • 2 # CccH

    可以用虛擬印表機,虛擬印表機有什麼作用,虛擬印表機並不是真實存在的,它是一個電腦軟體,我們在列印檔案的時候,都會先預覽一下檔案再列印,這樣打印出來才能減少差錯,而這個虛擬印表機就是起到這個預覽的作用,還有並不只是這個功能,還可以幫你在列印的時候,轉換檔案的格式,有時候,沒有注意到檔案的格式,弄錯了格式,在列印的時候,可以及時轉換過來,打印出正確的格式。所以虛擬印表機對公司企業還是很需要的,特別是行政部門,文職都是必不可少的辦公軟體。

    下載工具地址:

    https://www.callmysoft.com/pdfprint

    第二步:將格式選為PDF格式

  • 3 # 閃電小江江

    Excel轉成pdf很簡單,我們利用好PDF轉換工具就可以了。

    藉助工具

    閃電PDF轉換器:https://www.callmysoft.com/pdfzhuanhuan

    操作步驟

    步驟一、安裝後直接雙擊桌面的快捷圖示就能快速開啟,看到以下操作介面就說明安裝成功了,想要怎樣的操作功能在介面的左側就能快速的找到;

    步驟二、我們需要的是將Excel文件轉換成PDF格式,所以在這裡,我們選擇左側選項欄裡的”其他檔案轉換成PDF”中的”Excel轉PDF”;

    步驟五、耐心等待一段時間後,軟體提示轉換成功,我們再到路徑中查詢並開啟檔案即可;

    步驟六、最終預覽效果如下。

  • 4 # 職場小知識

    Excel格式轉PDF格式可以很難也可以很簡單,簡單到你只要在手機上下載一款迅捷PDF轉換器(APP),就可以輕鬆完成包括Excel轉PDF在內的十幾種檔案格式的轉換,而且轉換效果也很贊。

    操作步驟:

    1:選擇轉換器

    準備好檔案,在手機應用市場搜尋並且開啟我們的迅捷PDF轉換器,準備完成後進入下一階段。

    2:開啟工具

    開啟PDF轉換器,在首頁有很多種檔案轉換方式可以選擇,比如PDF轉換Word、PPT轉換PDF等等,我們選擇Excel轉PDF。

    3:新增檔案

    4:Excel轉PDF

    5:轉換結果

    6:檔案庫

  • 中秋節和大豐收的關聯?
  • 日出、日落好拍嗎?需要用濾鏡嗎?沒有濾鏡,直接拍,怎麼能拍好看呢?