Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem mit Quelltext aus VBScript
Autor: jussi
Datum: 03.03.03 14:20
Hallo, ich habe ein in Word geschriebenes VBScript (läuft über Makros)und habe es in ein VB-Programm übernommen. Die Namen habe ich schon gändert aber es kommt bei ein paar Schaltflächen die Meldung: Fehler beim Kombilieren: Methode oder Mitgliedsdaten nicht gefunden z.B. Beim button cmdöffnen markiert es mir: Private Sub cmdöffnen_Click () Es ist eigendlich immer die selbe Zeile, ob beim öffnen-,suchen-, Prüfbericht öffnen oder Prüfbericht löschen!!! z.B. Private Sub cmdöffnen_Click() ' Variablendefinition Dim pbnr Dim antwort Dim dateiname_p Dim check_datei Dim i ' Variablendeklaration pbnr = txt1.Value dateiname_p = Replace(pbnr, "/", "_") dateiname_p = dateiname_p & suffix ' Prüfbericht suchen With Application.FileSearch .NewSearch .LookIn = verz .SearchSubFolders = True .FileName = dateiname_p .MatchTextExactly = True .FileType = msoFileTypeAllFiles If .Execute() > 0 Then ' Jeden gefundenen Prüfbericht oder Schwerpunktblatt öffnen oder Meldung ausgeben If (.FoundFiles.Count > 1) Then antwort = MsgBox("Es wurden " & .FoundFiles.Count & " Dateien gefunden. Wollen Sie alle öffnen?", vbYesNo, "Achtung") If antwort = vbYes Then check_datei = 1 Else End End If End If Unload Prüfbericht For i = 1 To .FoundFiles.Count Documents.Open FileName:=.FoundFiles(i), ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto Next i Else MsgBox "Es wurde kein Prüfbericht oder Schwerpunktblatt mit dieser Prüfberichtsnummer gefunden." End If End With End Sub Private Sub cmdsuchen_Click() 'Variablendefinition Dim sachnr Dim suchpfad Dim pos Dim dateiname_p Dim i ' Variablendeklaration durch Auslesen der Formularwerte sachnr = txt2.Value suchpfad = verz & "\" & sachnr ' Letztes Suchergebnis entfernen Text3.Clear ' Verzeichnis auslesen With Application.FileSearch .NewSearch .LookIn = suchpfad .SearchSubFolders = False .FileName = suffix .MatchTextExactly = True .FileType = msoFileTypeAllFiles If .Execute() > 0 Then ' Prüfbericht öffnen und löschen button einblenden cmdprüfberichtöffnen.Visible = True cmdprüfberichtlöschen.Visible = True Checkbox_schwerpunktblatt.Visible = True lblSchwerpunktblatt.Visible = True ' Für jedes Listenelement (Datei) Pfad und Suffix entfernen For i = 1 To .FoundFiles.Count pos = InStrRev(.FoundFiles(i), "\") dateiname_p = Mid(.FoundFiles(i), pos + 1) dateiname_p = Left(dateiname_p, Len(dateiname_p) - 4) dateiname_p = Replace(dateiname_p, "_", "/") ' Checken, ob gef. Datei ein Schwerpunktblatt ist If (Left(dateiname_p, 2) <> "s/") Then ' Prüfbericht dem Listenelement hinzufügen Text3.AddItem dateiname_p End If Next i Else MsgBox "Es wurden kein Prüfbericht zur eingegebenen Sachnummer gefunden." End If End With End Sub Ich hoffe, daß mir jemand helfen kann!!!! Oder kann ich das VBScript nicht verwenden in VB? Schon mal Danke im voraus!

Problem mit Quelltext aus VBScript	125	jussi	03.03.03 14:20
Re: Problem mit Quelltext aus VBScript	368	RalfH	03.03.03 14:33
Re: Problem mit Quelltext aus VBScript	41	jussi	04.03.03 07:08
Re: Problem mit Quelltext aus VBScript	41	jussi	04.03.03 07:33
Re: Problem mit Quelltext aus VBScript	415	Elwood	04.03.03 07:49
Re: Problem mit Quelltext aus VBScript	450	jussi	04.03.03 09:01
Re: Problem mit Quelltext aus VBScript	347	Elwood	04.03.03 09:18
Re: Problem mit Quelltext aus VBScript	337	jussi	04.03.03 09:56
Re: Problem mit Quelltext aus VBScript	316	Elwood	04.03.03 10:17
Re: Problem mit Quelltext aus VBScript	346	jussi	04.03.03 11:06
in welcher Zeile tritt der Fehler auf? (oT)	349	Elwood	03.03.03 20:29

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