How to convert .XLS to .CSV using VB 1

[basicyen]

All experts outthere help please..
I am trying to convert excel file to .CSV file(Commad delimeted). I build the scripts from the macro test it and works. But it wont work when embended into VB.
Here is sample of my code

On Error Resume Next
.
.
Set objectExl = GetObject(, "Excel.Application&quot
If Err.Number <> 0 Then
Set objectExl = CreateObject(&quot;Excel.application&quot
blnRunning = False
Else
blnRunning = True
End If
.
.
If objectExl.FileExists &quot;C:\ExcelFile.xls&quot Then
objectExl.Workbooks.Open &quot;C:\ExcelFile.Xls&quot;
Sheet= objectExl.Activeworkbooks.sheets(1).Name
Set obWorkSheet = objectExl.Activeworkbooks.sheets(Sheet)
End If

objectExl.ActiveWorkBook.SaveAS FileName:=&quot;H:\yan\VB\bamtrack\amex092002.csv&quot;, FileFormat:=xlCSV, CreateBackup:=False

.
.
.


Please
Help

 

[VBslammer]

You are missing a &quot;(&quot; in this line:

If objectExl.FileExists

(

"C:\ExcelFile.xls") Then

VBSlammer

Unemployed in Houston, Texas

 

[basicyen]

VBSlammer.... I see your correction. However, my need is to solve the following statement that still don't work to save from .Xls to .CSV file.

objectExl.ActiveWorkBook.SaveAS
FileName:=&quot;H:\yan\VB\bamtrack\amex092002.csv&quot;, _
FileFormat:=xlCSV, CreateBackup:=False

Please help....

Thanks

 

[VBslammer]

I don't have any problems using code similar to yours. The only thing I can think of is maybe you're trying to use an invalid path, or the .xls file contains features that cannot be converted to .csv format.

Sub ConvertToCSV(ByVal strFile As String, ByVal strNewName As String)
On Error GoTo ErrHandler

  Dim xl As Excel.Application
  Dim wb As Excel.Workbook
  Dim sht As Excel.Worksheet
  
  If Dir(strFile) = "" Then GoTo ExitHere
  
  Set xl = New Excel.Application
  
  Set wb = xl.Workbooks.Open(strFile)
  Set sht = wb.Sheets(1)
  
  wb.SaveAs FileName:=strNewName, FileFormat:=xlCSV, CreateBackup:=False
  
  wb.Close True
    
  xl.Quit
  
ExitHere:
  On Error Resume Next
  Set sht = Nothing
  Set wb = Nothing
  Set xl = Nothing
  Exit Sub
ErrHandler:
  MsgBox "Error: " & Err & " - " & Err.Description
  Resume ExitHere
End Sub

VBSlammer

Unemployed in Houston, Texas

 

[basicyen]

VBSlammer...you have been very helpful and Great. Your reply is very well documented and correct. I utilize it your procedure and it works. Thanks a million.

God Bless

Thanks