excel server 将一个sheet表拷贝到另外一个sheet的方法?

[kai701126]

语句如下，但只产生一个空表，没能够将模板的sheet拷贝过去
ExcelApplication1->Connect();
ExcelApplication1->Set_DisplayAlerts(0,false);
ExcelWorkbook2->ConnectTo(ExcelApplication1->Workbooks->Open(BSTR(WideString("d:\\source.xls"))));
ExcelWorksheet2->ConnectTo(ExcelWorkbook2->Worksheets->get_Item("模板01"));

// 产生一个新的文件
ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Add(TNoParam(),0));
ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Worksheets->get_Item(1));

// 拷贝 sheet
ExcelWorksheet2->Copy(ExcelWorkbook2->Worksheets->get_Item("模板01"),ExcelWorkbook1->Worksheets->get_Item(1),0);

ExcelWorkbook1->SaveCopyAs(BSTR(WideString("d:\\测试-099.xls")));


在excel VBA中测试如下语句成功：
FILENAME = "测试文件"
XLPath = ThisWorkbook.Path & "\" & FILENAME & ".xls"
Set Book1 = Workbooks.Add
Windows("source.xls").Activate
Sheets("模板01").Select
Sheets("模板01").Copy Before:=Book1.Sheets(1)
Book1.SaveAs XLPath
Book1.Close

[mygodness]

关注，还有请问你一下，看来你对EXCEL的操作有点经验，我用EXCELAPPLICATION来连接时，发现无法让EXCEL显示出来，请问你能否解决，我问过相关问题，但没有回答，我用ExcelApplication->Visible[0]=true;这样不能成功(总说Visible是不能得到的)，你用的CB是哪个版本，操作系统是XP吗？要不要加什么头文件？