Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ich bring mich gleich um
Autor: Prian0815
Datum: 25.03.04 09:42
na wenn du Excel schon mal aufhast, dann hast du ja schon mal viel erreicht.Hier noch Tipps zum arbeiten mit EWxcel: Dim xlAPP As Object On Error GoTo Fehler ‚ Verweist in Fehlerroutine(wichtig für ‚Get Obkect’ und ‚open’) ' bereits geöffnetes Excel verwenden 'Set xlAPP = GetObject(, "excel.application") ' neue Excel-Session erstellen Set xlAPP = CreateObject("excel.application") ' Excel sichtbar machen xlAPP.Visible = True ' Excelrückfragen deaktivieren xlAPP.DisplayAlerts = False ' Abarbeitung von VBA-Ereignissen in XLS-Dateien verhindern xlAPP.EnableEvents = False ' öffnet eine bestehende Datei 'xlAPP.Workbooks.Open "C:\Mappe.xls" ' erzeugt eine neue Arbeitmappe(Datei) xlAPP.Workbooks.Add ' Blatt durch Blattindex aktivieren xlAPP.ActiveWorkbook.Worksheets(2).Select ' oder Blatt durch Name aktivieren xlAPP.ActiveWorkbook.Worksheets("Tabelle2").Select ' in die Zelle (zeile 5, spalte 2) "Text" eintragen xlAPP.Cells(5, 2) = "Text" ' in die Zelle D8 "Text" eintragen xlAPP.Range("D8") = "Text in Zelle D8" ' in die Zelle A?(Variable:ZZ) "Text" eintragen R1 = "A" & Int(ZZ) XLSheet.Range(R1).Value = "Name" ' speichert die aktuelle Arbeitsmappe 'xlAPP.ActiveWorkbook.Save ' speichert die aktuelle Arbeitsmappe unter einen neuen Namen xlAPP.ActiveWorkbook.SaveAs "C:\Mappe.xls" ' schließt die aktuelle Arbeitsmappe und verwirft ' nicht gespeicherte Änderungen xlAPP.ActiveWorkbook.Close False ' Excel beenden xlAPP.Quit ' Speicher freigeben Set xlAPP = Nothing XLSheet.Cells.WrapText = False ' Zeilenumbruch ausschalten R1 = "A1:B" & Int(ZZ) XLSheet.Range(R1).Select XLSheet.Range(R1).Columns.AutoFit 'Formatiert selektierte Spalten in optimale Breite Fehler: Select Case Err.Number Case 429 ' Excel lief nicht - Excel starten Set XLApp = CreateObject("Excel.Application") If XLApp Is Nothing Then ' Fehler: Excel nicht vorhanden! MsgBox msgNoExcel, vbExclamation Exit Sub Else Set XLApp = CreateObject("Excel.application") Resume Next End If Case 1004 'Datei nicht vorhanden Neue Datei erstellen Set XLBook = XLApp.Workbooks.Add Dateivorhanden = False Resume Next Case Else MsgBox Err.Description Screen.MousePointer = 1 End Select End Sub Gruß Armin. P.S.: und immer daran denken: always look on the bright side of Life!

Ich bring mich gleich um	695	zwicht	24.03.04 17:33
	441	Dieter	24.03.04 19:18
Re: Ich bring mich gleich um	435	StoneX	25.03.04 08:17
Re: Ich bring mich gleich um	471	Prian0815	25.03.04 09:42
Re: Ich bring mich gleich um	422	zwicht	25.03.04 11:52
Re: Ich bring mich gleich um	445	Prian0815	26.03.04 12:33

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