Problem With Macro (csv file)

[floni]

Hi,

below my Macro:

Sub AllFiles()
Dim folderPath As String
Dim filename As String
Dim wb As Workbook

folderPath = "C:\Users\Dom\Desktop\Bob"

If Right(folderPath, 1) <> "" Then folderPath = folderPath + ""

filename = Dir(folderPath & "*.csv")
Do While filename <> ""
Application.ScreenUpdating = False
Set wb = Workbooks.Open(folderPath, Local:=True & filename)



Call ChangeFile


filename = Dir
Loop
Application.ScreenUpdating = True
End Sub

I need to open CSV file with data like Excel, so I wrote Local:=True, but then i have error:"run time error 1004 method open of object workbooks failed"

Any help is greatly appreciated!!

 

[Norie]

Try this.

Set wb = Workbooks.Open(folderPath &"\" & filename)

 

[floni]

Hi, Now I don't have error but when I open the file the data format is like csv. The second macro ChangeFile needs xls/xlsx data format.

 

[Norie]

What do you mean by 'data format ... like csv'?

 

[floni]

For example: all data are in A1 like aa;aa and should in column A1 aa and B1 aa. When I open the CSV file and use that: [FONT=&quot]Workbooks.Open Filename:=[/FONT]"C:\Users\Dom\Desktop\Bob"[FONT=&quot], Local:=True - then is ok. [/FONT]

 

[Norie]

Try this then.

Set wb = Workbooks.Open(FileName:=folderPath &"\" & filename, Local:=True)

 

[floni]

Thank you very much. Macro works good