- ©«¤l
- 11
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN200
- ³nÅ骩¥»
- NA
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2020-1-21
- ³Ì«áµn¿ý
- 2022-3-31
|
¸ô®|°²³]¡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 |
|