Foxtable(狐表)用户栏目专家坐堂 → Excel导入讨论


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

主题:Excel导入讨论

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/29 12:02:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:excel导入.foxdb


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/17 10:44:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:excel导入.foxdb


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/22 14:02:00 [显示全部帖子]

 你要指定excel起始的行数,以及excel标题的总行数。

 

 上传具体实例说明。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/22 17:48:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:excel导入1022.foxdb


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/23 8:50:00 [显示全部帖子]

认认真真看13楼,没问题啊。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/23 11:46:00 [显示全部帖子]

请下载13楼例子测试啊。你说的不行是哪个窗口不行?报什么错?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/23 13:47:00 [显示全部帖子]

 请,下载13楼项目,自行测试啊。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/28 14:38:00 [显示全部帖子]

1、认认真真看示例的代码,vars("字段") 的值你肯定没有赋值;你要在导入之前赋值的。

 

2、示例没问题,你项目有问题,说明你操作有问题,请好好看示例,不会做,那,上传具体项目说明。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/4 15:54:00 [显示全部帖子]

Dim str1 As String = e.form.Controls("TextBox1").value
Dim str2 As String = e.form.Controls("ComboBox1").value
Dim tb As Table = Tables("窗口1_table1")
Dim Book As New XLS.Book(str1)
Dim Sheet As XLS.Sheet = Book.Sheets(str2)
tb.StopRedraw()
For n As Integer = 0 To sheet.Rows.Count -1
    Dim r As Row = tb.AddNew()
    For m As Integer = 1 To sheet.Cols.Count -1
        r(m) = Sheet(n,m).Value
    Next
Next
tb.ResumeRedraw()

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/6 9:27:00 [显示全部帖子]

以下是引用ZJZK2015在2017/12/6 1:28:00的发言:
老师你好:
XML 电子表格2003这种Excle导入时出错,如何处理??
谢谢!

 

不同格式的文件,导入方式是不一样的。具体excel文件上传上来,项目也上传上来。


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