Problems importing a CSV-file

[ApPojken]

Hi!

I have been googleling around for a whole day without coming to
conclusion with this issue.

I am trying to import a CSV-file (semicolon seperated values). I hav
tried and tried with all sollutions I have found but nothing works. I
still imports it with all the semicolons and does not seperate th
fields.

I have tried this:
Workbooks.Open "C:\test\Planner.csv", , , , xlCSV, , , , ";"
this:
Workbooks.Open FileName:=C:\test\Planner.csv, Format:=xlCSV, _
Delimiter:=";", ReadOnly:=True

Neither works. I have also tried to change the ";" to the number fo
semicolon and that didn't work either.

This works:
Shell "Excel.exe " & "C:\test\Planner.csv", vbMinimizedNoFocus
But the problem is when I open the document this way I dont get th
link requiered for my VBA module to work.

Please, please, please help a desperate man!

/Ro

 

[Ardus Petus]

Try Workbooks.Opentext function

HTH
--
AP

"ApPojken" <[email protected]> a écrit
dans le message de
news:[email protected]...

 

[ApPojken]

Like this?
Workbooks.OpenText "C:\test\Planner.csv", , 1, , , , , True

Still doesn't work

 

[NickHK]

Rob,
Excel is taking the value from the Regional Options>Numbers>List Separator
setting.
If this is a ";", the your csv will open as desired. Otherwise, Excel does
not consider the ";" as separating anything.

The alternative is Data>Get External Data>Import File. Record a macro when
you do that, you will something like:

With ActiveSheet.QueryTables.Add(Connection:=
"TEXT;C:\PathToFile\SemiColonSeparatedFile.csv", Destination:=Range("A1"))
'...........
'...........
.TextFileSemicolonDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, ... 1, 1)
End With


NickHK

 

[ApPojken]

NickHK - That did the trick! Thanks alot

 

[Ardus Petus]

The following works by me:

Sub readCSV()
Workbooks.OpenText _
Filename:="U:\family2.csv", _
semicolon:=True
End Sub

HTH
--
AP

"ApPojken" <[email protected]> a écrit
dans le message de
news:[email protected]...