611
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jacksu19 2004-10-13
- 打赏
- 举报
这些帖子我都看过，可是仍然不满意。觉得没有找到理想的方法
jb99334 2004-10-12
- 打赏
- 举报
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=199512
10975037 2004-10-12
- 打赏
- 举报
1、数据管道
2、数据窗口到入excel
--------------------
OLEObject ole_object , ole_workbooks
ole_object = CREATE OLEObject
IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF
ole_object.workbooks.add
ole_object.Visible = True
ole_workbooks = ole_object.Worksheets(1)
ole_workbooks.cells(1,1).value="userid"
ole_workbooks.cells(1,2).value="username"
ole_workbooks.cells(1,3).value="gongzi"
long l_row
for l_row = 2 to dw_1.rowcount()+1
ole_workbooks.cells(l_row,1).value=dw_1.getitemnumber(l_row -1,1)
ole_workbooks.cells(l_row,2).value=dw_1.getitemstring(l_row -1,2)
ole_workbooks.cells(l_row,3).value=dw_1.getitemnumber(l_row -1,3)
next
ole_workbooks.SaveAs ("d:\data1.xls")
ole_object.quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
destroy ole_workbooks
2、数据窗口到入excel
--------------------
OLEObject ole_object , ole_workbooks
ole_object = CREATE OLEObject
IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF
ole_object.workbooks.add
ole_object.Visible = True
ole_workbooks = ole_object.Worksheets(1)
ole_workbooks.cells(1,1).value="userid"
ole_workbooks.cells(1,2).value="username"
ole_workbooks.cells(1,3).value="gongzi"
long l_row
for l_row = 2 to dw_1.rowcount()+1
ole_workbooks.cells(l_row,1).value=dw_1.getitemnumber(l_row -1,1)
ole_workbooks.cells(l_row,2).value=dw_1.getitemstring(l_row -1,2)
ole_workbooks.cells(l_row,3).value=dw_1.getitemnumber(l_row -1,3)
next
ole_workbooks.SaveAs ("d:\data1.xls")
ole_object.quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
destroy ole_workbooks
wangxichen 2004-10-12
- 打赏
- 举报
对Excel操作资料：
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=199669
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=199669
jacksu19 2004-10-12
- 打赏
- 举报
很多年以前，用FoxPro/DBASEIII的时候。
我们一般是分析了DBF文件结构之后，直接读DBF文件。从文件的首部分获得数据结构的一些信息，然后直接读取。
我想打听一下，类似的直接读取Excle文件可以么？谁有类似的经验？
或者，假设了解自己要从Excle读入的数据结构，例如从第几行开始读入，每一列是对应什么数据类型，值域范围等。
那么，不用OLE或者其它的对象方法，直接用PB对文件进行读操作（类似读图象文件，但增加了对数据的处理），完成数据的读取工作。可以么？
我们一般是分析了DBF文件结构之后，直接读DBF文件。从文件的首部分获得数据结构的一些信息，然后直接读取。
我想打听一下，类似的直接读取Excle文件可以么？谁有类似的经验？
或者，假设了解自己要从Excle读入的数据结构，例如从第几行开始读入，每一列是对应什么数据类型，值域范围等。
那么，不用OLE或者其它的对象方法，直接用PB对文件进行读操作（类似读图象文件，但增加了对数据的处理），完成数据的读取工作。可以么？
wangxichen 2004-10-11
- 打赏
- 举报
不写代码直接导入 好像只能存成txt或者dbf格式才行
lzuyh 2004-10-11
- 打赏
- 举报
学习
wangxichen 2004-10-11
- 打赏
- 举报
摘录：
虽然ODBC支持Excel驱动，把Excel文件作为关系数据库来处理，但是往往由于数据类型、长度、列名等问题，在处理上存在很多问题，因此，建议把Excel文件中的各个Sheet页另存为DBF文件来处理。
虽然ODBC支持Excel驱动，把Excel文件作为关系数据库来处理，但是往往由于数据类型、长度、列名等问题，在处理上存在很多问题，因此，建议把Excel文件中的各个Sheet页另存为DBF文件来处理。
jacksu19 2004-10-11
- 打赏
- 举报
你提供的方法太麻烦啊。。。
我希望的方法是通用的，直接的
我希望的方法是通用的，直接的
wangxichen 2004-10-11
- 打赏
- 举报
或者将Excel另存位文本文件后，在PB中预览目的数据库，然后在Rows菜单中选择Import导入数据，再保存修改。
wangxichen 2004-10-11
- 打赏
- 举报
用数据管道。
或者将Excel各个表页另存成dbf文件或者tab分隔的文本文件，然后用importfile导入到数据窗
或者将Excel各个表页另存成dbf文件或者tab分隔的文本文件，然后用importfile导入到数据窗
peixun 2004-10-11
- 打赏
- 举报
还是balloonman2002说的对,赞成
balloonman2002 2004-10-11
- 打赏
- 举报
请到本版FAQ中搜索“EXCEL”字样，有很多：
http://community.csdn.net/Expert/FAQ/List_Room_FAQ_Index.asp?bigclassid=58
http://community.csdn.net/Expert/FAQ/List_Room_FAQ_Index.asp?bigclassid=58
SnakeFF 2004-10-11
- 打赏
- 举报
人家是要写代码的，不是手工的！晕！
我也不懂，关注！
我也不懂，关注！
kkbgp 2004-10-11
- 打赏
- 举报
另存为text格式，以制表符隔开
yzh963 2004-10-11
- 打赏
- 举报
直接的，通用的？
导出好实现，主要是导入，Excel有多个sheet页，（简化一下）对程序来说和处理一个sheet页是一样的（sheet页多时要慢一些）
主要是数据类型的问题，根据判断生成动态数据窗口对象，当然判断必须要考虑全面。
导出好实现，主要是导入，Excel有多个sheet页，（简化一下）对程序来说和处理一个sheet页是一样的（sheet页多时要慢一些）
主要是数据类型的问题，根据判断生成动态数据窗口对象，当然判断必须要考虑全面。
