Office: Problem mit ThisWorkbook.Path

mobbysn · 22. Oktober 2018

Hallo,
ich exportiere Daten in eine Textdatei mit
Code:

Open ThisWorkbook.Path & "/Exportdaten.txt" For Output As #1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei mir klappt es auch ganz gut ( Excel Mac 16.18).
Die Datei wurde jetzt auf einen anderen Rechner getestet (nicht duch mich) mit der Version Excel für Mac 2011 Version 14.7.7 und es kommt die Meldung
Fehler beim Zugriff auf Pfad/Datei

Makros wurden aktiviert. Woran könnte das Problem liegen? Irendwelche Zugriffsrechte?

:)

Hajo_Zi · 24. Oktober 2018

es ist der falsche Code, damit wird nichts gespeichert/exportiert.

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

mobbysn · 24. Oktober 2018

Dr ganze Code ist
Code:

Sub ExportInTextDatei()
Dim Bereich As Range, Zeile As Long, Spalte As Long
Dim strDateiname As String
Dim VariableExport As Variant
VariableExport = Range("J13")
Dim myFile As String
myFile = Application.ThisWorkbook.Path & "/" & "Exportdaten.txt"

Set Bereich = ThisWorkbook.Worksheets("Daten Export").Range("Y1:AH368")
strDateiname = "Exportdaten.txt"
Open myFile For Output As #1

For Zeile = 0 To Bereich.Rows.Count - 1
If Len(Join(Application.Transpose(Application.Transpose(Bereich.Rows(Zeile + 1))), "")) Then
For Spalte = 0 To Bereich.Columns.Count - 1
Print #1, Bereich.Cells(1).Offset(Zeile, Spalte).Value & vbTab;
Next Spalte
Print #1,
Next Zeile
Close #1
Set Bereich = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hasso · 24. Oktober 2018

Hallo Mario,

müsste diese Zeile Code:

myFile = Application.ThisWorkbook.Path & "/" & "Exportdaten.txt"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nicht heißen Code:

myFile = Application.ThisWorkbook.Path & "\" & "Exportdaten.txt"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mobbysn · 24. Oktober 2018

Hallo Hasso,
wenn ich "" verwende, wird die Datei nicht im gleichen Verzeichnis gespeichert, sondern eine Ebene höher. Das gleiche passiert auch, wenn die ihn weg lasse, also
Code:

myFile = Application.ThisWorkbook.Path & "Importdaten Kalenderdaten.txt"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Luschi · 24. Oktober 2018

Hallo mobbysn,

germäß Hasso's Vorschlag muß es so lauten: Code:

myFile = Application.ThisWorkbook.Path & "\" & "Importdaten Kalenderdaten.txt"
oder
myFile = Application.ThisWorkbook.Path & "\Importdaten Kalenderdaten.txt"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Luschi · 24. Oktober 2018

Hallo Excel-Fan's

daß die Forumsbetreiber das Problem mit der Darstellung des Backslash's im Vba-Code nicht hinkriegen, macht mich noch wahnsinnig - in anderen Foren klappt es ja auch. Auf eine baldige Besserung darf man wohl nicht hoffen.

Gruß von Luschi
aus klein-Paris

mobbysn · 24. Oktober 2018

Hallo Luschi,
wenn ich Code:

myFile = Application.ThisWorkbook.Path & "Importdaten Kalenderdaten.txt"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

verwende, wird mir die Textdatei nicht im selben Ordner wie die Excel sondern eine Ebene höhr gespeichert.

Office: Problem mit ThisWorkbook.Path

Problem mit ThisWorkbook.Path

Problem mit ThisWorkbook.Path

Problem mit ThisWorkbook.Path

Problem mit ThisWorkbook.Path

Problem mit ThisWorkbook.Path - Similar Threads - Problem ThisWorkbook Path

Outlook Problem

Problem bei Fußnote

Excel found a problem with one or more formula references in this worksheet

Zählenwenns Problem

Problem mit Seitenzahlen/Seitenbeschriftung

Data Transform, Problem with delimiter

Problem Datenstruktur Mitglieds-Datenbank