Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VB--->Excel
Autor: Marco Nickolai
Datum: 21.02.03 15:23
Hi so oder so ähnlich sollte es gehen: Dim xlAppl As Excel.Application Dim xlWB As Excel.Workbook Dim xlWS1 As Excel.Worksheet Dim xlDatei As String Dim xlPfad As String Const xlWS1_Name As String = "Tabelle1" 'Prüfen, ob Excel ausgeführt wird: Set xlAppl = GetObject(, "Excel.Application") 'Wenn Excel nicht ausgeführt wird, Excel starten: If xlAppl Is Nothing Then _ Set xlAppl = CreateObject("Excel.Application") 'Dateispeichern xlAppl.Workbooks.Add.SaveAs filename:=(xlPfad), FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False 'Verweise setzen Set xlWB = xlAppl.Workbooks(xlDatei) Set xlWS1 = xlWB.Worksheets(xlWS1_Name) 'Datei speichern und schließen xlAppl.ActiveWorkbook.Save xlAppl.ActiveWorkbook.Close Set xlWS1 = Nothing Set xlWB = Nothing Set xlAppl = Nothing gruß marco

VB--->Excel	346	kerni	21.02.03 13:03
Re: VB--->Excel	79	Marco Nickolai	21.02.03 15:23
Re: VB--->Excel : Danke	212	kerni	22.02.03 12:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen