Excel vba | 存檔時,將存檔的檔名自動生成儲存格的文字

Excel vba 存檔的檔名為儲存格的文字,若我們另存新檔,EXCEL檔名要命名為,工作表1的A1儲存格文字,
我們先建立一個按鈕,開啟巨集,在巨集內加入下述程式碼:

FileNameALL = Worksheets(“工作表1”).Range(“A1”).Value             ‘抓工作表1的A1值
Application.Dialogs(xlDialogSaveAs).Show (FileNameALL)

就完成了唷 🙂 接著只要存檔時,該按鈕就會執行上述VBA程式,就會進入存檔時的畫面了 🙂

在〈Excel vba | 存檔時,將存檔的檔名自動生成儲存格的文字〉中有 5 則留言

  1. 請問
    如果是快速列印出PDF時,檔名要命名為儲存格文字,巨集要如何輸入?
    不知版大能否解答

    1. 路過看到就回下 雖然一年過去了哈哈
      Dim 名稱 As String
      名稱 = Range(“A1”).Value
      Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      “C:\yanchen\” & 名稱 & “.pdf”, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      True

發表迴響

返回頂端