以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]foxtable系统能否自动批量直接引用同名Excel对应的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28077)

--  作者：ppxxww --  发布时间：2013/1/18 8:03:00 --  [求助]foxtable系统能否自动批量直接引用同名Excel对应的数据 你好！ foxtable系统能否自动批量直接引用同名Excel对应的数据         每次打开Foxtable时，Foxtable有《生产任务》，《完成总量》两列自动导入对应Excel中的《生产任务》，《完成总量》的数据 此主题相关图片如下：直接引用excel表的数据.jpg  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目888.table  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:excel文件夹.zip [此贴子已经被作者于2013-1-18 8:08:35编辑过]

--  作者：lin_hailun --  发布时间：2013/1/18 9:08:00 --    做个按钮，填入代码，自己去测试吧。 Dim excelPath As String = ProjectPath & "Excel文件夹" For Each file As String In FileSys.GetFiles(excelPath)     If file Like "*.xls" OrElse file Like "*.xlsx"         Dim Book As New XLS.Book(file) \'定义一个Excel工作簿         Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表         For r As Integer = 0 To sheet.Rows.Count - 1             Dim filter As String = "工程名称 = \'" & sheet(r, 0).Text & "\' And 任务名称 = \'" & sheet(r, 1).Text & "\'"             Dim fdr As DataRow = DataTables("任务").Find(filter)             If fdr IsNot Nothing Then                 fdr("生产任务") = sheet(r, 4).Text                 fdr("完成总量") = sheet(r, 5).Text             End If         Next     End If Next

--  作者：ppxxww --  发布时间：2013/1/18 11:30:00 --   林老师！谢谢您