Foxtable(狐表)用户栏目专家坐堂 → [求助]导入Excel工资表的格式


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

主题:[求助]导入Excel工资表的格式

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


加好友 发短信
等级:二尾狐 帖子:598 积分:3347 威望:0 精华:0 注册:2011/5/21 18:05:00
[求助]导入Excel工资表的格式  发帖心情 Post By:2020/6/30 14:56:00 [显示全部帖子]

用ft开发企业微信自建应用
在导入Excel工资表的时候怎么判断表头有几行?
表头由合并列的时候如何知道合并的单元格是从哪一列到那一列?

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


加好友 发短信
等级:二尾狐 帖子:598 积分:3347 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2020/6/30 17:10:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:00.png
图片点击可在新窗口打开查看


Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\1.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("H1")
If Rg.MergeArea.Address = Rg.Address Then
    Output.Show(0)
Else
    Dim RowBegin As Integer = Rg.Cells(1).Row
    Dim RowEnd As Integer = Rg.Cells(Rg.Count).Row
    Output.Show(RowBegin)
    Output.Show(RowEnd)
    Dim ColumnBegin As Integer = Rg.MergeArea.Cells(1).Column
    Dim ColumnEnd As Integer = Rg.Columns.Count
    Output.Show(ColumnBegin)
    Output.Show(ColumnEnd)
End If

如何知道合并单元格从哪一行到哪一行?从那一列到那一列?

 回到顶部