Makro hebt Spaltentrennung auf

Computer: Software & Programmierung Visual Basic
#1

Hallo

Ich habe folgende Code gefunden
Sub MehrereDateien()

Dim wb As Workbook
Dim strmyPath As String
Dim strmyDat As String

strmyPath = „C:\Documents and Settings\whaefliger\Desktop\mac2x_richi\CSV“ 'hier deinen Pfad angeben

strmyDat = Dir(strmyPath & „*.csv“)
Do While strmyDat „“

Set wb = Workbooks.Open(strmyPath & strmyDat)
'Jetzt dein Makro
'Call TextInSpalte
'Call Dtv
ActiveWorkbook.Save

wb.Close False
strmyDat = Dir

Loop

End Sub
leider hebt er, aus mir nicht ersichtlichem Grund, die Spaltentrennung auf.

Dadurch läuft natürlich Makro Dtv nicht, da es sich auf den Inhalt von Spalte B bezieht.

weiss jemand was ich falsch mache?

Gruss

Walti

#2

Hallo Walter,

so wie ich das herauslese, macht das Makro einen Datenimport von CSV Daten?

Daten die als CSV-Daten gespeichert werden, werden mit einem Bindestrich getrennt und bei einem Datenimport (zum Beispiel in Excel) immer in eine Zelle je Zeile geschrieben. Der korrekte Weg, CSV Daten einzufügen, ist der Weg über Daten -> externe Daten importieren und dann die CSV Datei auswählen.

Wie das über ein Makro geht ?

Ich möchte aber darauf hinweisen, dass ich keine Experte bin und wenn es jemand weis / besser weis, der soll mich bitte korrigieren.

Servus Walter

#3

hmmm

da sehe ich nix, aber die Programme und dein Makro fehlen ja, vieleicht ist da ja ein fehler…

dies öffnet nur und speichert die datei…
sorry das ich nciht weiterhelfen konnte…

bin ab morgen im urlaub, wenn du noch was hast dann aber schnell^^

cya Mako

#4

Hallo Mako Tula

Ich bin inzwischen weiter am schen.
Vermutlich Rufe ich das 2. Makro am falschen Ort auf.

Danke und Gruss

Walti

#5

Hallo fuhri 1
Ich bin inzwischen weiter am schen.
Vermutlich Rufe ich das 2. Makro am falschen Ort auf.

Danke und Gruss

Walti

#6

Hallo!
Tut mir leid, kenn das Problem nicht!
LG

#7

Hallo Herbie 1966
Ich habe die Lösung inzwieschen gefunden.

Danke Trotzdem

Gruss

Walti

Hallo!
Tut mir leid, kenn das Problem nicht!
LG

#8

Hallo Walti,

zum Thema Makros kann ich Dir leider nicht weiterhelfen
Weiterhin viel Glück
Gruß A.

#9

Hallo,
tut mir leid, habe keine Lösung

#10

Hallo Walter,

versuchs mal mit einem anderen Datei-öffnen-Befehl:

Application.Workbooks.OpenText Filename:=(strmyPath & strmyDat), DataType:=xlDelimited, Semicolon:=True, Local:=True

(statt „Set wb = Workbooks.Open(strmyPath & strmyDat)“ )

Gruß,
Carsten

#11

Hallo Carsten

Das Problem hat sich inzwischen erledigt.

Lagh am Exportfile und nich am Excel.

Trotzdem vielen Dank

Gruss

Walti