Open CSV File

[Thanks]

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.

 

[Ron de Bruin]

Test it again, this must work correct

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

 

[Thanks]

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]

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/

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.



__________ 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

 

[Ron de Bruin]

Problem fixed : The csv files where in another folder, so that was the
reason that the code say No files found

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

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/






__________ 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 4286 (20090728) __________

The message was checked by ESET Smart Security.

http://www.eset.com

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

The message was checked by ESET Smart Security.

http://www.eset.com