OLE Module - Need to convert Excel VB Macro to perl

Hi there,
I need to convert the Excel VB code below to perl.
I have had many attempts but am still not there.


Any advice/help will be much appreciated.
Thanks.
Paul


With
ActiveSheet.QueryTables.Add(Co=ADnnection:=3D"TEXT;H:\Projec ts\Pe=ADrforman=
ce

Improvement\acc_res.030805", Destination:=3DRange("A1"))
.Name =3D "acc_res.030805"
.FieldNames =3D True
.RowNumbers =3D False
.FillAdjacentFormulas =3D False
.PreserveFormatting =3D True
.RefreshOnFileOpen =3D False
.RefreshStyle =3D xlInsertDeleteCells
.SavePassword =3D False
.SaveData =3D True
.AdjustColumnWidth =3D True
.RefreshPeriod =3D 0
.TextFilePromptOnRefresh =3D False
.TextFilePlatform =3D 850
.TextFileStartRow =3D 1
.TextFileParseType =3D xlDelimited
.TextFileTextQualifier =3D xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter =3D True
.TextFileTabDelimiter =3D True
.TextFileSemicolonDelimiter =3D False
.TextFileCommaDelimiter =3D False
.TextFileSpaceDelimiter =3D True
.TextFileColumnDataTypes =3D Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers =3D True
.Refresh BackgroundQuery:=3DFalse
End With=20
Columns("A:A").ColumnWidth =3D 16.86