Foxtable(狐表)用户栏目专家坐堂 → [求助]从excel表中复制数据到表中


  共有2762人关注过本帖平板打印复制链接

主题:[求助]从excel表中复制数据到表中

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


加好友 发短信
等级:九尾狐 帖子:2216 积分:18231 威望:0 精华:0 注册:2011/11/26 20:21:00
[求助]从excel表中复制数据到表中  发帖心情 Post By:2020/10/7 10:13:00 [只看该作者]

想动态读取excel表的数据,添加到一个临时表中。
        Dim Book As New XLS.Book(“外部表全路径名称”)
        Dim App As New MSExcel.Application
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(y)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.UsedRange
        
        DataTables("目标临时表").DataRows.Clear
        DataTables("目标临时表").AddNew(rg.Rows.count)

rg.copy
Tables("目标临时表").Select(0,0)
Syscmd.Edit.Paste()

这样似乎不行,数据没有进到“目标临时表”中

 回到顶部
总数 12 1 2 下一页