Visual Basic ---- > ich checks nicht!

Visual Basic ---- > ich checks nicht! (8 Beiträge, 147 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

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
______________________________
***never touch a running system***
______________________________

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 ?

Erst wenn der letzte Programmierer eingesperrt, das letzte Programm verwirklicht und die letzte Idee patentiert ist, werdet ihr merken, dass Anwälte nicht programmieren können.
Spezielle User

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!
______________________________
***never touch a running system***
______________________________

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.

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

jetzt muß ich aber mal raus.. danke dir aber!
______________________________
***never touch a running system***
______________________________

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.

Superleiwand.. es funktioniert.. ich danke dir 10000mal
______________________________
***never touch a running system***
______________________________

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,

greetz

glockman

- Ich bin ein Geek und steh dazu -

This system is

Firmenkiste läuft...

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung