How to save a CSV (having non-English characters) file as XLS file [message #231176] |
Sun, 15 April 2007 12:33 |
shwetabhandari02
Messages: 5 Registered: April 2007
|
Junior Member |
|
|
Hello,
I need to convert a CSV file as XLS using VB. Below is the code I am using.
-------------------------------------------------------------
-------------------------------------------------------------
Dim myXL
Dim strfileName As String
strfileName = "c:\ACS\" & (Dir("c:\ACS\*.csv", vbNormal))
Set myXL = CreateObject("excel.application")
myXL.Workbooks.Open strfileName
myXL.DisplayAlerts = False
myXL.ActiveWorkbook.SaveAs "c:\ACS\Dailyalert.xls", -4143
myXL.DisplayAlerts = True
myXL.ActiveWorkbook.Close False
Set myXL = Nothing
-------------------------------------------------------------
-------------------------------------------------------------
The problem is that the CSV file also has non-English(Asian) characters which gets corrupted when in the XLS file.
Is there a way to convert a CSV file into XLS file so that the non-English characters also gets saved?
When I manually save the CSV file as XLS file I am able to view the non-English characters present in the file.
Thanks and Regards,
Shweta Bhandari
|
|
|