excel用VB将工作簿保存到指定的路径中？

改晌高成这样：

AA = "C:\Users\Administrator\Desktop\保存文件夹\"并宴 &Format(Date, "yyyy.mm.dd") &"\abc\"

如果上边这句嫌太长的话，就用下边两句：

AA = Format(Date, "yyyy.mm.dd")

AA = "C:\Users\Administrator\Desktop\保存文件夹\" &AA &"\宴蔽尺abc\"

Private Sub Command1_Click()

Dim sf As String, df As String

CommonDialog1.ShowOpen

sf = CommonDialog1.FileName

If sf <>银悄 "" Then

df = "e:\tmp\" &CommonDialog1.FileTitle'保存拍搏竖到e:\tmp文件夹，自己改

If Dir(df) <>"" Then

If MsgBox("袭大目标文件已存在，是否覆盖？", vbYesNo) <>vbYes Then Exit Sub

End If

FileCopy sf, df

MsgBox sf &vbCrLf &"已保存为" &vbCrLf &df

End If

End Sub

保存路径是当前可执行程序所在的文件夹。比如exe在d:\work\c\test\demo.exe,哪么文件默认保存到d:\work\c\test，利用VB文件夹列表框控件设置文件夹路径的方法：

1、新建一个标准工程。

2、单击工具箱中的“文件列表框”控件，在窗体上拖一个出来。

3、单击已经拖好的文件列表框，在d出的代码编辑区中键入如下代码银早：Dir1.Path="E:\2003\WXPE"，即就是要求显示E盘下的2003文件夹中的WXPE文件。

4、退出代码编辑窗口，单击菜单上三锋空雀角执行按钮，运行该程序。

5、这时会便会发现之前的文件夹路径已经改变到刚才亏拆设置的E:\2003\WXPE的上来了。

---