Save As

Dieses Thema im Forum "Programmieren" wurde erstellt von maggmich, 3. Oktober 2003.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. maggmich

    maggmich Byte

    Registriert seit:
    26. Januar 2002
    Beiträge:
    104
    Hallo!

    Ich öffne eine Excel-Datei und Speichere diese unter einem anderen Name.
    Nun möchte ich aber diese unter dem gleichen Namen speichern, als ganz normal speichern. Wie mache ich das?
    Code:
    Dim xlApp
    Dim xlBook
    Dim xlSheet

    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open ("c:\inetpub\wwwroot\jmagg\Fba\database\groesse.xls", 3, False)
    Set xlSheet = xlBook.Worksheets(1)

    xlApp.Application.Visible = False

    With xlApp.ActiveSheet.Cells(1,1)
    .Value = "Test"
    End With
    xlSheet.SaveAs "c:\inetpub\wwwroot\jmagg\Fba\database\test_25.xls"
    xlApp.Application.Quit

    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

    Mit freundlichen Grüßen Jürgen
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen