C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[70010] Excel 시트 복사는 어떻게하나요?
memi [j00nh0] 9838 읽음    2013-08-20 10:29
파일을 읽어서 내용을 쓰는데 까지는 성공했는데요..

내용을 적은 시트를 복사해서.. 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;
}

+ -

관련 글 리스트
70010 Excel 시트 복사는 어떻게하나요? memi 9838 2013/08/20
70014     Re:Excel 시트 복사는 어떻게하나요? memi 2770 2013/08/20
70017         Re:Re:Excel 시트 복사는 어떻게하나요? memi 3537 2013/08/20
70018             Re:Re:Re:Excel 시트 복사는 어떻게하나요? 장성호 3624 2013/08/20
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.