用TServer页的控件,在Excel中要移动Sheet,如何写(Move方法如何写?)?

hejlcs 2001-12-22 05:03:33

加精

Excel中将Sheet3移到Sheet1之前的语句该如何写?Move()方法的参数涵义?
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
EA->Connect();
// EWB->ConnectTo(EA->Workbooks->Add(xlWBATWorksheet,0));
EWB->ConnectTo(EA->Workbooks->Open((WideString)"c:\\book1.xls"));
EWS->ConnectTo(EWB->Worksheets->get_Item("Sheet1"));
EWS2->ConnectTo(EWB->Worksheets->get_Item("Sheet3"));
// EWS2->Move(EWS); /***** 此句该如何写? ******/
EA->Caption=(WideString)"从BCB中调用Excel Automation服务器";
EA->Visible[0]=true;
EWS->Cells->set_Item(1,2,"SDFDS");
RangePtr row1=EWS->Rows->get_Item(2);
row1->Insert();
}
catch(...)
{
ShowMessage("这台电脑没有安装excel，不能保存！");
}
}

...全文

140 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

hejlcs 2001-12-23

打赏
举报

真是谢了！怎么给不到分了？

TR@SOE 2001-12-23

打赏
举报

方法如下（终于调试成功了。。。）

ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Worksheets->get_Item("Sheet2"));
ExcelWorksheet2->ConnectTo(ExcelWorkbook1->Worksheets->get_Item(3));

Form1->Caption="当前有"+IntToStr(SheetCount)+"个工作表，当前工作表为"+ExcelWorksheet1->Name;
ExcelWorksheet1->Move(TNoParam(),ExcelWorkbook1->Worksheets->get_Item(3), 0);//关键是这一句。。。
ExcelWorksheet1->Activate();