[已解决]另存的问题

yl.fu

hwc2ycy 发表于 2013-5-11 11:06
上面的MKDIR可以删除的，已经没有用了。

谢谢老师{:2912:}

yl.fu

hwc2ycy 发表于 2013-5-11 10:33
是文件的话，我后面帮你建文件夹也会失效的。

當我將    For i = 5 To Worksheets.Count       改為   For i = 3 To Worksheets.Count  時  第3 和第4個工作表如何按原名保存啊，謝謝

hwc2ycy

原名的话，你就判断嘛，如果是第3，4个，就直接用原名嘛。

hwc2ycy

或者就做成两个循环，3，4用一个，5-最后用一个。省得在代码中判断了。

yl.fu

我改了後不會中斷沒路徑的會保存當前路徑下不過都是以BOOK 1   BOOK2   另存的，求解

yl.fu

hwc2ycy 发表于 2013-5-15 13:05
或者就做成两个循环，3，4用一个，5-最后用一个。省得在代码中判断了。

我改了後不會中斷沒路徑的會保存當前路徑下不過都是以BOOK 1   BOOK2  另存的，求解

yl.fu

hwc2ycy 发表于 2013-5-15 13:04
原名的话，你就判断嘛，如果是第3，4个，就直接用原名嘛。

我試了下沒搞成功，中間是喔加的，不知哪錯了，求解，謝謝老師
Sub у秖??()
    Dim i As Byte
    On Error GoTo ErrorHandler
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
   
   
   
   
   
   
   
   
      ipath = ThisWorkbook.Path & "\"
   For i = 3 To 4
        Worksheets(i).Copy
      ActiveWorkbook.SaveAs ipath & Worksheets(i).Name & ".xls", FileFormat:=xlExcel8
        ActiveWorkbook.Close True
    Next
   
   
   
   
   
   
   
    For i = 5 To Worksheets.Count
        Worksheets(i).Copy
      
        ActiveWorkbook.SaveAs Filename:=Replace(Range("i5").Value, ".prt", ".xls"), FileFormat:=xlExcel8
        ActiveWorkbook.Close True
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "OK"
ErrorHandler:
    Debug.Print Err.Number & Err.Description
    Resume Next
End Sub

yl.fu

hwc2ycy 发表于 2013-5-15 13:05
或者就做成两个循环，3，4用一个，5-最后用一个。省得在代码中判断了。

以搞好了謝謝
Sub 抱抱()
On Error GoTo ErrorHandler
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
Sheet3.Copy
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name
        ActiveWorkbook.Close True
        Sheet4.Copy
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name
        ActiveWorkbook.Close True
        Application.ScreenUpdating = True
    Application.DisplayAlerts = True
ErrorHandler:
    Debug.Print Err.Number & Err.Description
    Resume Next
End Sub

yl.fu

hwc2ycy 发表于 2013-5-11 08:15

老師的防錯和強制格式真爽~~~
Sub 抱抱()
On Error GoTo ErrorHandler
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
Sheet3.Copy
        ActiveWorkbook.SaveAs Filename:=Range("u1") & "\" & ActiveSheet.Name & Format(Now, "yyyy-m-d") & ".xls", FileFormat:=xlExcel8
        ActiveWorkbook.Close True
        Sheet4.Copy
        ActiveWorkbook.SaveAs Filename:=Range("u1") & "\" & ActiveSheet.Name & Format(Now, "yyyy-m-d") & ".xls", FileFormat:=xlExcel8
        ActiveWorkbook.Close True
        Application.ScreenUpdating = True
    Application.DisplayAlerts = True
ErrorHandler:
    Debug.Print Err.Number & Err.Description
    Resume Next
End Sub