Foxtable(狐表)用户栏目专家坐堂 → 从excel中读取数据


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

主题:从excel中读取数据

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107727 积分:547968 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/24 15:32:00 [显示全部帖子]

放到其他盘试试,比如d盘建一个目录aa,把文件复制到d:\aa里

For Each file As String In filesys.GetFiles("d:\aa")

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107727 积分:547968 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/24 15:56:00 [显示全部帖子]

For Each file As String In filesys.GetFiles("d:\aa\") 不要画蛇添足,GetFiles是干嘛用的请认真看看帮助:http://www.foxtable.com/webhelp/topics/0341.htm

如果只有一个文件

        Dim Book As New XLS.Book(“d:\aa\采购订单.xlsx”)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("ylcgmxb").AddNew
        dr("名称") = sheet(11,2).Text
        dr("描述及规格") = sheet(11,3).text

 回到顶部