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

panxin 2003-05-16 10:46:10

如题,能给出代码更好!

...全文

41 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

okjpan 2003-05-16

打赏
举报

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)