- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 从Excel表提取数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44363)
-- 发布时间：2013/12/28 23:04:00
-- 从Excel表提取数据
帮助文件中介绍的从Excel表中提取数据的内容太少，如果如附件的excel表如何设计？再有每一个Excel表都有一个相同的密码如何写入代码？在文件夹中有几十个相同格式的文件，但行数各部相同，如何设计代码？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:pl3_back cover ht tape s_stokvis finalnd_finland_v4_12192013.xlsx |
-- 发布时间：2013/12/28 23:09:00
--
excel加密后方法
-- 发布时间：2013/12/28 23:11:00
--
读取只需要打开和取值，没必要过多介绍。
-- 发布时间：2013/12/28 23:11:00
--
读取文件夹下的所有文件，参考
-- 发布时间：2013/12/28 23:23:00
--
内容还真不少，得好好学一阵了。
-- 发布时间：2013/12/29 0:11:00
--
基础太差，还请帮忙：
假定如图所示的Excel文件都存放在D\\data的文件夹中，如果希望每存入一个新的文件，在foxtable 的文件中添加新文件的所有内容。类似与自动的高速合并，如何实现。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:片段.rar |
[此贴子已经被作者于2013-12-29 0:14:53编辑过]
-- 发布时间：2013/12/29 22:10:00
--
不论你的表格是怎样的，都可以拿到任意一个单元格的值，拿到值，放进去就行了。
对于下面列表的内容，你用一个循环，循环下面的所有行，取值放进去。不难。你上传一个具体的例子吧。
-- 发布时间：2014/1/1 9:44:00
--
以下是引用有点甜在2013-12-29 22:10:00的发言：
不论你的表格是怎样的，都可以拿到任意一个单元格的值，拿到值，放进去就行了。
不论你的表格是怎样的，都可以拿到任意一个单元格的值，拿到值，放进去就行了。
对于下面列表的内容，你用一个循环，循环下面的所有行，取值放进去。不难。你上传一个具体的例子吧。
Happy New Year！
请抽时间帮忙将所附的Excel的“Battery Cover Thermal"页的内容分别填入狐表的ProductTable和BOMTable中，Excel表的3-5行对应ProductTable, 34-39行对应BOMTable. 谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:cpc_moneypenny_na_nokia_v1_12232013.xlsx |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:cpc 输入.foxdb |
-- 发布时间：2014/1/1 19:40:00
--
你参考下面的代码来做就行了。一个值一个值的获取，然后写入表格里去。
Dim dlg As new OpenFileDialog
dlg.Filter = "excel文件|*.xls;*xlsx"
If dlg.ShowDialog() = DialogResult.OK Then
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook
try
wb = App.WorkBooks.Open(dlg.FileName)
Dim ws As MSExcel.WorkSheet = wb.WorkSheets("Battery cover Thermal")
msgbox("ProjectName : " & ws.cells(3,4).text)
catch ex As exception
msgbox("打开文件出错了!")
finally
wb.close(False)
App.Quit
End try
End If
-- 发布时间：2014/1/1 20:16:00
--
刚试了，出现对话框"ProjectName: "点击OK后就没有反应了，请在看看。