Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ordner in code variabel eingeben

Ordner in code variabel eingeben
11.05.2005 08:24:19
roland_k
hoi guten morgen zusammen
habe mal wieder keine idee ((
in meiner anwendung steht in nem modul folgender code:
ChDrive("C") 'Anpassen
ChDir ("C:\Dokumente und Einstellungen\super\Eigene Dateien\Daten für SPIEL\super\Spielprotokolle") ' Anpassen!
der ordner Spielprotokolle wird vom spiele programm angelegt:
nur der pfad wird vom anwender bestimmt:
z. b. ChDrive("C")- ChDrive("D") - ChDrive("E") sowie
z. b. ChDir("C:\Daten\SPIEL\super\Spielprotokolle")
oder: ChDir("C:\Kontrolle\SPIEL\Spielprotokolle")
wie kann ich nun mit hilfe der inputbox (oder auch anderes) den pfad in dem code vom anwender eingeben lassen ohne dass dieser in der entwicklungsumgebung rumfummeln muss?
hat der anwender diese einstellung einmal eingegeben soll die keine abfrage mehr erfolgen.
mit der anweisung:
Name strDatei As "C:\Archiv\" & Right(strDatei, Len(strDatei) - InStrRev(strDatei, "\"))
wird die zu bearbeitende textdatei in den ordner Archiv verschoben
hier soll der anwender bestimmen koennen wie sein ordner heisst...
statt archiv z. b. ablage oder gesichert usw.
der name des ordners soll eben in den code geschrieben werden und wenn nicht vorhanden gleich angelegt werden.
ich hoffe das bedeutet nicht zu viel aufwand zumal pfingsten vor der türe steht))
vielen dank im voraus
grusse von der schweizer grenze
roland_k

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner in code variabel eingeben
11.05.2005 09:13:00
MichaV
Moin,
schau mal, ob es für Dich so geht.
Hier wird der Ordner in der Eigenschaft "Kommentar" der Excel- Datei eingetragen. Siehst Du z.B. auch unter Menü Datei- Eigenschaften oder im Explorer.
Andere Möglichkeiten wären das "Speichern" in der Registry (GETSETTING, SAVESETTING), in einer Textdatei (OPEN FOR ...) oder in einer versteckten Zelle in der Excel- Tabelle. Speichern im Code so wie Du es willst geht nicht.


      
Private Sub Workbook_Open()
Dim strOrdner As String
Dim FSYObjekt As Object 'Aus der Recherche von Nepumuk
Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
strOrdner = Application.ThisWorkbook.BuiltinDocumentProperties(5).Value
'Liest den Ordner- Namen aus der Kommentar- Eigenschaft der xl- Datei
'kann unter Menü Datei- Eigenschaften auch manuell geändert werden

If Not FSYObjekt.FolderExists(strOrdner) Then
'wenn Ordner nicht existiert (oder nicht eingetragen)
  strOrdner = GetFolderInternal("Ordner auswählen", CurDir)
  
If Not strOrdner = "" Then
    Application.ThisWorkbook.BuiltinDocumentProperties(5).Value = strOrdner
    
'ausgewählten Ordner in Kommentar- Eigenschaft der Datei eintragen
  Else
    MsgBox "Nix ausgewählt"
  
End If
End If
Set FSYObjekt = Nothing
'und nun Dein Part:
If Not strOrdner = "" Then ChDir (strOrdner) ' Pfad anpassen, wenn vorhanden
End Sub 
Gruß- Micha
PS: Rückmeldung wäre nett
Anzeige
AW: Ordner in code variabel eingeben
11.05.2005 09:21:09
roland_k
hi michadanke erst mal muss ich erst noch verdauen ))
aber? in meinem code gebe ich den pfad ein wie er bei mir stimmt
muss nu der anwender genau diesen pfad verwenden (anlegen) ?
oder muss dieser den code auf seine beduerfnisse anpassen?
sowas will eben vermeiden.
ich dachte ich koennte etwa eben ne inputbox das veranlassen lassen
oder ich schreibe den pfad in nem tabellenblatt in eine celle z. b. c:\muster\Spielprotolle
nun koennte ich doch diesen cellinhalt im code verenden ?
ich probier mal rum
danke erst mal
gruss roland_k
Beispielmappe gucken!
11.05.2005 09:44:13
MichaV
Hi,
Sorry, hatte die Hälfte vergessen!
https://www.herber.de/bbs/user/22430.xls
Gruß- Micha
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige