最近小弟在研究EXCEL巨集 我要做的事情是把他轉PDF 目前我用錄製已經完成 但是會產生以下兩個問題 第一 他轉出的檔案名稱都被固定成我第一次錄製檔案的名子 我要如何才能改成我每次做的EXCEL的鳴子呢 第二 我轉出的檔案位置也會被固定住 要如何轉出在我每次作業的新資料夾裡呢?
回答 (1)
2018-02-03 9:29 pm
https://dotblogs.com.tw/yc421206/2008/11/23/6055
Sub test()
Sht = Replace(ThisWorkbook.Name, ".xlsm", "")
MsgBox Sht
SavePath = ThisWorkbook.Path
MsgBox SavePath
................ Filename:=SavePath & "\" & Sht & ".pdf"
End Sub
Sub test()
Sht = Replace(ThisWorkbook.Name, ".xlsm", "")
MsgBox Sht
SavePath = ThisWorkbook.Path
MsgBox SavePath
................ Filename:=SavePath & "\" & Sht & ".pdf"
End Sub
收錄日期: 2021-05-03 06:48:32
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20180203051856AAUiWz7