Thema Datum  Von Nutzer Rating
Antwort
Rot Inipath wird ignoriert
 09.01.2007 09:41:26 VBA-User
NotSolved
09.01.2007 11:45:51 Rasta
NotSolved
09.01.2007 12:56:31 VBA-User
NotSolved
10.01.2007 10:44:34 Rasta
NotSolved

Ansicht des Beitrags:
Von:
VBA-User		 Datum:
09.01.2007 09:41:26		 Views:
2076		 Rating:
     
Antwort:
  Ja
Thema:
Inipath wird ignoriert
Hallo zusammen,
für eine VBA-Anwendung in ein CAD-System (Inventor) habe ich einen Common Dialog verwendet (siehe Code). Leider wird der Initialisierungspfad den ich im Code vorgebe von der Anwendung nicht verwendet, sondern der Pfad der letzten Inventor Abspeicherung (Inventor 11), wie kann ich das Problem lösen?

Sub CommandButton3_Click()

Dim BrowsePath As String
Dim OldPath As String
Dim OpenClick As Boolean

OldPath = Pfad_Init

With Me.cdlg3
.CancelError = True
OpenClick = Not .CancelError
.InitDir = OldPath
.filename = "_" 'important - "Open" click is not possible without any file name given
.Filter = "Verzeichnisse|*.NoFiles|All Files (*.*)|*.*"
.DialogTitle = "Pfad auswählen"
On Error GoTo CancelClick
.ShowOpen
OpenClick = True
CancelClick:
'OpenClick is still "Not .CancelError" (mostly False), if the error occured
End With 'Me.cdlg1

If OpenClick Then
BrowsePath = CurDir + "\"
Else
ChDir OldPath ' important, because the current path changes automatically while browsing
BrowsePath = OldPath
End If

Label5.Caption = BrowsePath

End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Inipath wird ignoriert
 09.01.2007 09:41:26 VBA-User
NotSolved
09.01.2007 11:45:51 Rasta
NotSolved
09.01.2007 12:56:31 VBA-User
NotSolved
10.01.2007 10:44:34 Rasta
NotSolved