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

panxin 2003-05-16 10:46:10
如题,能给出代码更好!
...全文
38 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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)

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧