StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>Thanks for at all for your answers. This resolved my issue. All I wanted to do with the OpenText method was to convert a TSV file to Excel as this is the result format I require. As I couldn't find a solution on the web before I like to provide the complete code:</p> <pre><code>use Win32::OLE; use Win32::OLE::Const 'Microsoft Excel'; use strict; Win32::OLE->Option(Warn => 3); my $FileName = "Complete Path of TSV File"; my $Excel = Win32::OLE->new("Excel.Application"); # Open Tab separated Text file in Excel, all 18 columns are "Text" formated $Excel->Workbooks->OpenText({ Filename => $FileName, Origin => xlMSDOS, StartRow => 1, DataType => xlDelimited, TextQualifier => xlDoubleQuote, Tab => "True", FieldInfo => [[1, xlTextFormat], [2, xlTextFormat], [3, xlTextFormat], [4, xlTextFormat], [5, xlTextFormat], [6, xlTextFormat], [7, xlTextFormat], [8, xlTextFormat], [9, xlTextFormat], [10, xlTextFormat], [11, xlTextFormat], [12, xlTextFormat], [13, xlTextFormat], [14, xlTextFormat], [15, xlTextFormat], [16, xlTextFormat], [17, xlTextFormat], [18, xlTextFormat]], TrailingMinusNumbers => "True" }); my $Sheet = $Excel->ActiveWorkbook->Worksheets(1); $Sheet->Activate; my $Workbook = $Excel->ActiveWorkbook; # Replace the "*.txt" file extension by "*.xls" for Excel $FileName =~ s/txt$/xls/; # Turn off the "This file already exists" message. $Excel->{DisplayAlerts} = 0; # Save file as Excel 2000-2003 Workbook (command for Excel 2007) $Workbook->SaveAs({Filename => $FileName, FileFormat => xlExcel8}); $Excel->Quit; </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload