Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

csv mit semikolon bei makro einlesen

csv mit semikolon bei makro einlesen
11.07.2007 10:54:54
a.
hallo zusammen,
ich habe ein problem beim öffnen einer csv datei durch ein makro.
bei normalen öffnen über excel wird korrekt über semikolon getrennt beim makro über komma.
ich habe schon mitbekommen das wohl bei der makroausführung auf us-standart umgeschaltet.
habe es schon über einen zusätzlichen registry versucht:
Schlüssel: HKCU\Software\Microsoft\Office\11.0\Excel\Options
Name: VBAAlwaysLoadUS
Typ: DWORD
Wert: 0
leider hat das zur lösung meines problemes nicht beigetragen.
eine lösung per vba ist nicht unbedingt für mich von interesse. da es um eine grundsätzliche einstellung handeln müsste und ich diese auch auf verschieden rechnern bzw. verschieden excel-datein durchführen muss.
ich bedanke mich im vorraus für eventuelle lösungsvorschläge

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv mit semikolon bei makro einlesen
11.07.2007 11:05:04
Renee
Mazwara a.
Ist der Code des Makros geheim ?
Awaiting more information... Renee

AW: csv mit semikolon bei makro einlesen
11.07.2007 11:13:31
a.
Nö,

Sub Makro7()
Workbooks.Open Filename:="S:\spool\es\susasak.csv"
Cells.Select
Selection.Copy
Windows("Konten Auswertung.xls").Activate
Sheets("Klinikum - Serv - Med - MVZ").Select
Cells.Select
ActiveSheet.Paste
Windows("susasak.csv").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Selection.End(xlToRight).Select
Range("R1").Select
ActiveCell.FormulaR1C1 = "=RC[-9]&"" ""&RC[-8]"
Range("R1").Select
Selection.Copy
Range("Q1").Select
Selection.End(xlDown).Select
Range("R1495").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Auswertung").Select
End Sub


Anzeige
AW: csv mit semikolon bei makro einlesen
11.07.2007 12:50:00
Rudi
Hallo,
so:

Sub tt()
Dim strTxt As String, myArr, lngL As Long, wks As Worksheet
lngL = 1
Open "S:\spool\es\susasak.csv" For Input As #1
Set wks = Workbooks.Add(1).Sheets(1)
Do Until EOF(1)
Line Input #1, strTxt
myArr = Split(strTxt, ";")
With wks
.Range(.Cells(lngL, 1), .Cells(lngL, UBound(myArr) + 1)) = myArr
End With
lngL = lngL + 1
Erase myArr
Loop
Close #1
wks.Cells.Copy Workbooks("Konten Auswertung.xls").Sheets("Klinikum - Serv - Med - MVZ"). _
Cells
wks.Parent.Close False
With Workbooks("Konten Auswertung.xls").Sheets("Klinikum - Serv - Med - MVZ")
.Range(.Range("R1"), .Range("Q1").End(xlDown).Offset(0, 1)).FormulaR1C1 = "=RC[-9]&"" ""& _
RC[-8]"
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: csv mit semikolon bei makro einlesen
11.07.2007 13:54:00
a.
Danke ersteinmal für die lösungsvorschläge.
ist es auch möglich den sachverhalt über einstellungen zu gewährleisten?
gruß

AW: csv mit semikolon bei makro einlesen
11.07.2007 14:03:28
Rudi
Hallo,

ist es auch möglich den sachverhalt über einstellungen zu gewährleisten?


Weiß ich nicht und halte ich nicht für sinnvoll, da du die Einstellungen an jedem Rechner vornehmen müsstest. So läuft das überall.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige