Import from .txt to .xls

[smellyfingers]

Hi im trying to import a .txt to a new excel book and that works as planned so far accept it´s missing the zeros in the nr rows, is there a parameter to just format the whole book as text before the import?

Thanx!

[water]

How do you import the data? Manually or by script?

[smellyfingers]

Hi water, i do it by script,like this

#include <Excel.au3>
#include <Array.au3>
Dim $oExcel
$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 1
$oExcel.Workbooks.OpenText("\\DubbelkollOMT\Mobilnummer.txt", _
   1252,  _ ; Origin 
   1,    _ ; StartRow
   1,  _ ; DataType = x1Delimited
   2,  _  ; TextQualifier = x1DoubleQuote
   False,  _  ; ConsecutiveDelimiter
   True,   _  ; Tab
   False,   _  ; Semicolon
   False,  _ ; Comma
   False,  _ ; Space
   False  _ ; Other
      )
_ExcelBookSaveAs($oExcel, "\\DubbelkollOMT\Mobilnummer.xls", "xls", 0, 1)
_ExcelBookClose($oExcel)

[water]

You could pass parameter FieldInfo. An array containing parse information for individual columns of data. Set the column to xlTextFormat.

Edited March 6, 2013 by water

[smellyfingers]

Funny, i was looking at that page just before you posted , but how do i actually pass that parameter in a correct way based on the script example?

Thanx

[water]

Please check the of the Excel UDF I'm working on. It's just an alpha version but function _Excel_BookOpenText should do what you want. Check example 1 in _Excel_BookOpenText.au3 for an example.

Edited March 6, 2013 by water

[smellyfingers]

Sweet thanx i will check it out tomorrow when I'm back at work, thanx