[已解决]求助下面这条代码是保存在当前文件夹的代码，如何才能改成保存以E盘GHOST文件内

qinhuan66

下面这条代码是保存在当前文件夹的代码，如何才能改成保存以E盘GHOST文件内。谢谢

1. Private Sub CommandButton1_Click()
   
2. 
   
3. Dim strFilename$$$$ '下面代码是保存
   
4. Application.ScreenUpdating = False
   
5. Application.DisplayAlerts = False
   
6. strFilename = ThisWorkbook.Path & ""
   
7. strFilename = strFilename & Format(Now, "yyyymmddhhmmss") & "-" & Sheet2.[a2] & ".xls"
   
8. ActiveSheet.Copy
   
9. For Each obj In ActiveSheet.Shapes
   
10. obj.Delete
    
11. Next
    
12. With ActiveWorkbook.VBProject.VBComponents("sheet2")
    
13. .CodeModule.DeleteLines 1, .CodeModule.CountOfLines
    
14. End With
    
15. ActiveWorkbook.SaveAs FileName:=strFilename
    
16. ActiveWorkbook.Close True
    
17. Application.ScreenUpdating = True
    
18. Application.DisplayAlerts = True
    
19. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-2 13:52

strFilename = ThisWorkbook.Path & "\"
改为
strFilename = “e:\ghost\"

跳转到最佳答案楼层

hwc2ycy

ThisWorkbook.Path换成你要的路径即可。

hwc2ycy

strFilename = ThisWorkbook.Path & "\"
改为
strFilename = “e:\ghost\"

qinhuan66

hwc2ycy 发表于 2014-11-2 13:52
strFilename = ThisWorkbook.Path & "\"
改为
strFilename = “e:\ghost\"

版主你好！如果E盘GHOST文件夹不存在能否自动新建一个GHOST文件夹后保存？谢谢

hwc2ycy

1.     On Error Resume Next
   
2.     MkDir "e:\ghost"

复制代码