vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Fehlerroutine wird nicht abgearbeitet 
Autor: Prian0815
Datum: 19.03.04 09:54

Wenn ich folgenden Code auf Word anwende, funzt das alles optimal.
wende ich den selben Code auf Excel an, wird der Laufzeitfehler:429 ausgelöst, aber die Fehlerroutine wird nicht abgearbeitet, so dass keine neue Excel - Datei erstellt wird.
Kann mir irgendjemand verraten, wieso das mit Word funzt, aber nicht mit Excel

Hier der Code für Excel:
Public XLApp As Object
Public XLBook As Workbook
Public XLSheet As Worksheet
Private Sub CmdGru1_Click()
On Error GoTo Fehler
' Aktuellen Pfad ermitteln
path = App.path
' Excel Öffnen und Sheet1 für Ausgabe vorbereiten
filename = path + "/" + "Gru1Test.xls"
Set XLApp = GetObject(, Excel.Application)
Err.Clear ' Err-Objekt im Fehlerfall löschen.
XLApp.Application.Workbooks.Open filename
Set XLSheet = XLApp.ActiveWorkbook.Worksheets(1)
Fehler:
If Err.Number = 429 Then
' Code zum Erzeugen der neuen Datei
' 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")
XLApp.Application.Workbooks.Open filename
End If
Else
MsgBox Err.Description
'Screen.MousePointer = 1
End If
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehlerroutine wird nicht abgearbeitet761Prian081519.03.04 09:54
Re: Fehlerroutine wird nicht abgearbeitet564Wolfgang19.03.04 11:13
Re: Fehlerroutine wird nicht abgearbeitet473Prian081519.03.04 11:48
Re: Fehlerroutine wird nicht abgearbeitet537StoneX19.03.04 12:08
Re: Fehlerroutine wird nicht abgearbeitet434Prian081519.03.04 13:01
Re: Fehlerroutine wird nicht abgearbeitet520Prian081519.03.04 13:23
Re: Fehlerroutine wird nicht abgearbeitet472StoneX19.03.04 13:56
Re: Fehlerroutine wird nicht abgearbeitet604Wolfgang19.03.04 12:10
Re: Fehlerroutine wird nicht abgearbeitet425Prian081519.03.04 13: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übersichtSuchen 

nach obenzurück
 
   

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