标题: 如何将BOOK1名字改为AAAA？ [打印本页] 作者: sunredday 时间: 2003-5-1 20:38 标题: 如何将BOOK1名字改为AAAA？ Dim xlapp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Dim xlaaa As String
xlaaa = xlapp.GetSaveAsFilename("c:\aaaa", fileFilter:="(*.xls),*.xls") '但是没有保存
MsgBox "Save as " & xlaaa
xlapp.Visible = True
Set xlBook = xlapp.Workbooks.Add
xlapp.SaveWorkspace xlaaa
xlBook.Close
Set xlBook = Nothing
xlapp.Workbooks.Open xlaaa
[此贴子已经被作者于2003-5-3 13:15:40编辑过]
作者: Roadbeg 时间: 2003-5-3 18:40
不太清楚你想达到什么目的.作者: huanghai 时间: 2003-5-3 23:17
xlBook .saveas "c:\aaaa.xls",这样行吗？作者: sunredday 时间: 2003-5-4 00:05 标题: yes thank you and look here [attach]314[/attach]