我想做一个菜单能把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