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


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

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

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


加好友 发短信
等级:一尾狐 帖子:479 积分:2482 威望:0 精华:0 注册:2011/5/21 18:05:00
[求助]导入Excel工资表的格式  发帖心情 Post By:2020/6/30 14:56:00 [只看该作者]

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

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


加好友 发短信
等级:超级版主 帖子:52978 积分:268533 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/30 15:08:00 [只看该作者]

没有办法判断表头有几行

合并单元格判断:http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=148030&skin=0

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


加好友 发短信
等级:一尾狐 帖子:479 积分:2482 威望: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

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

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


加好友 发短信
等级:超级版主 帖子:52978 积分:268533 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/30 17:28:00 [只看该作者]

Dim Rg As MSExcel.Range = Ws.Range("H1")
Output.Show(rg.Address )
Output.Show(rg.MergeArea.Address )

 回到顶部