我想做一个菜单能把excel里面的数据导入vfp用了下面的代码 - VFP论坛

zzw668

等　级：新手上路
帖　子：22
专家分：0
注　册：2005-10-18

楼主

问题点数：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

2008-08-12 10:50

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 3 楼

得分: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