Hallo an alle,
ich habe folgende funktion.
Sub TabellezuCad(strName As String)
'am 20.02.2007 überarbeitet
Dim smsg As String, spath As String
Dim iCol As Integer, iRow As Long, strTmp As String
On Error GoTo Fehler:
'Prüfen ob das Sheet vorhanden ist
If Worksheet_suchen("cad") = True Then
'Wenn ja,... auswählen
Worksheets("cad").Select
'Frage nach Speicherort
smsg = "Wo soll die Datei abgelegt werden ?"
'Das verstehe ich auch nicht
'scheint aber irgendwie zu funktionieren
spath = ordner(smsg)
'Prüfen ob die Variable "sPath" eine Inhalt hat
'Warum dazu einen neue Variable ist mir allerdings schleierhaft
If spath <> "" Then strTempFolder = spath
'** Es wird eine Tabelle in eine cad/txt Datei gespeichert
'Datei virtuell öffnen
Open strTempFolder & strName & ".cad" For Output As #1
'Bezugnehmen auf das Sheet damit die Befehle kürzer geschrieben werden können
'dazu müssen die Verweise mit einem Punkt vorangesetzt werden
With ActiveWorkbook.Sheets("cad")
'Festlegen der Zeile mit dem letzten Eintrag
For iRow = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
'Variable leer stellen
strTmp = ""
'festlegen der letzten beschriebenen Spalte in Zeile "iRow"
For iCol = 1 To .Cells(iRow, Columns.Count).End(xlToLeft).Column
'Zusammensetzen der Werte der einzelnen Zellen
strTmp = .Cells(iRow, iCol) & ","
Next iCol
'Schreiben des Strings ohne das letzte Komma
strTmp = Left(strTmp, Len(strTmp) - 1)
'Schreiben in die virtuelle Datei
Print #1, strTmp
Next iRow
End With
'Virtuelle Datei schliessen
Close #1
End If
Exit Sub
Fehler:
strLetzteFehlerArt = Err.Description
strLetzteFehlerNummer = Err.Number
frmFehlerInfoAnSwen.Show
Exit Sub
End Sub
bekomme jetzt auf einem PC mit Excel 2000 das Problem das er folgende Zeile nicht kann,
Open strTempFolder & strName & ".cad" For Output As #1
Dieses liegt wahrscheinlich dadran das ich nicht genau auf die Funktion Open verweise,
kann mir jemand sagen welches Open hier verwendet ist kommt dieses aus Excel, Vba, oder
aus einer anderen Lib.!
danke!
gruß
swen