如何用EXCEL VBA批次轉PDF檔
預覽：
這是在我的教學論壇有網路學員提的問題：
[問題詢問]如何修改VBA讓EXCEL自動轉存成PDF時不會出現副檔名 [連結]
先學會如何用EXCEL VBA批次另存成2003與CSV等格式 [連結]
與如何用EXCEL VBA自動批次匯入圖片與超連結 [連結]
與如何增加EXCEL VBA按鈕 [連結]
本範例主要是利用VBA的Workbooks物件的ExportAsFixedFormat方法，
可以一鍵就可以批次將EXCEL檔案批次匯出成PDF或其他格式，
這個範例主要是延續之前進階課裡提到的檔案自動匯出的觀念而來的，
如果沒有這方面概念者，建議還是要完整有系統學習為好，
比較重要的幾個簡易技巧有：
1.Application物件的FileDialog屬性，可以取得檔案或資料夾，回傳為字串。
2.用Dir函數，可以得知並列舉某資料夾中的所有檔案，直到找不到為止。
3.配合Do While迴圈，可以不斷列舉檔案，直到找不到檔案為止。
最後，配合Left與Len函數，可以將PDF檔名去除舊的xlsx附檔名訊息，
這是入門可成有教過的應用。
大數時代來臨如果不懂得裡用自動化方式處理資料，
處理資料將非常沒有效率，
至於處理大數據的方案很多，
但最通行也沒有額外費用的大概只剩VBA了。
而且開啟EXCEL就包含VBA，除了在Windows外，
MAC蘋果電腦一樣也有EXCEL，
VBA也可以沿用以前VB的資源，這樣看來VBA處理大數據應該沒有什麼對手了。
範例連結 [下載]
結果畫面：
上課內容：
01_轉檔結果畫面
02_操作介面
03_程式撰寫畫面
04_轉換成PDF檔多了附檔名
05_修改輸出時檔名的後5個字
06_修改結果沒有副檔名
程式碼：
csv轉檔 在 [問題] 請問excel 批次把xlsx 轉CSV - 看板Office - 批踢踢實業坊 的推薦與評價
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: Excel
版本: 2016,企業版
不好意思, 因為需要大量把xlsx檔案轉成csv (但是之前沒碰過VB)
在參考了板上的文章 https://www.ptt.cc/bbs/Office/M.1241585891.A.45C.html
試著稍微修改, 不曉得為何轉檔出來的檔案, 檔名一樣為*.xlsx,
而且會出現,
"Excel 無法開啟檔案,因為檔案格式或副檔名無效,請確認檔案沒有毀損,
且副檔名符合檔案的格式。"
大大感謝~
---我修改的code如下--
Sub Macro1()
Dim path As String
Dim obApp As New Excel.Application
Dim myFso: Set myFso = CreateObject("Scripting.FileSystemObject")
Dim wbnew
'要處理的目錄
path_IN = "C:\Users\Desktop\temp2\test\"
path_OUT = "C:\Users\Desktop\temp2\csv\"
obApp.DisplayAlerts = False
obApp.ScreenUpdating = False
Dim myfiles: Set myfiles = myFso.GetFolder(path_IN).Files
For Each myFile In myfiles
Set wbnew = obApp.Workbooks.Open(path_IN & myFile.Name)
With wbnew.Worksheets(1)
End With
'存檔並改成 excel 格式
wbnew.SaveAs Filename:=path_OUT & myFile.Name, FileFormat:=xlCSV
wbnew.Close
Set wbnew = Nothing
Next
obApp.ScreenUpdating = True
obApp.DisplayAlerts = True
Set obApp = Nothing
MsgBox ("完成!")
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.136.158.53
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1500395482.A.3E1.html
... <看更多>