Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: in bestimmte Zellen in Excel per Ado Werte aus einer Collection schreiben
Autor: Prian0815
Datum: 20.09.05 15:05
Hi Newbie, Hier ein paar Tipps zum Arbeiten mit Excel(Verweise nicht vergessen): 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 ' 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

in bestimmte Zellen in Excel per Ado Werte aus einer Collect...	924	AdoNewbie	14.09.05 09:34
Re: in bestimmte Zellen in Excel per Ado Werte aus einer Col...	691	Prian0815	20.09.05 15:05
Re: in bestimmte Zellen in Excel per Ado Werte aus einer Col...	522	AdoNewbie	22.09.05 00:02
Re: in bestimmte Zellen in Excel per Ado Werte aus einer Col...	585	Prian0815	22.09.05 16:08

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