如何用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_修改結果沒有副檔名
程式碼:
vb字串包含 在 吳老師excel函數與vba大數據教學 Facebook 的最佳貼文
如何用EXCEL VBA批次轉PDF檔
完整連結:http://terry55wu.blogspot.tw/2015/08/excel-vbapdf.html
這是在我的教學論壇有網路學員提的問題:
[問題詢問]如何修改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處理大數據應該沒有什麼對手了。
範例連結 [下載]
vb字串包含 在 [VB6 ] 字串包含換行判斷- 看板Visual_Basic - 批踢踢實業坊 的推薦與評價
請教各位一個問題,最近想處理一個字串,但裡面包含有換行字元,我試著模擬
這個字串為A & Chr(10) & Chr(13) & B,結果會像
A
B
但是我想把換行字元除掉,把每一行當作一個新字串,就會有字串A與字串B,我
程式如下。
Private Sub CommandButton1_Click()
Dim a As String
Dim c As Integer
c = 0
Dim data(2) As String
a = ("A" & Chr(10) & Chr(13) & "B")
For i = 1 To Len(a)
data(c) = data(c) & Mid(a, i, 1)
If Mid(a, Len(a), 1) = Chr(10) Then
c = c + 1
End If
If Mid(a, Len(a), 1) = Chr(13) Then
c = c + 1
End If
Next i
End Sub
但把他讀進來後似乎不能用x=Chr(13)這樣,不知道如果遇到字串換行判斷在VB要如何
處理?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.112.192.121
... <看更多>