首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

用VBA 兑现另存为 一个名称为“某一sheet中某一单元格加另一sheet中某一单元格”的 功能

2013-07-04 
用VBA 实现另存为 一个名称为“某一sheet中某一单元格加另一sheet中某一单元格”的 功能如题,想设置一个按扭

用VBA 实现另存为 一个名称为“某一sheet中某一单元格加另一sheet中某一单元格”的 功能
如题,想设置一个按扭,实现另存为功能 文件名为某一sheet 中某一单元格中的值加另一sheet的某一单元格的值,如果文件已经存在就覆盖 
[解决办法]
比如单元格A1里有文件名,存储路径是D盘,代码:

Sub Sv()
Dim sFileName As String
sFileName = "d:" & Sheet1.Range("a1").Value
ActiveWorkbook.SaveAs Filename:=sFileName, FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
End Sub

热点排行