[已解决]vba 指定路径保存

野渡无舟

指定路径进行保存数据
请老师帮忙

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-1 19:10

1. Sub 保存()
   
2.     Dim rg As Range
   
3.     Set rg = Application.InputBox("请选择要保存的区域", , , , , , , 8)
   
4.     rg.Copy
   
5.     Workbooks.Add
   
6.     ActiveSheet.Range("a1").PasteSpecial
   
7.     With Application.Dialogs(xlDialogSaveAs)
   
8.         If .Show Then
   
9.             MsgBox "保存完成"
   
10.         End If
    
11.     End With
    
12.     ActiveWorkbook.Close True
    
13. End Sub

复制代码

选中区域就能指定路径保存。

跳转到最佳答案楼层

hwc2ycy

用 save或saveas的时候跟上完全的路径名和文件名即可。

hwc2ycy

你是要求按列存入不同的工作簿还是怎么的？

hwc2ycy

1. Sub 保存()
   
2.     Dim rg As Range
   
3.     Set rg = Application.InputBox("请选择要保存的区域", , , , , , , 8)
   
4.     rg.Copy
   
5.     Workbooks.Add
   
6.     ActiveSheet.Range("a1").PasteSpecial
   
7.     With Application.Dialogs(xlDialogSaveAs)
   
8.         If .Show Then
   
9.             MsgBox "保存完成"
   
10.         End If
    
11.     End With
    
12.     ActiveWorkbook.Close True
    
13. End Sub

复制代码

选中区域就能指定路径保存。

hwc2ycy

1. Sub 保存()
   
2.     Dim rg As Range
   
3.     On Error Resume Next
   
4.     Set rg = Application.InputBox("请选择要保存的区域", , , , , , , 8)
   
5.     If Err.Number <> 0 Then
   
6.         MsgBox "请选择要保存的区域后点击 确定 "
   
7.         Err.Clear
   
8.         Exit Sub
   
9.     End If
   
10.     rg.Copy
    
11.     Workbooks.Add
    
12.     ActiveSheet.Range("a1").PasteSpecial
    
13.     With Application.Dialogs(xlDialogSaveAs)
    
14.         If .Show Then
    
15.             MsgBox "保存完成"
    
16.         End If
    
17.     End With
    
18.     Application.CutCopyMode = False
    
19.     ActiveWorkbook.Close True
    
20. End Sub
    
21. 改了下。

复制代码

yanyue

学习一下，顶一个…