Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Ordner in Explorer-Struktur suchen VBA
11.11.2008 08:50:00
andreas
Hallo zusammen,
habe ein Formular mit einem Button "Speichern" und unter anderem ein Feld "Angebotsnr."
Wird der Button Speichern gedrückt soll das Programm den Ordner der im Feld Angebotsnr. eingetragen ist suchen. Dieser Ordner ist zum Zeitpunkt der Erstellung des Formulares im Windows-Explorer schon vorhanden und muss nicht mehr erstellt werden, nur bei nicht finden (evtl. falsch eingetragen) soll fehler´meldung kommen.
Der Ordner steht immer im Windows-Explorer auf dem Server unter 1zu1_Vorgaenge auf "hts01". Dieser Ordner soll nach dem gesuchten Ordner durchsucht und wenn gefunden zum Speichern vorgeschlagen werden.
Wer kann mir da weiterhelfen.
Vielen Dank im Voraus Andreas
https://www.herber.de/bbs/user/56665.xls

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner in Explorer-Struktur suchen VBA
13.11.2008 06:54:34
Reinhard
Moin Andreas,
ungetestet vielleicht so:

Private Sub CommandButton1_Click()   'Speichern mit Namen
Dim Merker As String
If Dir("C:\hts01\1zu1_Vorgaenge/nul")  "" Then
Merker = CurDir
ChDrive "C"
ChDir "C:\hts01\1zu1_Vorgaenge"
Application.Dialogs(xlDialogSaveWorkbook).Show ("Checkliste RT-Angebot_" & [k7] & ".xls")
ChDrive Merker
ChDir Merker
Else
MsgBox "Verzeichnis C:\hts01\1zu1_Vorgaenge nicht gefunden"
End If
End Sub


Gruß
Reinhard

Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige