如何将BOOK1名字改为AAAA？

sunredday

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

不太清楚你想达到什么目的.

huanghai

xlBook .saveas "c:\aaaa.xls",这样行吗？

sunredday