Visual Basic ---- > ich checks nicht!

Re(5): Visual Basic ---- > ich checks nicht!

Entity — Wed, 10 Nov 2004 08:43:49 GMT

Superleiwand.. es funktioniert.. ich danke dir 10000mal

Re: Visual Basic ---- > ich checks nicht!

Glockman — Tue, 09 Nov 2004 23:09:11 GMT

Hi!

Ohne es probiert zu haben:
nach dem Kommentar ein "On Error Resume Next", nach dem If...EndIf Block ein "debug.print err". Das gibt im Direktfenster den Errorcode zurück.
Dann kannst Du mit einer "If err=..." oder "Select Case err"-Abfrage reagieren.

hth,

Re(4): Visual Basic ---- > ich checks nicht!

Thing — Tue, 09 Nov 2004 20:48:53 GMT

Uups. Die "elegantere" Methode funktioniert leider doch nicht. Man müsste die beiden Parameter vertauschen und dann hätte man dasselbe Problem wie mit dem "SaveAs".

Das mit den DisplayAlerts sollte aber funktionieren.

Re(4): Visual Basic ---- > ich checks nicht!

Entity — Tue, 09 Nov 2004 20:09:28 GMT

hey das ist eine gute idee.. probier ich morgen in der Früh gleich aus!

jetzt muß ich aber mal raus.. danke dir aber!

Re(3): Visual Basic ---- > ich checks nicht!

Thing — Tue, 09 Nov 2004 20:07:38 GMT

Du könntest es z.B. so einklammern (zum "mundtot" machen):

objXl.DisplayAlerts = False
xLWorkB(iX).SaveAs (MessSteuerung.CommonDialog1.FileName)
objXl.DisplayAlerts = True

"objXl" musst du natürlich entsprechend ersetzen, je nachdem wie du das Excel-Objekt erzeugt hast.
z.B. Set objXl = CreateObject("Excel.Application")

Eleganter wäre aber vielleicht:

xLWorkB(iX).Close MessSteuerung.CommonDialog1.FileName, True

Dann wird das Workbook ohne Nachfrage überschrieben und danach geschlossen.

Re(2): Visual Basic ---- > ich checks nicht!

Entity — Tue, 09 Nov 2004 19:33:54 GMT

naja wenn ich so mm = msgbox("bla", vbOKCancel) mach dann kreig ich schon einen Wert von der msgbox zurück, aber bei den oben genannten Funktionen wüßte ich nicht was ich zurück bekommen sollte!

Und das *PIEP* PopUp Fenster vom Excel gibt mir sowieso nix zurück... zumindestens hab ich nix gefunden!

Re: Visual Basic ---- > ich checks nicht!

Somnatic — Tue, 09 Nov 2004 19:17:59 GMT

hmm . .also wenn du einen Common Dialog aufrufst wird doch wenn er beendet ist ein DialogResult (in dem steht worauf der user geklickt hat) zurückgegeben ...
oder ist das in VB schon wieder anders ?

Visual Basic ---- > ich checks nicht!

Entity — Tue, 09 Nov 2004 19:13:46 GMT

Hier sieht man eine Funktion!
was sie tut erklär ich darunter!

Public Sub SaveProjectAs(iX As Integer)
'Save As Dialog wird geöffnet

    MessSteuerung.CommonDialog1.FILTER = ("Excel-Datei (*.xls)|*.xls;")
    MessSteuerung.CommonDialog1.InitDir = App.Path + "\MessAbläufe"
    MessSteuerung.CommonDialog1.ShowSave
    If MessSteuerung.CommonDialog1.FileName <> "" Then
         xLWorkB(iX).SaveAs (MessSteuerung.CommonDialog1.FileName)
    End If
End Sub

Als wär ich im Excel und möchte eine Tabelle speichern, soll es auch dieses Programm tun! NUr hab ich dabei das Problem, daß wenn ich im Dialogfenster einen Dateinamen wähle den es schon gibt, meldet sich das Excel und fragt ob man die Datei überschreiben will!
Solange man JA clickt ist alles ok! Nur clickt man auf nein oder Abbrechen ist es schlecht! Weil dann weiß mein Programm nicht mehr was es tun soll!
Mein Programm sagt speichern, aber das Excel will nicht-- eh klar!

Nun stellt sich die Frage wie ich das wegbekomme.. Also das Excel Mundtot machen!
Das soll einfach nicht nachfragen.. dann wär mein Problem gelöst!
Und wenns nicht mundtot gemacht werden kann, dann muß mein Programm damit umgehen können was im Excel geschieht!

Ich hab mir sagen lassen, daß ich das mit einem errorhandling machen soll, weil die Excel Message vom Excel anscheinend sowas ist, aber ich checks einfach nicht!

BITTE - HILFE

PS: falls es was hilft ist der gesamte Code unter http://forum.geizhals.at/files/3574/Gargamel.zip
zu finden!

thx