C++ Builder XE4 > Excel > Link > Access to Excel cells in "C++ Builder XE4"| + 입력 파일 정보
10674 단어 fileIOExcelcppBuilderEXPORT
C++ Builder XE4
운영 환경
Windows 8.1 Pro (32bit)
Excel 2016
XE4에서 Excel 파일을 읽고 내보낼 수 없는지 찾고 있었다.
@mojeld 님의 기사를 찾았습니다.
Access to Excel cells in "C++ Builder XE4"
정보 감사입니다.
파일
다음 Excel 파일을 준비합니다.
처리 전
처리 후
코드 v0.2
셀에 독서의 처리를 함수로 해 보았다.
또, 쓰는 방법을 자신의 스타일로 변경하고 있다.
Unit1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <System.Win.ComObj.hpp> // EXCEL処理用
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
/*
v0.2 Apr. 13, 2018
- add setCellValue()
- add getCellValue()
v0.1 Apr. 13, 2018
imported from
http://mojelder.hatenablog.com/entry/2015/06/29/112326
*/
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
static String getCellValue(Variant asheet, int row, int col)
{
return asheet.OlePropertyGet("Cells").
OlePropertyGet("Item", row, col).OlePropertyGet("Value");
}
static String setCellValue(Variant asheet, int row, int col, WideString val)
{
asheet.OlePropertyGet("Cells").
OlePropertyGet("Item", row, col).OlePropertySet("Value", val);
}
void __fastcall TForm1::B_convertClick(TObject *Sender)
{
static const WideString kXlsFile = "あいうえお.xlsx";
Variant ExcelApp = CreateOleObject("Excel.Application");
try
{
WideString inFilename = ExtractFileDir(ParamStr(0)) + "\\" + kXlsFile; // Openに使う文字列はWideString定義
WideString inSheetname = L"チェック"; // シート名もWideString (または番号)
Variant xls_books;
Variant xls_abook;
Variant xls_sheets;
Variant xls_asheet;
WideString writeText = "文字"; // 書き込む文字列 // WideString型で定義
try
{
ExcelApp.OlePropertySet("Visible", false); // Excel not shown
xls_books = ExcelApp.OlePropertyGet("Workbooks");
xls_abook = xls_books.OleFunction("Open", inFilename);
xls_sheets = xls_abook.OlePropertyGet("WorkSheets");
xls_asheet = xls_sheets.OlePropertyGet("Item", inSheetname);
this->Caption = getCellValue(xls_asheet, 5, 3);
setCellValue(xls_asheet, 1, 1, writeText);
xls_abook.OleProcedure("Save"); //開いた*.xlsxを保存
ExcelApp.OleProcedure("Quit"); //Excel終了。
}
__finally
{
xls_asheet = Unassigned(); // 変数を初期状態に
xls_sheets = Unassigned();
xls_abook = Unassigned();
xls_books = Unassigned();
}
}
__finally
{
ExcelApp = Unassigned();
}
}
//---------------------------------------------------------------------------
Reference
이 문제에 관하여(C++ Builder XE4 > Excel > Link > Access to Excel cells in "C++ Builder XE4"| + 입력 파일 정보), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/7of9/items/6ec8b19c8d3b787e2699텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)