_Excel_BookOpenText wrong format?

[Damein]

Hey guys.

 

Don't know if I'm doing this wrong but it seems I have it correct something is just amiss. I'm thinking its my lack of experience in Excel that is the problem.

 

Trying to export a text file to Excel and everything works but the formatting is off on some data.

 

Here are two screen shots.

Before I stretch the column the Bin Number looks like this.

 

After I stretch it it looks like this.

 

 

 

Now its still wrong because this is the data its suppose to be inputting.

 

Part Number|Part Description|Product Line|Bin Number|Count
1E-1041014|Label, Hazcom, Flooded, Med.|Deka|NA
1E-1041015|Label, Hazcom, Flooded, Lg.|Deka|NA
1E-1041017|Label, Hazcom, Agm/Gel, Med.|Deka|NA
1E-12214905|1/0 Thimble|NA|1E0302
1E-12214907|2/0 Thimble|NA|1E0303
1E-81214921|Cone, Single, Standard|NA|NA

 

And this is the section of the script doing the export.

 

Func _Export()
    Dim $ExportData[1][4]
    $ItemCount = _GUICtrlListView_GetItemCount($ListView)
    For $i = 0 To $ItemCount - 1
        $GetPartNumberText = _GUICtrlListView_GetItemText($ListView, $i)
        $GetPartDescriptionText = _GUICtrlListView_GetItemText($ListView, $i, 1)
        $GetPartProductLineText = _GUICtrlListView_GetItemText($ListView, $i, 2)
        $GetPartBinNumberText = _GUICtrlListView_GetItemText($ListView, $i, 3)
        _ArrayInsert($ExportData, $i, $GetPartNumberText & "|" & $GetPartDescriptionText & "|" & $GetPartProductLineText & "|" & $GetPartBinNumberText)
    Next
    _ArrayDelete($ExportData, $ItemCount)
    SplashTextOn("Exporting...", "Exporting... please wait...", 300, 50, Default, Default, 33)
    Local $oExcel = _Excel_Open()
    If @error Then Exit MsgBox(16, "Excel UDF: _Excel_BookOpenText Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    FileDelete(@TempDir & "/Temp Part Database.txt")
    FileDelete(@ScriptDir & "/Temp Part Database.txt")
    _FileWriteFromArray(@TempDir & "/Temp Part Database.txt", $ExportData)
    _FileWriteToLine(@TempDir & "/Temp Part Database.txt", 1, "Part Number|Part Description|Product Line|Bin Number|Count")
    _FileWriteFromArray(@ScriptDir & "/Temp Part Database.txt", $ExportData)
    _FileWriteToLine(@ScriptDir & "/Temp Part Database.txt", 1, "Part Number|Part Description|Product Line|Bin Number|Count")
    Local $sTextFile = @TempDir & "/Temp Part Database.txt"
    FileOpen(@TempDir & "/Temp Part Database.txt")
    $oWorkbook = _Excel_BookOpenText($oExcel, $sTextFile, Default, $xlGeneralFormat, Default, Default, "|")
    If @error Then
        MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpenText Example 1", "Error opening '" & $sTextFile & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
        Exit
    Else
    EndIf
    SplashOff()
EndFunc   ;==>_Export

 

Any takers? Thanks!

[BrewManNH]

The format of the 4th column is probably set to General format, you should format it to Text format.