---

hallo zusammen,
Unter MS-Excel kann ich mit dem VBA-Code unten eine Textdatei öffen
und Daten auslesen. Bei AutoCAD bekomme ich eine Fehlermeldung...
Was muss ich ändern, damit der Befehl funktioniert?
Danke für jede Hilfe
Jörg

Sub Schaltfläche1_BeiKlick()

    'ggf. Laufwerk und Ordner als Vorgabe setzen
    ChDir "c:\trasse"
    ChDrive "c:\"
    'Das Dialogfenster
    dateiname = Application.GetOpenFilename _
      ("Textdateien (*.txt),*.txt")
    If dateiname = False Then Exit Sub
    MsgBox "Ihre Auswahl:" & vbNewLine & dateiname
   
Open dateiname For Input As #300
Input #300, x1
Close #300

MsgBox (x1)
   
End Sub

------------------
AutoCAD 2004 DEU

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

---

... und welche Fehlermeldung bekommst du?

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

Hallo Jörg,

Du bekommst sicher die Fehlermeldung ... 'Object doesnŽt support this property or method'

Das kommt daher, dass das Applikation-Object keine GetOpenFilename anbietet. Im Gegensatz zu Excel-VBA.

kuck Dir mal folgenden Thread an, damit sollte es gehen.
http://ww3.cad.de/foren/ubb/Forum259/HTML/000438.shtml

Oder Du benutzt das MS Common Dialog Control.

Gruss TP

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

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

---

die Methode GetOpenfileName() gibt's wohl nich ;-)

a) mörderische Krücke

Code:

---

Dim x, exapp As Object
Set exapp = CreateObject("Excel.application")
x = exapp.Application.getopenfilename("Textdateien (*.txt),*.txt")
If x <> False Then Open x For Input As #1
[...]
Set exapp = Nothing

---

b) sowas: http://ww3.cad.de/foren/ubb/Forum259/HTML/000438.shtml

Gruss Nancy 

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

---

VIELEN DANK, ihr seid die grössten :-)
(Die Krücke reicht mir völlig...)
Gruß Jörg

------------------
AutoCAD 2004 DEU

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