Question

VB中的EXCEL怎么自动另存到指定的文件夹

Dim XlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Set xlBook = XlApp.Workbooks.Open("C:\SSS.xls")
XlApp.Visible = False
Set xlSheet = xlBook.Sheets("sheet1")
xlSheet.Select

xlSheet.Range("c4") = Text1.Text
xlSheet.Range("c7") = Text2.Text
xlSheet.Range("c5") = Text3.Text
xlSheet.Range("i10") = Text5.Text

xlBook.Save 这里现在是保存，但是我想要点击command的时候，出现一个另存的对话框，但是路径会自动转到：D\文件夹1 中，并且另存的名字是以c4_c7_c5命名的，有没有具体代码，谢谢 Set Sheet = Nothing
Set xlBook = Nothing
XlApp.Quit
Set XlApp = Nothing

Answer 1

可以先保存到默认路径，再用filecopy复制到目标路径。
（菜鸟级回答，希望解决问题）

Answer 2

xlBook.SaveAs Filename:="D\文件夹1\c4_c7_c5.xls"

追问

我说的是以C4,C7,C5单元格中的内容加下划线命名

追答

s = Range("c4") '
y = Range("c7")
z = Range("c5")
xlBook.SaveAs Filename:="D:\文件夹1\" & s &" _" &y &" _" & z & ".xls"