Excel VBA functions in VBScript

[Katto]

Hello,

I have this script and the LastColumn and LastRow lines do not work. Any suggestions?

Thank you

Set objExcel = CreateObject("Excel.Application")
strExcelPath="C:\TMP\TEST.XLSX"
objExcel.Workbooks.Open strExcelPath
objExcel.Visible = True
Set objSheet = objExcel.ActiveWorkbook.Worksheets(2)
With objExcel
Set objSheet = objExcel.ActiveWorkbook.Worksheets(2)
LastColumn = objSheet.Cells(1, .Columns.Count).End(xlToRight).Column
LastRow = objSheet.Cells(.Rows.Count, 4).End(xlUp).Row
End With

 

[combo]

In this context xlToRight and xlUp are 0s. In excel VBE open object browser, check their values and use in the script.

combo

 

[SkipVought]

Hi,

You cannot use Excel constants like xlToRight.

Google to look up the correct values.

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein

You Matter...
unless you multiply yourself by the speed of light squared, then...
You Energy!

 

[Katto]

Thank you. fixed it

 

[dhookom]

If a reply proved to be the answer, please consider clicking the "Great post!" link.

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016