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

"sheeet1"¬°¤£©T©w¦r¦ê¤Î¼Æ¦r,¦p¦ó¥t¦s·sÀÉ

"sheeet1"¬°¤£©T©w¦r¦ê¤Î¼Æ¦r,¦p¦ó¥t¦s·sÀÉ

°²³]§Ú¦³¤T­Ó¤u§@ªí¬° "sheet1"; "sheet2"; "sheet3" (¦ý³o¤T­Ó¤u§@ªí¦WºÙ¤£¬O©T©w¦r¦ê¤Î¼Æ¦r,·|Åܧ󦨨ä¥L¦WºÙ)
¥t¦s·sÀÉ«á¦Û°Ê¤À¶}¦¨¤T­ÓÀɮרåH³o¤T­Ó¤u§@ªí©R¦W
¸Ó¦p¦ó³B²z??

Sub test()
    Dim xlSht As Worksheet, sFile As String
    For Each xlSht In Sheets(Array(Sheet1.Name, Sheet2.Name, Sheet3.Name))
        With xlSht
            sFile = ThisWorkbook.Path & "\" & .Name & ".xls"
            If Dir(sFile) <> "" Then Kill sFile
            .Copy
            ActiveWorkbook.SaveAs sFile
        End With
    Next
End Sub

TOP

¦sÀɸô®|­×§ï¦¨ ActiveWorkbook.SaveAs Filename:="E:\test\"
¥X²{¿ù»~°T

TOP

¦sÀɸô®|­×§ï¦¨ ActiveWorkbook.SaveAs Filename:="E:\test\"
¥X²{¿ù»~°T
yueh0720 µoªí©ó 2010-10-20 13:45

E:\test ³o¸ê®Æ§¨¦s¦b¶Ü?

TOP

E:\test ³o¸ê®Æ§¨¦s¦b

TOP

¦^´_ 6# yueh0720


    sFile = ThisWorkbook.Path & "\" & .Name & ".xls"
§ï¦¨
sFile = "E:\test\" & .Name & ".xls"
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥i¥H¤F,Á¤Fª©¥D

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD