怎么样取得EXCEL文件的WorkSheet中最后一个没有内容的行和列它们分别的名称?

[panxin]

如题,能给出代码更好!

[okjpan]

dim appExcel as Excel.Application
appExcel = CreateObject("Excel.Application")
Dim cWb As Excel.Workbook
appExcel.Workbooks.Open(sFilename)
cWb = appExcel.ActiveWorkbook
Dim cWs As Excel.Worksheet
cWs = cWb.Sheets(1)
Dim cRange As Excel.Range
cWs.Cells(1, 1).value = CStr(cWs.Cells(1, 1).value) + "1"
cRange = cWs.UsedRange
address = cRange.Cells(1, 1).AddressLocal(True, True, Excel.XlReferenceStyle.xlR1C1)
x = Split(address, "C")(0)
x = Microsoft.VisualBasic.Right(x, x.Length - 1)
y = Split(address, "C")(1)