执行arx中的命令，cad出现致命错误

sn13

本人编写了一个写入execel的arx文件，执行时却出现致命错误，如下图，不知如何解决，求解决

iLisp

如果使用 ActiveX，用 ARX 写入 xls 不比 使用 vlisp 有优势

newer

看这样一个图片谁也不能知道啥原因啊，你要把你的完整代码贴上来大家才好分析啊。

sn13

newer 发表于 2016-5-8 13:56
看这样一个图片谁也不能知道啥原因啊，你要把你的完整代码贴上来大家才好分析啊。

void fillexcel(CStringArray* inputarr,int ls,int zs)
{
       

        CStringArray teststr1;
        teststr1.SetSize(zs);
        CString temp;
        int i1;
        for(i1=0;i1<zs;i1++)
        {
                temp=inputarr->GetAt(i1);
                teststr1.SetAt(i1,temp);
        }

        CApplication app;
        CWorkbook book;
        CWorksheet sheet;
        CWorkbooks books;
        CWorksheets sheets;
        CRange  range;
        LPDISPATCH lpDisp;
        LPDISPATCH prange;
        COleVariant
                covTrue((short)TRUE),covFalse((short)FALSE),covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
        if(!app.CreateDispatch(_T("Excel.Application")))
        {
                AfxMessageBox(_T("连接失败"));
                return;
        }
        app.put_Visible(TRUE);
        lpDisp=app.get_Workbooks();
        books.AttachDispatch(lpDisp);
        lpDisp=books.Add(covOptional);
        book.AttachDispatch(lpDisp);
        lpDisp=book.get_Sheets();
        sheets.AttachDispatch(lpDisp);
        lpDisp=sheets.get_Item(COleVariant((short)(1)));
        sheet.AttachDispatch(lpDisp);
        //
        int hangshu;//i,j,
        hangshu=zs/ls;

        CStringArray pos;
        pos.SetSize(zs);

        for(int j=0;j<hangshu;j++)
        {
                for(int i=0;i<ls;i++)
                {

                        CString temp;       
                        temp.Format((_T("%d")),j+1);//定义excel表的行数
                        pos.SetAt(4*j+0,(_T("A")+temp));//定义excel表的第一列(SetAt((ls*j+0)
                        pos.SetAt(4*j+1,(_T("B")+temp));//定义excel表第二列
                        pos.SetAt(4*j+2,(_T("C")+temp));//定义excel表的第一列
                        pos.SetAt(4*j+3,(_T("D")+temp));//定义excel表第二列                         
                }
        }

        for(int l=0;l<hangshu;l++)
        {

                for(int k=0;k<ls;k++)//
                {
                        prange=sheet.get_Range(COleVariant(pos.GetAt(ls*l+k)),COleVariant(pos.GetAt(ls*l+k)));//
                        range.AttachDispatch(prange);
                        CString tempneirong;
                        tempneirong=teststr1.GetAt(ls*l+k);

                        range.put_Value2(COleVariant(tempneirong));
                        delete tempneirong;//rangevaluedatatype,

                }
        }

        range.ReleaseDispatch();
        sheet.ReleaseDispatch();
}
主函数如下：
static void EXE_MyCommand1(void)
        {
                // Add your code for command EXE._MyCommand1 here
                CStringArray teststr;
                CString test1,test2;
                ACHAR ch1[50];
                wcscpy(ch1,_T("熔断器"));
                ACHAR ch2[50];
                wcscpy(ch2,_T("333"));
                test1.Format(_T("%s"),ch1);
                test2.Format(_T("%s"),ch2);
                teststr.SetSize(2);
                teststr.SetAt(0,test1);
                teststr.SetAt(1,test2);
                int lieshu=2;
                int len2=2;
                 fillexcel(&teststr,lieshu,len2);
            
        }

newer

sn13 发表于 2016-5-8 16:14
void fillexcel(CStringArray* inputarr,int ls,int zs)
{
       

加点调试打印代码，看看到哪里出错了。