Paste Value Excel - COM Topic is solved

[snowmind]

Good morning friends...
They have helped me before here to paste the value of a variable into a cell in Excel.
In this case I determine which cell to paste the value into.

Code: Select all

xlApp := ComObjCreate("Excel.Application")
xlAppDown := -4121
xlApp.Visible := true
xlApp.DisplayAlerts := False
oxWorkbook := xlApp.Workbooks.Open("C:\Temp\Some_Plan.xlsm")
xlApp.Range("A2").Value := VarToPaste

But what would I do if I had to paste the value into any cell? Because sometimes I look for a blank cell and I have to paste the value.
I try something like this...but doesnt work

Code: Select all

xlApp := ComObjCreate("Excel.Application")
xlAppDown := -4121
xlApp.Visible := true
xlApp.DisplayAlerts := False
oxWorkbook := xlApp.Workbooks.Open("C:\Temp\Some_Plan.xlsm")
xlApp.ActiveSheet.Value := VarToPaste

[boiler]

Do you mean whichever cell is currently selected? Try the following:
xlApp.ActiveCell.Value := VarToPaste

[snowmind]

Do you mean whichever cell is currently selected? Try the following:
xlApp.ActiveCell.Value := VarToPaste

Yes!!!! Its perfect now
Thanks a lot