Foxtable(狐表)用户栏目专家坐堂 → EXCEL使用


  共有3243人关注过本帖树形打印复制链接

主题:EXCEL使用

帅哥哟,离线,有人找我吗?
kaituozhe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2232 积分:15251 威望:0 精华:0 注册:2015/7/18 10:10:00
EXCEL使用  发帖心情 Post By:2022/12/1 21:57:00 [只看该作者]

  • Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range = Ws.UsedRange
    MessageBox.Show(Rg.Rows.Count)
    MessageBox.Show(Rg.Columns.Count)
    MessageBox.Show(Rg.Count)
    App.Quit
     
  • Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range = Ws.Range("A2")
    Rg = Rg.Offset(5,3)
    MessageBox.Show(Rg.Address)
    App.Quit
我想动态引用单元格,怎么表示呀,比如 Ws.Range("A&Rg.Columns.Count") 我知道不对,但是该怎么写呀

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/1 22:01:00 [只看该作者]


Ws.Range("A" & Rg.Columns.Count) 

 回到顶部