Excel SaveAs i VB6

er det ikke

Application.DisplayAlerts = False
Excel.ActiveWorkbook.SaveAs Filnavn1
Application.DisplayAlerts = true

tester

Public Sub Gem()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
        "C:\Dokumenter\Excel\Mappe1.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

Det første var ok.
Så hvis du lige laver et svar så er der point !!!

svar ;-))