---

Hallo Forum,
habe mir was vba-code aus einem inventor vba programm kopiert und musste leider feststellen das acad vba die fkt. filedialog mit den optionen filter usw. nicht unterstützt. Gibts hier ne andere lösung oder muss ich selber stricken?

Für jeden hinweis dankbar

Gruß
Seher

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Seher,

ggf. mal hier http://ww3.cad.de/foren/ubb/Forum259/HTML/000001.shtml querlesen,
schau' evtl. mal meine geupte test.dvb.[txt] an, obs in etwa darauf hinausläuft 

lg Nancy 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Browseforfolder.xls.txt

Nachtrag:

hier mal noch das Original in Original[xl]Verpackung 

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
ich würde mich auch gerne mal an der Filedialogbox versuchen, leide klappt die von startreck angehängte datei nicht (ist irgendwewie defekt) habe sie in "Browseforfolder.xls" (warum eigentlich Excel?)umbenannt, kann sie aber denoch nicht öffnen.
Bernd

------------------

Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bernd,

keine Ahnung, warum die xls bei Dir nicht tut, ist auch ziemlich komplex das Teil.
Alternativ als Würgaround-Code für Acad, der sich allerdings das Dialogfeld aus Excel borgt;-)

Code:

---

Sub file_dialog()
    Dim xlApp As Object, myFile As Variant
    Set xlApp = CreateObject("excel.application")
    myFile = xlApp.Application.GetOpenFilename("dwg-Dateien (*.dwg),*.dwg")
    xlApp.Quit: Set xlApp = Nothing
    If myFile <> False Then
        MsgBox myFile
        Documents.Open myFile
    End If
End Sub

---

HTH, Nancy

[Diese Nachricht wurde von startrek am 21. Nov. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Nancy hat wohl die einfachere Methode.

Wenn kein Excel oder so dann
- entweder eigenes OCX mit VB erstellen
oder
- über API(sieht doch einfach aus  )

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

It's me again ...

@stelli: naja bin manchmal eine recht pragmatische Natur;-)

Aber okay Bernd - warum eigentlich Excel? -
Ja, warum?
Eigentlich ja nicht, wiegesagt, warum das geuppte File nicht geht, weiss ich nicht,
[habs heute nochmal runtergeladen auf nem XP-Rechner, da gings]
Hatte aber in dem verlinkten Beitrag, diesselben Module aus dem
xl-File in eine dvb eingebunden und gebibbert obs denn ging, da der Code doch etwas heftiger ist;-)
Von daher war hier Excel nur das Medium und sozusagen entbehrlüsch;-)

Bei meiner heutigen Antwort ist jedoch Excel/Word & Co unabdingbar,
da die Office-Familie den interaktiven FileOpen-Dialog unterstützt, Acad aber glaube nicht.

Achja, stelli da fällt mir noch ein, apropose VB, ginge da nicht auch was mit dem commonfiledialogdings?
(habs aber noch nie probiert schäm) ;-)

lg Nancy 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

mit commonfiledialog geht's in VB und VBA.
Nur beim AutoCAD VBA werden ein paar Sachen seltsammerweise nicht unterstützt.

Man könnte in VB ein OCX erstellen (wie xTimer.ocx) das man auch in AutoCAD VBA benutzen kann. In VB kann man das über die API oder einfacherer dort den Commonfiledialog einbinden und die Eigenschaften durchreichen. Könnte dann auch gleich den Cancel Error vernünftig abfangen.

Hatte noch nicht wirklich die Aufgabe. Brauchs in VBA eigentlich nur an einer Stelle und da hab ich auf die Eigenschaften verzichtet.

So läuft es bei mir.

Code:

---

Private Sub bt_Dateiwahl_Click()

    filedialog.CancelError = True
    filedialog.Filter = "Access *.mdb|*.mdb"
    filedialog.DefaultExt = "mdb"
    filedialog.Flags = &H4&
    ' Je nach gewünschter Aktion Flags setzen
    ' Datei muss vorhanden sein
    filedialog.Flags = filedialog.Flags + &H1000&
    ' Pfad muss vorhanden sein
    filedialog.Flags = filedialog.Flags + &H800&

    On Error GoTo Abbruch
    filedialog.ShowOpen

    If filedialog.FileName <> "" Then
      Me.txt_VorlageMDB.Text = filedialog.FileName
    End If

Abbruch:
End Sub

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Huch, hier gibts ja jede mange antworten...komisch...hab gar keine hinweismail bekommen.
vielen dank euch beiden schonmal...werde mir alles mal zu gemüte führen
bernd

------------------

Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP