问题 - 记事本.pdf

#include "apdefap.h"

void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)

{

     char *Name; //Return-Type: void* 

     int index,i;

     __object* pExcel = NULL; //建立 pExcel 指针 用来对 EXCEL 进行操作

     Name = SysMalloc(30); //Return-Type: void* 

     pExcel = __object_create("Excel.Application"); 

     pExcel->Visible = 1;

     pExcel->Workbooks ->Open ("D:\Product\工艺名称.xlsx");  

     //打开"D:\Product\工艺名称.xlsx" 文件

     index = pExcel->Worksheets("sheet1")->Cells(1,2)->Value ; 

     // 读取第一行第二列值

     SetPropWord("工件信息保存.pdl","列表框1","NumberLines",index);

     //用第一行第二列的值设定文本列表行数  这步可以成功执行

       for(i=1;i<=index;++i)

              {              

                SetPropWord("工件信息保存.pdl","列表框1","Index",i);

                    //指定要刷新的文本列表行索引号

                Name = pExcel->Worksheets("sheet1")->Cells(i,1)->Value; 

                    //写入从excel读取的文本到Name

                SetPropChar("工件信息保存.pdl","列表框1","Text",Name);

                    // 写入从excel读取的文本到文本列表  这步很少成功执行

               };

     // 将D:\Product\工艺名称.xlsx"文件从第一列第一行开始逐行写入文本列表

pExcel->Workbooks->Close(1);//关闭文件

pExcel->Quit();//退出Excel

__object_delete(pExcel); 

// 实际运行后大部分时间不能写入文本列表,貌似有乱码的嫌疑   求大神指点