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