| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1743 人关注过本帖, 1 人收藏
标题:我想做一个菜单能把excel里面的数据导入vfp用了下面的代码
只看楼主 加入收藏
zzw668
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2005-10-18
收藏(1)
 问题点数:0 回复次数:7 
我想做一个菜单能把excel里面的数据导入vfp用了下面的代码
我想做一个菜单能把excel里面的数据导入vfp用了下面的代码。放在表单按钮中可以运行也能正确倒入。怎样才能放到菜单中。我试过放在菜单的过程中运行会出现错误,请高手指点。
public mypath
mypath=""
mypath=getfile("xls")
_ole_excel = CreateObject("Excel.Application")
_ole_excel.WorkBooks.Open(mypath)    && 要打开的工作表名(xls)必须是全路径
_ole_excel.WorkSheets(1).Activate   &&激活指定的工作簿
bookExcel = _ole_excel.APPLICATION.Workbooks.OPEN(mypath)
nrows=bookExcel.Worksheets(1)
UsedRange =nrows.UsedRange
r = UsedRange.ROWS.COUNT



USE  database\kcbook
     for i=2 TO r
     
     INSE INTO kcbook(图书编号,条码,书名,价格,类别,书架,编者,出版社,状态) VALU;
    (_ole_excel.cells(i,1).value,_ole_excel.cells(i,2).value,_ole_excel.cells(i,3).value,_ole_excel.cells(i,4).value,_ole_excel.cells(i,5).value,_ole_excel.cells(i,6).value,_ole_excel.cells(i,7).value,_ole_excel.cells(i,8).value,_ole_excel.cells(i,9).value)
     REPL 图书编号 WITH _ole_excel.cells(i,1).value
     REPL 条码 WITH _ole_excel.cells(i,2).value
     REPL 书名 WITH _ole_excel.cells(i,3).value
     REPL 价格 WITH _ole_excel.cells(i,4).value
     REPL 类别 WITH _ole_excel.cells(i,5).value
     REPL 书架 WITH _ole_excel.cells(i,6).value
     REPL 编者 WITH _ole_excel.cells(i,7).value
     REPL 出版社 WITH _ole_excel.cells(i,8).value
     REPL 状态 WITH _ole_excel.cells(i,9).value
  
ENDFOR
_ole_excel.quit
搜索更多相关主题的帖子: excel里面 vfp 菜单 ole 数据 
2008-08-12 10:50
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
可以将表单隐蔽运行试试。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2008-08-12 11:40
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
试试看:

public mypath
mypath=""
mypath=getfile("xls")
_ole_excel = CreateObject("Excel.Application")
_ole_excel.WorkBooks.Open(mypath)    && 要打开的工作表名(xls)必须是全路径
_ole_excel.WorkSheets(1).Activate   &&激活指定的工作簿
bookExcel = _ole_excel.APPLICATION.Workbooks.OPEN(mypath)
nrows=bookExcel.Worksheets(1)
UsedRange =nrows.UsedRange
r = UsedRange.ROWS.COUNT

USE  database\kcbook
     for i=2 TO r
      IF ISNULL(_ole_excel.cells(i,1).value)
         EXIT
     else
      INSE INTO kcbook (图书编号,条码,书名,价格,类别,书架,编者,出版社,状态) VALU;
    (_ole_excel.cells(i,1).value,_ole_excel.cells(i,2).value,_ole_excel.cells(i,3).value,_ole_excel.cells(i,4).value,_ole_excel.cells(i,5).value,_ole_excel.cells(i,6).value,_ole_excel.cells(i,7).value,_ole_excel.cells(i,8).value,_ole_excel.cells(i,9).value)
     REPL 图书编号 WITH _ole_excel.cells(i,1).value
     REPL 条码 WITH _ole_excel.cells(i,2).value
     REPL 书名 WITH _ole_excel.cells(i,3).value
     REPL 价格 WITH _ole_excel.cells(i,4).value
     REPL 类别 WITH _ole_excel.cells(i,5).value
     REPL 书架 WITH _ole_excel.cells(i,6).value
     REPL 编者 WITH _ole_excel.cells(i,7).value
     REPL 出版社 WITH _ole_excel.cells(i,8).value
     REPL 状态 WITH _ole_excel.cells(i,9).value
  endif
ENDFOR
_ole_excel.quit
2008-08-12 16:09
快速回复:我想做一个菜单能把excel里面的数据导入vfp用了下面的代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021046 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved