|
Open CSV File
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. |
Open CSV File
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 |
Open CSV File
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 |
Open CSV File
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 |
Open CSV File
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 "Ron de Bruin" schreef in bericht ... 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 __________ 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 |
| All times are GMT +1. The time now is 01:50 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com