|
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Variant V;
Variant excel_app;
Variant excel_book;
Variant excel_sheet;
Variant cells;
AnsiString str1,str2;
if(!OpenDialog1->Execute())return;
//엑셀 실행----------------------------------
excel_app=Variant::CreateObject("excel.application");
excel_app.OlePropertySet("Visible", (Variant)false);
//엑셀 파일열기------------------------------
String asFileName=OpenDialog1->FileName;
excel_app.OlePropertyGet("WorkBooks").OleProcedure("Open",asFileName.c_str());
excel_book=excel_app.OlePropertyGet("ActiveWorkbook");
excel_sheet=excel_book.OlePropertyGet("ActiveSheet");
//엑셀 쉬트에서 원하는 컬럼 선택해서 클립보드로 copy
cells=excel_sheet.OlePropertyGet("Columns",3);
cells.OleFunction("Select");
cells.OleFunction("Copy");
//클립보드에서 text 읽어오기
str1=Clipboard()->AsText; ------->> 이부분에서 Clipboard함수를 찾을수 없다는데 Cliboard 함수란 무엇을 말하는건가요?
|