Probleme mit Verweis auf Open?

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Swen,
noch mal ganz von vorn:
In deinem ersten Beitrag hast du geschrieben:


bekomme jetzt auf einem PC mit Excel 2000 das Problem das er folgende Zeile nicht kann,
Open strTempFolder & strName & ".cad" For Output As #1

Was meint "er kann nicht"?
Wenn der Code bis zu dieser Zeile läuft, sagt das schon aus, dass der VBA-(Pre)Compiler den Befehl Open erkannt hat.
Sonst gäbe es vorher schon einen Kompilierungsfehler.
Vielleicht hat der Fehler ja mit eingeschränkten Rechten zu tun.
Ich habe mir als normalem Benutzer (nicht Admin) auf meinem Rechner nicht erlaubt,
ins Rootverzeichnis C:\ schreiben.
Open "c:\xxx.txt" for output as #1 führt zum Laufzeitfehler 75 - Fehler beim Zugriff auf Pfad/Datei.
Welcher Fehler tritt bei dir in der Open-Zeile auf? Wie lautet die Fehlermeldung?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Option Explicit ' nach AW: Schreibrechte in Ordner - von Nepumuk am 23.07.2003 12:59:52 ' www.herber.de/forum/archiv/284to288/t284315.htm#284508 Sub ShowFolderInfo() Dim FSyObjekt As Object, FoObjekt As Object, intE As Integer, strE As String Set FSyObjekt = CreateObject("Scripting.FileSystemObject") Set FoObjekt = FSyObjekt.GetFolder("c:\programme") ' anpassen MsgBox FoObjekt.Attributes intE = FoObjekt.Attributes If intE Mod 2 > 0 Then strE = "schreibgeschützt" & " " intE = intE \ 2 If intE Mod 2 > 0 Then strE = strE & "verborgen" & " " intE = intE \ 2 If intE Mod 2 > 0 Then strE = strE & "Systemdatei" & " " intE = intE \ 2 If intE Mod 2 > 0 Then strE = strE & "Datenträgerbezeichnung" & " " intE = intE \ 2 If intE Mod 2 > 0 Then strE = strE & "Verzeichnis" & " " intE = intE \ 2 If intE Mod 2 > 0 Then strE = strE & "geändert" & " " intE = intE \ 2 If intE Mod 2 > 0 Then strE = strE & "Verknüpfung" & " " intE = intE \ 2 If intE Mod 2 > 0 Then strE = strE & "komprimiert" MsgBox strE End Sub ' 0 Normale Datei ' 1 Schreibgeschützte Datei ' 2 Verborgene Datei ' 4 Systemdatei ' 8 Datenträgerbezeichnung des Laufwerks ' 16 Ordner oder Verzeichnis ' 32 Die Datei hat sich seit der letzten Sicherung geändert ' 64 Verknüpfung '128 Komprimierte Datei

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread