是否常常EXCEL Key單完成
需要將EXCEL 轉成PDF並且建立一個資料夾呢?
現在可以藉由下列程式碼,來達到一鍵自動化功能
-----------------------------------------------------------------------------------------------------------
Sub 匯出PDF()
'range("L4")=檔案匯出路徑
'range("L1")=匯出檔案名稱
'判斷資料夾是否已存在
f = Dir(Range("L4").Value, vbDirectory)
'如果不存在就建立資料夾
If f = "" Then MkDir (Range("L4").Value)
'設定路徑
ChDir "C:\Users\CR-033\Desktop\123"
'匯出格式設定
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("L4").Value & Range("L1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Dim Foldername As String
'資料夾名稱
Foldername = Range("L4")
'打開資料夾(視窗在畫面上)
Shell "explorer.exe """ & Foldername & "", vbNormalFocus
End Sub
- Jan 17 Fri 2020 13:17
VBA -EXCEL轉成PDF 並自動建立資料夾
文章標籤
全站熱搜
留言列表