hayden0009

¸ô®|°²³]¡Gc:\test\
ÀɦW°²³]¡Gtest
¿é¥X·|©ñ¸m©ó¡Gc:\test\test.pdf
================================================================================
Dim File_Name As String
Dim Path As String
UserName = Environ("username")
Path = InputBox("¸ô®|", "")
MkDir Path
File_Name = InputBox("ÀɦW", "")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & File_Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False