Excel vba 存檔的檔名為儲存格的文字,若我們另存新檔,EXCEL檔名要命名為,工作表1的A1儲存格文字,
我們先建立一個按鈕,開啟巨集,在巨集內加入下述程式碼:
FileNameALL = Worksheets(“工作表1”).Range(“A1”).Value ‘抓工作表1的A1值
Application.Dialogs(xlDialogSaveAs).Show (FileNameALL)
就完成了唷 🙂 接著只要存檔時,該按鈕就會執行上述VBA程式,就會進入存檔時的畫面了 🙂
請問
如果是快速列印出PDF時,檔名要命名為儲存格文字,巨集要如何輸入?
不知版大能否解答
這個部分 pdf這邊我沒有再深入研究了 >< 不好意思 ><
Dim 名稱 As String
名稱 = Range(“T9”).Value
路過看到就回下 雖然一年過去了哈哈
Dim 名稱 As String
名稱 = Range(“A1”).Value
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
“C:\yanchen\” & 名稱 & “.pdf”, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
呵呵 謝謝您的分享唷,時間過好快這文章還有被看到,好感動