Please install Ms-Office !
On Thu, Jul 2, 2009 at 10:35 AM, Devadula <[email protected]> wrote:
>
> 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..
>
--
Thanks & Regards,
Karthikeyan
