Imports XL = Microsoft.Office.Interop.Excel
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

        Dim XLapp As New XL.Application



        Dim Filename As String = "sqlquery" 'sqlquery.txt

        Dim Origin As Object

        Dim StartRow As Object

        Dim DataType As Object

        Dim TextQualifier As XL.XlTextQualifier

        Dim ConsecutiveDelimiter As Object

        Dim Tab As Object

        Dim Semicolon As Object

        Dim Comma As Object

        Dim Space As Object

        Dim Other As Object

        Dim OtherChar As Object

        Dim FieldInfo As Object

        Dim TextVisualLayout As Object

        Dim DecimalSeparator As Object

        Dim ThousandsSeparator As Object

        Dim TrailingMinusNumbers As Object

        Dim Local As Object

         XLapp.Workbooks.OpenText(Filename, XL.XlPlatform.xlWindows,
1, XL.XlTextParsingType.xlDelimited,
Microsoft.Office.Interop.Excel.XlTextQualifier.xlTextQualifierSingleQuote,
ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar,
FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator,
TrailingMinusNumbers, Local)
        Dim workbook1 As XL.Workbook = XLapp.ActiveWorkbook

        workbook1.SaveAs("NewFileName", XL.XlFileFormat.xlExcel7)




in the above code at starting itself near " Dim XLapp As New
XL.Application " i'm getting an error..
the error is..""Retrieving the COM class factory for component with
CLSID {00024500-0000-0000-C000-000000000046} failed due to the
following error: 80040154.""...In my system MSOffice is not
installed..can u pls help for this..

Reply via email to