PB EXCEL导入

1.建议Excel里第一行为列标题，第二行为数据，可以用我以前写的这个函数，直接导入到数据窗口中

//function integer gf_importfromexcel (datawindow adw_data)

string ls_filename, ls_path
integer li_value
oleobject ole_excel

ole_excel = create oleobject 
li_value = ole_excel.connecttonewobject("excel.application") 
if li_value <> 0 then 
gnv_base.of_message("连接EXCEL失败，请检查") 
  return -1
end if

if GetFileOpenName("选择文件", ls_filename, ls_path, "excel Files (*.xls), *.xls") <> 1 then
return 1
end if

if len(trim(ls_filename)) <= 0 then 
return -1
else
ole_excel.workbooks.open(ls_filename) 
clipboard('') 
ole_excel.activesheet.cells.copy
choose case adw_data.importclipboard(2)//从第2行开始导入 
case -3
gnv_base.of_message("错误信息：无效的参数，请检查")
return -3
case -4
gnv_base.of_message("错误信息：无效的输入，请检查")
return -4
case else
gnv_base.of_message("恭喜，从" + ls_filename + "中导入数据成功")
return 1
end choose
clipboard("")
ole_excel.quit() 
ole_excel.disconnectobject() 
  destroy ole_excel 
end if

在帖子里面看到了,留着备用.