[已解决]关于EXCEL宏的问题

sunshinegg

-----------------------------------------------------------------------------------------------------
你好，版主
请不要把这贴移动到『Excel VBA程序开发』版好吗？那个版块人气不足 而且我的问题很基础的 应该算是常见得基础问题。
拜托啦

---------------------------------------------------------------------------------------------------

我用宏录制了一段代码，如下：
ChDir _
        "D:\Documents and Settings\abc\桌面\folderA    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\abc\桌面\folderA\nameB.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
ChDir _
        "D:\Documents and Settings\abc\桌面\folderA    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\abc\桌面\folderA\nameB.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False





它的作用就是保存文件
我经常要重复该动作，但是问题是：其中的folderA 和 nameB是需要修改的。我现在只能打开脚本来改
我现在想请大家帮个忙，就是运行这段程序前，EXCEL会弹出一个对话框，要求我输入一个字符串，这个字符串就是用来替换folderA的 或是 nameB。

比方说 我输入了folderC 和 nameD
代码就会变成
ChDir _
        "D:\Documents and Settings\abc\桌面\folderC"
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\abc\桌面\folderC\nameD.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False




-----------------------------------------------------------------------------------------------------
你好，版主
请不要把这贴移动到『Excel VBA程序开发』版好吗？那个版块人气不足 而且我的问题很基础的 应该算是常见得基础问题。
拜托啦

---------------------------------------------------------------------------------------------------

最佳答案

月排行榜 / 总排行榜

zjdh

2013-3-6 13:17

Sub test()
    AD = InputBox("请输入保存路径及文件名称", "保存路径及文件名称", "D:\Documents and Settings\abc\桌面\folderC\nameD.xls")
    ActiveWorkbook.SaveAs Filename:=AD
End Sub

跳转到最佳答案楼层

hwc2ycy

你可以用对话框来选择的。

zjdh

Sub test()
    AD = InputBox("请输入保存路径及文件名称", "保存路径及文件名称", "D:\Documents and Settings\abc\桌面\folderC\nameD.xls")
    ActiveWorkbook.SaveAs Filename:=AD
End Sub

zjdh

在对话框里修改               

hwc2ycy

1. Sub test()
   
2.     '浏览文件夹，打开文件
   
3.     With Application.FileDialog(msoFileDialogFilePicker)
   
4.         .InitialFileName = ThisWorkbook.Path
   
5.         .Filters.Clear
   
6.         .Filters.Add "Excel Files", "*.xls"
   
7.         If .Show = False Then Exit Sub
   
8.         Set wb = GetObject(.SelectedItems(1))
   
9.     End With
   
10.    
    
11.     '窗体可见，文件另存为对话框
    
12.     Windows(wb.Name).Visible = True
    
13.     Application.Dialogs(xlDialogSaveAs).Show
    
14. End Sub

复制代码

淘气的果果

看不懂，一头雾水，向前辈学习。