Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problem opening a csv file
Message
From
03/08/2001 14:48:15
 
 
To
03/08/2001 12:11:06
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00539374
Message ID:
00539584
Views:
20
Thanks for the examples. They are a big help.

-Isaac

>Isaac,
>Just renaming doesn't make it CSV. A CSV is a comma delimited (text qualifier doublequotes) file where first line contains headers.
>
* CSV way
>Use customer
>Copy to customer type CSV && Extension by default is csv
>oExcel = createobject('Excel.Application')
>With oExcel
>  .Workbooks.Open(sys(5)+curdir()+'customer.csv')
>  .visible = .t.
>Endwith
>
>*OpenText way
>#Define xlDelimited 1
>#Define xlTextQualifierSingleQuote 2
>Use customer
>Copy to customer type delimited with "|" && Customer has single quote in fields
>Strtofile(chrtran(FileToStr('customer.txt'),"'",""),"customer.txt") && Remove single quotes
>Strtofile(chrtran(FileToStr('customer.txt'),"|","'"),"customer.txt") && TextQualifier single quote
>oExcel = createobject('Excel.Application')
>With oExcel
>  .Workbooks.OpenText(;
>    sys(5)+curdir()+'customer.txt',,,xlDelimited, xlTextQualifierSingleQuote,,,,.T.)
>  .visible = .t.
>Endwith
>
Cetin
>
>>Thanks for the suggestion, however, I don't quite understand.
>>I did try renaming the file to a .csv and I still have the same issue. The fields in the file are delimited with a single quote. When the file is opened in excel the columns still have the single quote around them.
>>
>>If I open the file (a txt) manually in excel and go thru the options presented selecting the delimited option of single quotes the file opened correctly. I tried recording this as a macro and looking at what it does which is how I got to the options I did try. I'll keep searching.
>>
>>Regards,
>>-Isaac
>>
>>>>Hello,
>>>>
>>>>I have a comma separated file with single quote delimiters that I am trying to open in Excel 2000 using VFP 6 automation. I can't seem to figure out the parameter or its position to tell excel that the file used the single quote delimeters. Does anyone know what position it is and what value to use?
>>>>Here what I am doing ...
>>>>
>>>>lcFileName = "C:\MyFile.txt"
>>>>loExcel = CreateObject("Excel.Application")
>>>>loExcel.WorkBooks.Open(lcFileName, 2, 1, 1, 2, .F., .F., .F., .T.)
>>>>loExcel.visible = .T.
>>>>
>>>>
>>>>I have tried variations of parameters and values but can't get it right.
>>>>Any help would be greatly appreciated.
>>>>
>>>>Thanks,
>>>>-Isaac
>>>
>>>Isaac,
>>>Either use OpenText method where you can specify TextQualifier or as an easier way use CSV format. Excel opens it directly seeing extension.
>>>Cetin
Previous
Reply
Map
View

Click here to load this message in the networking platform