Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Arbeiten mit Excel
Autor: Prian0815
Datum: 13.09.06 10:18
Ich weiß nicht was du mit Data meinst, Aber hier alles was ich hab zum Thema ' arbeiten mit Exceldatei' Dim xlAPP As Object On Error GoTo Fehler ‚ Verweist in Fehlerroutine(wichtig für ‚Get Object’ 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 'Anzahl Zeilen in Excel-Tabelle ermitteln: lngNumRows = Excel.Range("A65536").End(xlUp).Row ' 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 ' alle Blätter zählen txtAnzSheets.Text = XLBook.Worksheets.Count ‘Blattname ermitteln Set XLSheet = XLBook.Worksheets(n) sheetName = XLSheet.Name ' 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" 'Formel in eine Excel – Zelle eintragen Worksheets(sheetindex).Range(R1).Formula = Formel ' 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.: always look on the bright side of Life!

Datei, die auf dem Server liegt, bearbeiten	1.197	Klopp1991	12.09.06 18:12
Arbeiten mit Excel	752	Prian0815	13.09.06 10:18
Verbindung mit Datenbank	739	Prian0815	13.09.06 10:25

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