파일을 읽어서 내용을 쓰는데 까지는 성공했는데요..
내용을 적은 시트를 복사해서.. Sheet4로 만들고 싶은데 명령어를 모르겠습니다..
이것저것 검색해봤지만 안보이네요
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant XL,v0,v1,v2,cells;
Variant ns;
XL=Variant::CreateObject("excel.application");
XL.OlePropertySet("Visible",false);
WideString path = "C:\\test.xlsx";
XL.OlePropertyGet("Workbooks").OleProcedure("Open",path);
WideString sheet = "Sheet1";
v0=XL.OlePropertyGet("Sheets",sheet);
v1=v0.OlePropertyGet("Cells");
WideString data = "1234";
cells = v1.OlePropertyGet("Cells",1,3);
cells.OlePropertySet("Value",data);
//여기서 시트(Sheet4)를 복사해서 다음 작업을 진행하고 싶음..
XL.OlePropertySet("DisplayAlerts",false);
XL.OleProcedure("Save");
v0=Unassigned;
v1=Unassigned;
v2=Unassigned;
XL.OleProcedure("Quit");
XL=Unassigned;
}
|