乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何用<em>pb</em>做将excel表格导入<em>pb</em>

如何用<em>pb</em>做将excel表格导入<em>pb</em>

作者:乔山办公网日期:

返回目录:excel表格制作


程序源代码如下:

main()
{
int i,j,k;
printf("\n");
for(i=1;i<5;i++)  e799bee5baa6e79fa5e98193e4b893e5b19e332  /*以下为三重循环*/
 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);
}

这个是直接导入的。还有一种方法,就是逐行逐列读取excel表格,这个方法效率不高,但是有个好处就是excel的数据文件e68a84e8a2ad7a686964616f339和数据窗口不要求对应,就相当于excel是一个数据窗口,从这里取值,赋值到目标数据窗口一样的操作。如果你需要我也可以帮你写一个例子。
先传一个直接导入的:这种导入要求excel和数据窗口的字段对应。
OLEObject ExcelServer
long excelok
string str_savename
string str_filename

string named
integer value
value = GetFileOpenName("打开文件",str_filename, named, "DOC", &
"文本文件 (*.TXT),*.TXT," &
+ "EXCEL 文件 (*.XLS),*.XLS,"+"EXCEL 文件 (*.XLSX),*.XLSX")
if value = 1 then

ExcelServer = CREATE OLEObject
ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" )
if excelok < 0 then
messagebox("连接excel失败,检查你的系统是否安装了office",string(excelok))
return
else
dw_1.reset()
ExcelServer.Workbooks.Open(str_filename)
str_savename="c:\temp.txt"
excelserver.activeworkbook.saveas(str_savename,3)
excelserver.displayalerts=false
ExcelServer.quit()
ExcelServer.DisconnectObject()
DESTROY ExcelServer
dw_1.ImportFile(str_savename)
filedelete(str_savename)
end if
end if
方法有二:
1 用数据管道
2 先连excel(odbc),把数据取出来,再把它们更新到sql anywhere中

可以使用DDE连接EXCEL,操作文件导入,但该方法需要用户安装excel应用,且较新版本正支持也不好
建议把EXCEL文件另存为txt,直接使用importfile()函数导入,实际操作更灵活方便。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网