pb中怎样读取excel中的数据，希望有代码-pb读取excel,microsoft jet数据库

pb中获取excel文件的行知数的方法如下：
OLEObject OLE_MyExcel
OLE_MyExcel =Create OLEObject
OLE_MyExcel. ConnectToNewObject("excel.Application")
OLE_MyExcel.visible=false
OLE_MyExcel.Workbooks.Open("c:/xxx.xls")
messagebox("rows",string(OLE_MyExcel.ActiveWorkbook.Activesheet.UsedRange.Rows.Count))
OLE_MyExcel.quit()
OLE_MyExcel.DisConnectObject()
destroy OLE_MyExcel
需要客记端安道装excel.
如果不想这么用，可内以把excel做为数据源，用odbc连接，按数据库进行容操作。

程序源代码如下:

main()
{
int i,j,k;
printf("\n");
for(i=1;i<5;i++)　　e68a84e8a2ade799bee5baa6e997aee7ad94332　　／*以下为三重循环*/
　for(j=1;j<5;j++)　
　　for (k=1;k<5;k++)
　　　{
　　　　if (i!=k&&i!=j&&j!=k) 　　　/*确保i、j、k三位互不相同*/
　　　　printf("%d,%d,%d\n",i,j,k);
　　　 }
}

main()
{
long int i;
int bonus1,bonus2,bonus4,bonus6,bonus10,bonus;
scanf("%ld",&i);
bonus1=100000*0.1;bonus2=bonus1+100000*0.75;
bonus4=bonus2+200000*0.5;
bonus6=bonus4+200000*0.3;
bonus10=bonus6+400000*0.15;
　if(i<=100000)
　　bonus=i*0.1;
　else if(i<=200000)
　　　　　bonus=bonus1+(i-100000)*0.075;
　　　　else if(i<=400000)
　　　　　　　　bonus=bonus2+(i-200000)*0.05;
　　　　　　　else if(i<=600000)
　　　　　　　　　　　bonus=bonus4+(i-400000)*0.03;
　　　　　　　　　　else if(i<=1000000)
　　　　　　　　　　　　　　bonus=bonus6+(i-600000)*0.015;
　　　　　　　　　　　　　else
　　　　　　　　　　　　　　bonus=bonus10+(i-1000000)*0.01;
printf("bonus=%d",bonus);
}
可以使用DDE连接EXCEL，操百作文件导入，度但该方法需要用户安装excel应用，且较新版本正问支持也不好。答
建议把EXCEL文件另存为txt，直接使用内importfile()函数导入，实际操作更灵活容方便。

给你一个函数！全局函数！

//无返回，参数：类型datawindow，名称idw_dw
string path,filename
integer value,result

value = GetFileOpenName("Select File",path,filename,"xls","xls Files (*.xls),*.xls,Text Files (*.TXT),*.TXT,DBF Files (*.DBF),*.DBF")
if value<>1 then return
if right(path,3)='xls' or right(path,3)='XLS' then
OLEObject ObjExcel
ObjExcel = CREATE OLEObject
result = ObjExcel.ConnectToNewObject( "excel.application")
if result <> 0 then
messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!")
Return
else
ObjExcel.Workbooks.Open(path) //ls_rj是文件的路径
ObjExcel.ActiveSheet.Cells.Copy
ObjExcel.Application.Visible = false
idw_dw.SetTransObject(SQLCA)
idw_dw.ImportClipboard(2) //将系统剪切版上的内容粘贴到数据窗口中,其中2为起始行参数
Clipboard("") //请空剪切版上的内容
ObjExcel.Quit()
ObjExcel.DisconnectObject() //断开与OLE的连接
Destroy ObjExcel
end if
elseif right(path,3)='txt' or right(path,3)='TXT' then
idw_dw.importfile(path,2)
elseif right(path,3)='dbf' or right(path,3)='DBF' then
idw_dw.importfile(path,1)
end if

这个函数可以读取dbf、txt和xls文件的数据。

【注意】从第二行开始读的，因为一般第一行是e79fa5e98193e4b893e5b19e339题头！