|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 02.02.2007 um 18:16 Uhr (0)
Hallo Carsten,:top@Uwediesen Verweis müsstes du aber eigentlich schon zum Einlesen eingestellt haben. (hier)------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stagladasy am 02.02.2007 um 18:23 Uhr (0)
Hallo Carsten,dank Dir, echt super. Und trotz alledem noch eine letzte Frage. Wennn ich das sub jetzt als Schleife durchlaufen lassen will, so dass er das nächste mal an eine andere Position einen Wert schreibt - kommt die Meldung "Datei existiert bereits" - was müsste man diesbezüglich ändern?Vielen Dank Uwe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 02.02.2007 um 18:42 Uhr (0)
Hallo Uwe,zuerst prüfen ob es das BakFIle gibtfso.Fileexist Bakfilewenn ja dann löschenfso.removefile BakFIleStelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 02.02.2007 um 18:47 Uhr (0)
Hallo Uwe,mir ist noch aufgefallen das du eine Stelle noch einfacher hinbekommstCode: ALT Spalten(ZielSpalte) = NeuerWert For i = 0 To UBound(Spalten) Ziel.Write Spalten(i) & ";" Next i Ziel.Write vbCrLf Neu Spalten(ZielSpalte) = NeuerWert Ziel.WriteLine Join(Spalten,";")Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Carsten1210 am 02.02.2007 um 18:48 Uhr (0)
Hi Uwe,DU musst natürlich die .Bak erst wieder löschen, wenn die vorhanden ist.Hier findest du auch noch ein paar Sachen zum FileSystemObject.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stagladasy am 02.02.2007 um 19:26 Uhr (0)
Prima, es lag an der .bak Datei. Nach dem sie gelöscht ist läuft das Sub wieder. Was jedoch nicht ganz einleuchtet ist, warum er die .bak in ein ganz anderes Verzeichnis schreibt - nach meinem Dafürhalten - eines welches gar nichts mit AutoCad bzw. der Datei zu tun hat. Habt Ihr da eine Antwort zu. DankeUwe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stagladasy am 02.02.2007 um 19:35 Uhr (0)
Hallo Stelli und Carsten,habe den Rechner neu gestartet und jetzt schreibt er die Bak ins AutoCad Verzeichnis - macht jetzt alles wieder Sinn. Also vielen Dank an Euch beide für Eure Hilfe.Gruß Uwe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stagladasy am 25.02.2007 um 09:52 Uhr (0)
Hallo liebe Leute, bzgl. des auch schon oben stehenden Subs würde ich gerne, dass dieses Sub mehrfach per Schleife durchlaufen werden kann und sich die Zeilen bzw. Spalten, also die Datenfelder in die geschrieben werden sollen, ändern. Nun wird die Schleife zwar entsprechend oft durchlaufen, aber es wird nur der erste Wert 2 in das zuerst festgelegte Datenfeld 9, 3 geschrieben. Wieso ist das so, und wie müsste das Sub aussehen, damit auch die anderen Werte entsprechend in der csv-Datei platziert werden?Vie ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stagladasy am 25.02.2007 um 18:25 Uhr (0)
Hallo Stelli, habe da jetzt eine kleine Ewigkeit daran umhergebastelt mit Deinem letzten und mit meinem alten Code, aber er schreibt weiterhin ausschließlich nur den ersten Wert (in die .bak im AutoCAD Verzeichnis als auch in der .csv unter Temp). Die Schleife wird zwar ordentlich durchlaufen, aber das war auch schon alles. Irgendwie komm ich nicht weiter. Wäre für Hilfe dankbar. Uwe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 25.02.2007 um 12:59 Uhr (0)
Hallo Uwe,erstmal scheint mir das du da etwas mit den Dateien durcheinander bist. Wo soll denn das Ergebnis rein ?Datei = "C:ProgrammeAutoCAD 2002 DeuERG_VT_ID.bakoderDateiName = "C: empERG_VT_ID.csv"Eigentlich kann das so nicht laufen.Code: ....... Datei = "C:ProgrammeAutoCAD 2002 DeuERG_VT_ID.bak" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Datei) Then Datei = "C:ProgrammeAutoCAD 2002 DeuERG_VT_ID.bak" Set fso = CreateObject("Scripting.FileSystemObject") ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stagladasy am 25.02.2007 um 14:12 Uhr (0)
Hallo Stelli, das Ergebnis soll in die DateiName = "C: empERG_VT_ID.csv", die Bak-Datei ist mir eigentlich unwichtig. Was jedoch wichtig ist, ist das die Zieldatei, also die CSV-Datei, mehrfach während des Programmablaufes beschrieben werden kann - geöffnet und geschlossen nach / vor jeder neuen Schleife. Z.B.: Datei öffnen, 3 Felder einer Spalte (je nach Schleifengröße) beschreiben, dann Datei speichern und schließen. Zu einem späteren Zeitpunkt ist der entsprechende Code wieder im Programm implementiert ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 27.02.2007 um 21:30 Uhr (0)
Hallo Uwe,hab dir mal ein Beispiel gemacht wie ich es anfangen würde.Hab mal ein paar Fehlerabfragen reingebaut, aber ein wenig musst du ja auch noch zu tun haben.Code: in ein ModulPublic mycsv As cls_CSVSub test() Dim i As Integer Set mycsv = New cls_CSV If Not mycsv.OpenFile("C:TEMPTEST.txt") Then MsgBox mycsv.ErrMessage Exit Sub End If For i = 2 To mycsv.Rows mycsv.SetValue i, 3, "TEST2" Next i If mycsv.UnSaved Then mycsv.SaveFile End IfEnd SubSu ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD und VB6
startrek am 02.03.2007 um 01:19 Uhr (0)
Hallo Dirk,habs nur überflogen erstmal, die generelle Frage die ich mir stelle,ist, wozu _diesen_ Code in VB?Ich mein, ausführbar ist der nur mit Acad, bei jedem PC ohne Acad schmiert die exe ab, was steht also gegen das A hintendran?;-)Aber okay - ist ja nur ne Trockenübung, s geht ja ums Prinzip ...also general musst du in VB so drangehen, als wenn du extern auf Acad zugreifst (zB wie auch aus Excel heraus),faktisch gehört erstmal die Application (Acad) selber in ein Object.Code:dim objAcad as Objectset ...
|
| In das Form Autocad VBA wechseln |
