kimbal

¦^´_ 3# a703130

saveas «á­«·s¶}¥X¨Ó

   Dim strCurrPath As String, strCurrBook As String
    strCurrPath = ThisWorkbook.Path
    strCurrBook = strCurrPath & "\" & ThisWorkbook.Name
   
    ThisWorkbook.Save '¥ý¦Û¦æSAVE1¦¸
    ActiveWorkbook.SaveAs Filename:=strCurrPath & "\ABC.abc", _
        FileFormat:=xlTextPrinter, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Workbooks.Open (strCurrBook)
    ThisWorkbook.Close (False)