Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1964to1968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schreiben in TXT nicht möglich wenn über Power Query

Schreiben in TXT nicht möglich wenn über Power Query
26.02.2024 08:25:50
Andre´
Hallo alle zusammen,

wenn ich über Power Query eine TXT-Datei einlese, so kann ich in diese TXT-Datei nicht über VBA schreiben, solange die Excel-Datei geöffnet ist.
Schließe ich die Excel-Datei, so kann ich in die TXT-Datei über VBA solange schreiben bis ich über PQ die TXT-Datei einlese.

Gibt es eine Möglichkeit die Verbindung zu trennen, ohne dass ich die Excel-Datei schließen muss um Änderungen in der TXT-Datei per VBA vorzunehmen.

Vielen Dank im Voraus!

MFG Andre

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schreiben in TXT nicht möglich wenn über Power Query
26.02.2024 10:26:28
Yal
Hallo André,

das kann ich nicht nachvollziehen.
Bitte nicht den allgemeine Begriff "Text-Datei" und ".txt-Datei" vermischen. Eine ".csv-Datei" ist eine Textdatei, abei kein ".txt-Datei". Eine CSV bekommt, im gt zu einem ".txt", wenn es geöffnet wird, eine Reservierungsmarkierung: die Datei ist in Bearbeitung und zwar "exklusiv". .txt-Datei haben keine Reservierung und können jederzeit überschrieben werden.

Die Trennung der Verbindung geht über
WorkSheets("xy").ListObjects("abc").Unlink

aber es ist "one-Way". Dann solltest Du deine Excel-Datei schliessen ohne zu speichern, um beim nächsten mal eine verlinkte Abfrage wieder zu haben.

VG
Yal
Anzeige
AW: Schreiben in TXT nicht möglich wenn über Power Query
26.02.2024 11:21:09
Andre´
Hallo Yal,

danke für die Info.

Das ist aber nicht die Lösung die ich benötige, denn die Abfrage und das Schreiben soll möglich sein ohne die Datei zu schließen.

Nachfolgend ein paar Test-Dateien


1.) Die TXT.Datei => https://www.herber.de/bbs/user/167334.txt auf C:\ schieben

2.) Als Bsp. hier die Exceldatei mit der Abfrage https://www.herber.de/bbs/user/167336.xlsx

3.) in Excel-Datei das Makro einfügen und ausführen z.B.

Sub TXT()
Open "C:\Test.txt" For Output Lock Read Write As #1
Print #1, Format(Now, "hh:mm:ss")
Close #1
End Sub

4.) Abfrage aktualisieren

5.) jetzt nochmal das Makro ausführen

6.) Fehlermeldung:

Userbild



MFG Andre







Anzeige
AW: Schreiben in TXT nicht möglich wenn über Power Query
26.02.2024 13:29:33
Yal
Hallo Andre,

der Code funktioniert bei mir ohne Problem, wenn ich auf einem Unterverzeichnis schreibe. Direkt auf "C:\" bekomme ich eine Fehlermeldung.

VG
Yal
AW: Schreiben in TXT nicht möglich wenn über Power Query
26.02.2024 13:38:25
Andre´
Hallo Yal,

dann kopiere mal die *.txt-Datei in das Unterverzeichnis und passe in PQ den Pfad an.
Danach die Abfrage ausführen und dann den VBA Code.... dann kommt die Fehlermeldung, weil die Datei in PQ noch irgendwie geöffnet ist.

MFG Andre

AW: Schreiben in TXT nicht möglich wenn über Power Query
26.02.2024 14:03:57
Yal
Hallo Andre,

schmeisst den "Lock read write" raus.

aus
Open "C:\temp\H_Forum\test.txt" For Output Lock Read Write As #1


wird
Open "C:\temp\H_Forum\test.txt" For Output As #1


VG
Yal
Anzeige
AW: Schreiben in TXT nicht möglich wenn über Power Query
26.02.2024 14:37:43
Andre´
Hallo Yal,

wieder etwas gelernt, vielen Dank!

MFG Andre

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige