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

[µo°Ý] ½Ð°Ý¦p¦ó¿ï¨ú³¡¤À¬¡­¶ªí°õ¦æ¥t¤@¥¨¶°,¨ÃÂনPDFÀÉ,ÁÂÁÂ!!

[µo°Ý] ½Ð°Ý¦p¦ó¿ï¨ú³¡¤À¬¡­¶ªí°õ¦æ¥t¤@¥¨¶°,¨ÃÂনPDFÀÉ,ÁÂÁÂ!!

¦U¦ì¤j¤j,¤j®a¦n,§Ú¬OVB·s¤â,
½Ð±Ð¦U¦ì°ª¤â«e½ú,
¤p©fªºexcel¥]§t¤F¥H¤U´X­Ósheet:  AA,BB,CC.1.2.3.4.5.....K (Kªí¥Ü¤@¼Æ¦r,¦ý¨C¦¸¨Ï¥Î¦¹excel®É·|²£¥ÍªºK­È¤£¤@©w)
¦Ó1~K³o¨Ç¼Æ¦r¦P®É¦bAA¬¡­¶ªíªºA5,A6,A7...¥H¦¹Ãþ±À(¥Ñ©óAA¬¡­¶ªíA1~A4¦³¨ä¥L¸ê®Æ,©Ò¥HA5=1,A6=2....)
½Ð°Ý¥H¤U¤G­Ó°ÝÃD:
1.½Ð°Ý¦p¦ó¨Ï1~K¬¡­¶ªí§¡°õ¦æ¥t¤@¥¨¶°Macro¥Ò?
2.½Ð°Ý¦p¦ó¿ï¨ú1~K¬¡­¶ªí¨ÃÀx¦s¦¨PDFÀÉ?

¥H¤W¤G¬q½Ð¤À¦¨¤G³¡¤À
Àµ½Ð½ç±Ð,ÁÂÁ¦U¦ì~~!!

¤j­Pªº®Ø¬[:
Dim rng As Range
    Dim sSht As String, sWk As String
    With Worksheets("AA")
        For Each rng In .Range("a5:a" & .[a65536].End(xlUp).Row)
            sSht = "CC." & rng.Value
            With Worksheets(sSht)
                Macro¥Ò
                sWk = ThisWorkbook.Path & "\" & sSht
                If Dir(sWk) <> "" Then Kill sWk
                .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sWk, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
            End With
        Next
    End With

TOP

Dear et5323¤j¤j,«D±`·PÁ±zªº¦^ÂÐ,
§Ú¸Õrun¤§«á,µo²{¦b With Worksheets(sSht) µo¥Í¿ù»~,½Ð°ÝÀ³¦p¦ó­×§ï©O?
ÁÂÁÂ

TOP

¦^´_ 3# yafeii
°ÝÃD¦bMacro¥Ò °õ¦æ®É¬O§_±N§@¥Î¤¤ªº¬¡­¶Ã¯Âಾ¨ì¥t¤@­Ó¬¡­¶Ã¯¤¤ ·|³y¦¨¿ù»~ªº
«Øij¥[¤W¬¡­¶Ã¯ªº¦WºÙ¸Õ¸Õ¬Ý
With Workbooks("???").Worksheets(sSht)

TOP

¤]¦³¥i¯à¬O¦b¥N码©Ò¦b¬¡­¶Ã¯¤¤®Ú¥»´N¤£¦s¦bWorksheets("cc.?")³y¦¨ªº.¥i¥H¦b¥N码ªº«e­±¥[¤@¥y:on error resume next;©Î¥ý进¦æ§P断Worksheets("cc.?")¬O§_¦s¦b,¦A执¦æ¥N码.

问问题³Ì¦n¦³ªþ¥ó.

TOP

·PÁÂet5323¤ÎGBKEE,¨ü¯q«Ü¦h..

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD