[已解决]另存的问题

hwc2ycy

yl.fu 发表于 2013-5-11 09:22
301djr01.prt  是一个文件 ，此文件现没有，不知是不是这个原因

你1楼说是路径，{:412:}

yl.fu

hwc2ycy 发表于 2013-5-11 10:07
你1楼说是路径，

老大，我知道错了，谢谢

hwc2ycy

那现在你是要改名还是怎么操作？

yl.fu

直接去掉i5中c:\301djr01.PRT  的  .Part     保存c:\301djr01.XLS 就可以了，谢老大

yl.fu

直接去掉i5中c:\301djr01.PRT  的  .Part     保存c:\301djr01.XLS 就可以了，

hwc2ycy

yl.fu 发表于 2013-5-11 09:22
301djr01.prt  是一个文件 ，此文件现没有，不知是不是这个原因

是文件的话，我后面帮你建文件夹也会失效的。

yl.fu

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

您发的第二个是可以的，只是建了个301djr01.part 资料夹，我可能表达的不好，简单点就是想把5工作表以后的工作表按各自I5 保存 只是 .PRT  改为 . XLS   

hwc2ycy

1. Sub 批量另存()
   
2.     Dim i As Byte
   
3.     On Error GoTo ErrorHandler
   
4. 
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7.     For i = 5 To Worksheets.Count
   
8.         Worksheets(i).Copy
   
9.         MkDir Range("i5").Value
   
10.         ActiveWorkbook.SaveAs Filename:=Replace(Range("i5").value, ".prt", ".xls"), FileFormat:=xlExcel8
    
11.         ActiveWorkbook.Close True
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14.     Application.DisplayAlerts = True
    
15.     MsgBox "OK"
    
16. 
    
17. ErrorHandler:
    
18.     Debug.Print Err.Number & Err.Description
    
19.     Resume Next
    
20. End Sub

复制代码

yl.fu

hwc2ycy 发表于 2013-5-11 10:52

谢谢老大让我学了3招

hwc2ycy

上面的MKDIR可以删除的，已经没有用了。