Send me one or two of the csv files private and I take a look

You can find my mail address here
http://www.rondebruin.nl/



"Thanks" schreef in bericht
...
I ve tried several times. With xls files in the folder it works, but when
I
change to the code to .csv it doesnt work.

"Ron de Bruin" wrote:

Test it again, this must work correct


"Thanks" schreef in bericht
...
Hello
I have been using the following code to open files Until now the files
were
supplied as .xls files. However now they are being supplied as .csv
Files.

Dim MyPath As String
Dim FilesInPath As String
Dim MyFiles() As String
Dim SourceRcount As Long
Dim Fnum As Long
Dim mybook As Workbook
Dim basebook As Workbook
Dim sourceRange As Range
Dim destrange As Range
Dim rnum As Long
Dim sfolder As String

sfolder = ThisWorkbook.Path

MyPath = sfolder
MsgBox (MyPath)

If Right(MyPath, 1) < "\" Then
MyPath = MyPath & "\"
End If

FilesInPath = Dir(MyPath & "*.xls")
MsgBox (FilesInPath)
If FilesInPath = "" Then
MsgBox "No files found"

Exit Sub
End If
How do I modify to open the .csv files. Changing FilesInPath =
Dir(MyPath
& "*.xls")
to
FilesInPath = Dir(MyPath & "*.csv"), doesn't work.


__________ Information from ESET Smart Security, version of virus
signature database 4285 (20090728) __________

The message was checked by ESET Smart Security.

http://www.eset.com





__________ Information from ESET Smart Security, version of virus
signature database 4285 (20090728) __________

The message was checked by ESET Smart Security.

http://www.eset.com





__________ Information from ESET Smart Security, version of virus
signature database 4285 (20090728) __________

The message was checked by ESET Smart Security.

http://www.eset.com





__________ Information from ESET Smart Security, version of virus signature database 4285 (20090728) __________

The message was checked by ESET Smart Security.

http://www.eset.com