ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VB¿é¥XPDF¨C¦¸¥i¦Û­q·sÀɦW»P·s¸ô®|

[µo°Ý] VB¿é¥XPDF¨C¦¸¥i¦Û­q·sÀɦW»P·s¸ô®|

¦U¦ì¤j¤j­Ì¦n!

¥Ø«e§Ú¥¿­n¥ÎVB¼g«ö¶s¥i¥Hª½±µ±NÀɮ׿é¥X¦¨PDF
¥Ø«eªºµ{¦¡½XÀɦW»P¸ô®|³£¬O©T©wªº¡A¨C¦¸¿é¥XªºPDFÀɮ׳£·|§âÂÂÀÉÂл\¡A¦ý§Ú·Q­n¦P®É«O¦sÂÂÀÉ»P·sÀÉ¡A¦Ó¤£¬O¨ú¥N¥¦
½Ð°Ý§Ú¸Ó¦p¦ó§ó§ï¡A¦b¨C¦¸¿é¥X¦¨PDFªº®É­Ô¥i¥H¥t¦s·sÀɦW»P§ó§ï¸ô®|·Q­nÀx¦sªº¸ô®|©O?
µ{¦¡½X¦p¤U:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          "D:\Test\P2\ Study.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

Áٳ·Фj¤j­Ì±Ð±Ð§Ú!·PÁ¤j®a!

¸ô®|°²³]¡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

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD