毛毛狂的部落格

是否常常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