Jag har öppnat ett befintligt excel ark ifrån Access2000. Nu vill jag
spara detta ark med ett nytt namn. Hur gör jag ?

Tack på förhand !
Stellan

Hur har du öppnat det?

Jag har öppnat det med följande kod:
<code>
Dim xlBook As Object

Set xlBook = CreateObject("Excel.Application")
xlBook.workbooks.Open Filename:="C:\Test\Filnamn.xls"
xlBook.Caption = "Rubrik"
xlBook.Visible = True
</code>

<code>
Dim AppExcel As Object
Dim WorkBook As Object

Set AppExcel = CreateObject("Excel.Application")
Set WorkBook = AppExcel.Workbooks.Open("C:\Test\Filnamn.xls")
AppExcel.Caption = "Rubrik"
AppExcel.Visible = True

WorkBook.SaveAs "C:\Test\Filnamn2.xls"
</code>