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