Datum

Titel

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1320to1324

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Mit VBA eine Datei mit Notepad verschieben

Forumthread: Mit VBA eine Datei mit Notepad verschieben
8 Beiträge zu diesem Forumthread
Anzeige
304 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

15.07.2013 17:20:06

RAP

Hallo,
ich habe per Excel eine Datei von Laufwerk x (unix) nach Laufwerk y (windows) zu kopieren. Wenn ich das manuell mit notepad mache, dann werden die Umlaute korrekt kodiert.
Wie kann ich im Hintergrund per VBA eine Datei im Editor öffnen und in einem anderen Laufwerk speichern?
Gruß Ralf

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mit VBA eine Datei mit Notepad verschieben

15.07.2013 17:32:59

Martin
AW: Mit VBA eine Datei mit Notepad verschieben

15.07.2013 17:58:46

Hajo_Zi
...na wegen der Umlaut-Konvertierung owT

15.07.2013 18:34:59

Martin
AW: Mit VBA eine Datei mit Notepad verschieben

16.07.2013 10:14:57

RAP
Möglich, aber dann solltest du uns auch ...

16.07.2013 12:19:21

Luc:-?
AW: Möglich, aber dann solltest du uns auch ...

16.07.2013 12:38:35

RAP
AW: Möglich, aber dann solltest du uns auch ...

17.07.2013 08:57:09

Martin
Funktioniert gut!

17.07.2013 12:44:59

RAP

AW: Mit VBA eine Datei mit Notepad verschieben

15.07.2013 17:32:59

Martin

Hallo Ralf,
an deiner Stelle würde ich die Dateien per VBA auslesen, jedes einzelne Zeichen mit der Case-Anweisung auf Umlaut prüfen bzw. ersetzen und in eine neue Datei schreiben. Kannst du mal bitte eine unix-Datei mit falschen Umlauten hochlade? Ich schreibe dir dann ein Makro.
Viele Grüße
Martin

AW: Mit VBA eine Datei mit Notepad verschieben

15.07.2013 17:58:46

Hajo_Zi

Hallo Ralf,
warum öffnen?
FileCopy LaufwerkV & "Laser Muster.xls", _
LaufwerkM & "Laser Muster.xls"

...na wegen der Umlaut-Konvertierung owT

15.07.2013 18:34:59

Martin

owT

AW: Mit VBA eine Datei mit Notepad verschieben

16.07.2013 10:14:57

RAP

Hallo,
Datei ist hoffentlich hochgeladen worden.
Gruß Ralf

Möglich, aber dann solltest du uns auch ...

16.07.2013 12:19:21

Luc:-?

…ihre „Anschrift“ verraten, Ralf!
Liest du eigentlich das, was dir der Server mitteilt…?! :-/
Gruß Luc :-?

AW: Möglich, aber dann solltest du uns auch ...

16.07.2013 12:38:35

RAP

https://www.herber.de/bbs/user/86392.zip

AW: Möglich, aber dann solltest du uns auch ...

17.07.2013 08:57:09

Martin

Hallo Ralf,
hast du dir so etwas vorgestellt? Ich hoffe, dass ich keine wichtigen Zeichen vergessen habe zu konvertieren, in deiner Beispieldatei waren nur ein "ö" und ein "ä" enthalten. Ich habe noch das "ß", "ü", und "é" ergänzt.

Sub UTF_to_ANSI()
Dim strFileUTF As String, strFileANSI As String
Dim strTXTLine As String
Dim arrUmlaute(), iUmlaut As Integer
'Pfad der UFT-Datei
strFileUTF = "c:\MM_20130711.csv"
'Zieldatei
strFileANSI = "c:\test\MM_20130711.csv"
Open strFileUTF For Input As #1
Open strFileANSI For Output As #2
While Not EOF(1)
Line Input #1, strTXTLine
arrUmlaute = Array("Ã", "Ü", "Ã¼", "ü", "Ã", "Ö", "Ã¶", "ö", "Ã", "Ä", "Ã¤", "ä", "Ã _
", "ß", "Ã©", "é")
For iUmlaut = LBound(arrUmlaute) To UBound(arrUmlaute) Step 2
strTXTLine = Replace(strTXTLine, arrUmlaute(iUmlaut), arrUmlaute(iUmlaut + 1))
Next iUmlaut
Print #2, strTXTLine
Wend
Close #1
Close #2
End Sub

Viele Grüße
Martin

Funktioniert gut!

17.07.2013 12:44:59

RAP

Danke!