in reply to I am frustrated with WIN32::OLE
Now I took that and put it into the VBScript and converted into thisWorkbooks.Open Filename:="C:\Proyecto\csv\T3683.csv.xls" Rows("1:10").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbov +e Range("B6").Select ActiveCell.FormulaR1C1 = "Report" Range("C7").Select
Now One thing I could never find was Insert that is the command or instruction to insert rows??? Hope I could help and hope you could help thnaksuse Win32::OLE; use constant xlDown => -4121; use constant xlFormatFromLeftOrAbove => 0; my $_app_object = (Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application')); $_app_object->Workbooks->Open({Filename => 'C:\\Proyecto\\csv\\T3683.c +sv.xls'}); $_app_object->Rows('1:10')->Select(); $_app_object->Selection->Insert({Shift => xlDown, CopyOrigin => xlForm +atFromLeftOrAbove}); $_app_object->Range('B6')->Select(); $_app_object->ActiveCell->{FormulaR1C1} = 'Report'; $_app_object->Range('C7')->Select();
|
|---|