|
| |
Visual-Basic Einsteiger| 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! | |
 | 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 |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere 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.
