怎样在VB中获得当前EXCEL所选择range?

cnks

怎样在VB中获得当前EXCEL所选择range?在VBA中可以用selection中获得当前选择的range,还有就是在cad vba中怎样设置当前文字的style?

ntchjie

Set ex = GetObject(, "Excel.Application")
txtexl(0) = ex.Selection.EntireRow.Row
txtexl(1) = ex.Selection.EntireColumn.Column ‘起始行列
txtexl(2) = ex.Selection.Rows.Count
txtexl(3) = ex.Selection.Columns.Count ’行列数