|
| |
VB & Datenbanken| Re: Endlos- Textbox, alle Werte ausgeben | |  | | Autor: Prian0815 | | Datum: 08.12.04 15:07 |
| klar, weil er ja in dem Fall den ersten Zeitstempel immer mit dem nächsten überschreibt. Also wirst du die Daten nach jedem gelesenen Satz am besten gleich in eine Excel -File schreiben.Alles nötige hierfür steht hier mit drin:
Verweis auf Microsoft Excel setzen 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 | |
 Endlos- Textbox, alle Werte ausgeben | 4.341 | Annabelle | 08.12.04 11:50 |  Re: Endlos- Textbox, alle Werte ausgeben | 3.096 | Prian0815 | 08.12.04 12:56 |   Re: Endlos- Textbox, alle Werte ausgeben | 3.261 | Annabelle | 08.12.04 13:10 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.145 | Prian0815 | 08.12.04 13:31 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.135 | Annabelle | 08.12.04 13:36 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.222 | Prian0815 | 08.12.04 13:48 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.106 | Annabelle | 08.12.04 13:56 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.060 | Prian0815 | 08.12.04 14:28 |  Re: Endlos- Textbox, alle Werte ausgeben | 3.090 | Annabelle | 08.12.04 14:42 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.254 | Prian0815 | 08.12.04 13:59 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.064 | Annabelle | 08.12.04 14:09 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.065 | Prian0815 | 08.12.04 14:42 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.082 | Annabelle | 08.12.04 14:52 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.148 | Prian0815 | 08.12.04 15:07 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.174 | Annabelle | 08.12.04 13:41 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.124 | Annabelle | 09.12.04 12:48 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.042 | Prian0815 | 09.12.04 13:51 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.129 | Annabelle | 09.12.04 14:11 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.106 | Prian0815 | 09.12.04 15:08 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.071 | Annabelle | 10.12.04 08:10 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.102 | Annabelle | 10.12.04 08:53 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.203 | Prian0815 | 10.12.04 09:14 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.081 | Annabelle | 10.12.04 09:32 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.028 | Annabelle | 10.12.04 09:36 | | Re: Endlos- Textbox, alle Werte ausgeben | 2.963 | Prian0815 | 10.12.04 10:06 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.053 | Annabelle | 10.12.04 10:34 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.017 | Prian0815 | 10.12.04 11:14 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.043 | Annabelle | 10.12.04 11:18 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.082 | Prian0815 | 10.12.04 11:42 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.075 | Annabelle | 10.12.04 11:49 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.122 | Annabelle | 10.12.04 11:27 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.121 | Prian0815 | 10.12.04 12:01 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.001 | Annabelle | 10.12.04 12:10 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.061 | Prian0815 | 10.12.04 12:50 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.163 | Annabelle | 10.12.04 13:04 | | Re: Endlos- Textbox, alle Werte ausgeben | 2.968 | Prian0815 | 10.12.04 13:24 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.037 | Annabelle | 10.12.04 13:40 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.026 | Annabelle | 10.12.04 12:15 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.060 | Prian0815 | 10.12.04 12:56 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.069 | Annabelle | 10.12.04 13:10 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.011 | Prian0815 | 10.12.04 13:36 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.042 | Annabelle | 10.12.04 13:43 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.071 | Annabelle | 10.12.04 13:47 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.030 | Prian0815 | 13.12.04 09:05 | | Re: Endlos- Textbox, alle Werte ausgeben | 3.025 | Annabelle | 13.12.04 09:16 | | Re: Endlos- Textbox, alle Werte ausgeben | 2.971 | Prian0815 | 13.12.04 11:13 | | GESCHAFFT!!! | 3.045 | Annabelle | 13.12.04 09:51 | | Re: GESCHAFFT!!! | 3.050 | Annabelle | 13.12.04 10:05 | | Re: GESCHAFFT!!! | 3.095 | Prian0815 | 13.12.04 11:09 | | If Anweisung | 3.025 | Annabelle | 13.12.04 11:14 | | Re: If Anweisung | 3.221 | Prian0815 | 13.12.04 11:32 | | Re: If Anweisung | 3.023 | Annabelle | 13.12.04 11:44 | | Re: If Anweisung | 3.022 | Prian0815 | 13.12.04 11:58 | | Re: GESCHAFFT!!! | 3.029 | Prian0815 | 13.12.04 10:55 |
 | 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 |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevOutBar 4.0 
Vertikale Menüleisten
á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.