급해서 그냥 꼼수로 일단 해결했습니다.
클립보드에 전체 내용을 카피 -> 시트생성 -> 클립보드 페이스트
아래팁트릭게시판 링크 참조하여 해결했습니다.
http://cbuilder.borlandforum.com/impboard/impboard.dll?action=read&db=bcb_tip&no=1075
memi 님이 쓰신 글 :
: 파일을 읽어서 내용을 쓰는데 까지는 성공했는데요..
:
: 내용을 적은 시트를 복사해서.. 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;
: }
: |