Thanks in Advance

http://www.google.com/search?hl=en&q=convert+txt+to+xls%2Bvb.net&aq=f...

On Jun 30, 5:13 am, Devadula <pavandevad...@gmail.com> wrote:

On Jun 30, 4:13 pm, Devadula <pavandevad...@gmail.com> wrote:

Can you please figure it out yourself or maybe try another career?

On Jun 30, 11:39 pm, Devadula <pavandevad...@gmail.com> wrote:

http://www.lmgtfy.com/?q=code+for+converting+txt+to+excel<http://www.lmgtfy.com/?q=code+for+coverting+txt+to+excel>

well, that is quite cool. Btw do you know that .xls file is from Microsoft
Office Excel?
Question
/which version of Excel should it be?

2009/7/1 Devadula <pavandevad...@gmail.com>

On Jul 1, 7:59 pm, The_Fruitman <evilfruitsmas...@gmail.com> wrote:

    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..

Please install Ms-Office !

is there any way instead of installing MS Office..

--
Best Regards,
Pavan Kumar DNN.

On Jul 2, 7:26 am, pavan gupta <pavandevad...@gmail.com> wrote:

Well, of course, you can convert it without installing Ms OFFICE. But
because OpenOffice will not work this way, you have to make your own data
parser :)

2009/7/3 The_Fruitman <evilfruitsmas...@gmail.com>

Simple questions demand simple answers.

I haven't done VB since v5, but, here you go.
----------------------------------------------------------
Private Sub Command1_Click()
#
On Error Resume Next
#
    Name "Devadula.txt" As "Devadula.xls"
#
End Sub

:D :D, ok, you've won :)

2009/7/15 Peter Smith <psmith.w...@gmail.com>

I hope this will not take too much space...

Ok, if you want to convert txt file to the xls, you have lucky day. Because
new Excel format looks like XML, you easily can create code, which makes
something like

<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
 <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
  <LastAuthor>basad01</LastAuthor>
  <Created>2009-07-16T07:43:44Z</Created>
  <Version>11.9999</Version>
 </DocumentProperties>
 <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
  <WindowHeight>9090</WindowHeight>
  <WindowWidth>13260</WindowWidth>
  <WindowTopX>480</WindowTopX>
  <WindowTopY>30</WindowTopY>
  <ProtectStructure>False</ProtectStructure>
  <ProtectWindows>False</ProtectWindows>
 </ExcelWorkbook>
 <Styles>
  <Style ss:ID="Default" ss:Name="Normal">
   <Alignment ss:Vertical="Bottom"/>
   <Borders/>
   <Font/>
   <Interior/>
   <NumberFormat/>
   <Protection/>
  </Style>
  <Style ss:ID="s21">
   <Font x:Family="Swiss" ss:Bold="1"/>
  </Style>
 </Styles>
 <Worksheet ss:Name="blbost">
  <Table ss:ExpandedColumnCount="2" ss:ExpandedRowCount="4"
x:FullColumns="1"
   x:FullRows="1">
   <Column ss:AutoFitWidth="0" ss:Width="61.5"/>
   <Column ss:AutoFitWidth="0" ss:Width="120.75"/>
   <Row>
    <Cell ss:StyleID="s21"><Data ss:Type="String">Title 1</Data></Cell>
    <Cell ss:StyleID="s21"><Data ss:Type="String">Title2</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">test1</Data></Cell>
    <Cell><Data ss:Type="String">test2</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">testA</Data></Cell>
    <Cell><Data ss:Type="String">testB</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">testX</Data></Cell>
    <Cell><Data ss:Type="String">testY testZ</Data></Cell>
   </Row>
  </Table>
  <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">
   <Print>
    <ValidPrinterInfo/>
    <HorizontalResolution>200</HorizontalResolution>
    <VerticalResolution>200</VerticalResolution>
   </Print>
   <Selected/>
   <Panes>
    <Pane>
     <Number>3</Number>
     <RangeSelection>R1C1:R1C2</RangeSelection>
    </Pane>
   </Panes>
   <ProtectObjects>False</ProtectObjects>
   <ProtectScenarios>False</ProtectScenarios>
  </WorksheetOptions>
 </Worksheet>
</Workbook>

2009/7/16 Processor Devil <processor.de...@gmail.com>

thank u for ur answer...

--
Best Regards,
Pavan Kumar DNN.