C++ Builder XE4 > Excel > 1行挿入して、別ファイル保存 | DisplayAlertsのオフ

動作環境

C++ Builder XE4

概要

• 最初のシートの１行目に１行挿入する
• 別ファイル名で保存
  • *_1.xls

参考

在C++Builder中利用OLE存取Excel文件

谢谢你

code v0.1

Main.h

//---------------------------------------------------------------------------

#ifndef MainH
#define MainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Dialogs.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE で管理されるコンポーネント
    TOpenDialog *OpenDialog1;
    TEdit *E_srcFilepath;
    TButton *B_selectFile;
    TButton *B_addRow;
    TLabel *Label1;
    void __fastcall B_selectFileClick(TObject *Sender);
    void __fastcall B_addRowClick(TObject *Sender);
private:    // ユーザー宣言
    String m_srcFilename; // 読込みファイル
    String m_dstFilename; // 出力ファイル
    void __fastcall Excel_addRow(WideString srcFile, WideString dstFile);
public:     // ユーザー宣言
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Main.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <Vcl.FileCtrl.hpp>  // For MinimizeName()
#include <System.Win.ComObj.hpp>  // EXCEL処理用
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------

/*
v0.1 2018/04/13 EXCELファイルに１行挿入し、別ファイル保存
    - add B_selectFileClick()
    - add B_addRowClick()
    - add Excel_addRow()
*/


__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    // プログラム概要の表示
    Label1->Caption = L"選択したファイルの最初のシートの１行目に１行挿入します。\r\n"
        L"結果を別ファイル(_1.xlsx)に保存します。";

    OpenDialog1->Filter = L"EXCEL files (*.xlsx)|*.XLSX";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::B_selectFileClick(TObject *Sender)
{
    if (OpenDialog1->Execute() == false) {
        return;
    }

    m_srcFilename = OpenDialog1->FileName; // 読込み用の変数にセット
    m_dstFilename = StringReplace(m_srcFilename, L".xlsx", L"_1.xlsx", TReplaceFlags()<<rfReplaceAll);

    // 縮小表示
    E_srcFilepath->Text = MinimizeName(m_srcFilename, this->Canvas, E_srcFilepath->Width);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::B_addRowClick(TObject *Sender)
{
    if (m_srcFilename.Length() == 0) {
        String wrnmsg = L"ファイルが選択されていません。";
        ShowMessage(wrnmsg);
        return;
    }

    B_addRow->Enabled = false;

    Excel_addRow((WideString)m_srcFilename, (WideString)m_dstFilename);

    B_addRow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Excel_addRow(WideString srcFile, WideString dstFile)
{
    Variant ExcelApp = CreateOleObject("Excel.Application");
    try
    {
        Variant xls_books;
        Variant xls_abook;
        Variant xls_sheets;
        Variant xls_asheet;

        try {
            ExcelApp.OlePropertySet("Visible", false); // Excel not shown

            xls_books = ExcelApp.OlePropertyGet("Workbooks");
            xls_abook = xls_books.OleFunction("Open", srcFile);
            // 最初のシート選択
            xls_abook.OlePropertyGet("Sheets", 1).OleProcedure("Select");
            xls_asheet = xls_abook.OlePropertyGet("ActiveSheet");
            //
            xls_asheet.OlePropertyGet("Rows", 1).OleProcedure("Insert");

            xls_abook.OleProcedure("SaveAs", dstFile); //開いた*.xlsxを別名保存
            ExcelApp.Exec(Procedure("Quit"));

            String msg = L"Save to [" + dstFile + L"]";
            ShowMessage(msg);
        }
        __finally
        {
            xls_asheet = Unassigned(); // 変数を初期状態に
            xls_sheets = Unassigned();
            xls_abook = Unassigned();
            xls_books = Unassigned();
        }
    }
    __finally
    {
        ExcelApp = Unassigned();
    }
}

実行例

保存先ファイルが既存の場合、以下のダイアログが表示される。

不具合: 上記のダイアログで[いいえ(N)]を選択すると、ExcelAppが残ったままになる。読込んだエクセルファイルが「使用中のファイル」になってしまう。

code v0.2

code v0.1の不具合対応。
下記を追加することで、保存ファイル既存の時のダイアログを非表示にする。

ExcelApp.OlePropertySet("DisplayAlerts", false); // No dialog for overwrite

参考: http://www.acot.net/excelread/src1.html @ ACoTさん

情報感謝です。

Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <Vcl.FileCtrl.hpp>  // For MinimizeName()
#include <System.Win.ComObj.hpp>  // EXCEL処理用
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------

/*
v0.2 2018/04/13
    - fix bug > 既存ファイル上書きで「いいえ(N)」選択時、Excelが起動したままになる
        + [DisplayAlerts]をfalseにした
v0.1 2018/04/13 EXCELファイルに１行挿入し、別ファイル保存
    - add B_selectFileClick()
    - add B_addRowClick()
    - add Excel_addRow()
*/


__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    // プログラム概要の表示
    Label1->Caption = L"選択したファイルの最初のシートの１行目に１行挿入します。\r\n"
        L"結果を別ファイル(_1.xlsx)に保存します。";

    OpenDialog1->Filter = L"EXCEL files (*.xlsx)|*.XLSX";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::B_selectFileClick(TObject *Sender)
{
    if (OpenDialog1->Execute() == false) {
        return;
    }

    m_srcFilename = OpenDialog1->FileName; // 読込み用の変数にセット
    m_dstFilename = StringReplace(m_srcFilename, L".xlsx", L"_1.xlsx", TReplaceFlags()<<rfReplaceAll);

    // 縮小表示
    E_srcFilepath->Text = MinimizeName(m_srcFilename, this->Canvas, E_srcFilepath->Width);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::B_addRowClick(TObject *Sender)
{
    if (m_srcFilename.Length() == 0) {
        String wrnmsg = L"ファイルが選択されていません。";
        ShowMessage(wrnmsg);
        return;
    }

    B_addRow->Enabled = false;

    Excel_addRow((WideString)m_srcFilename, (WideString)m_dstFilename);

    B_addRow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Excel_addRow(WideString srcFile, WideString dstFile)
{
    bool closeExcel = false;

    Variant ExcelApp = CreateOleObject("Excel.Application");

    try
    {
        Variant xls_books;
        Variant xls_abook;
        Variant xls_sheets;
        Variant xls_asheet;

        try {
            ExcelApp.OlePropertySet("Visible", false); // Excel not shown
            ExcelApp.OlePropertySet("DisplayAlerts", false); // No dialog for overwrite

            xls_books = ExcelApp.OlePropertyGet("Workbooks");
            xls_abook = xls_books.OleFunction("Open", srcFile);
            // 最初のシート選択
            xls_abook.OlePropertyGet("Sheets", 1).OleProcedure("Select");
            xls_asheet = xls_abook.OlePropertyGet("ActiveSheet");
            //
            xls_asheet.OlePropertyGet("Rows", 1).OleProcedure("Insert");

            xls_abook.OleProcedure("SaveAs", dstFile); //開いた*.xlsxを別名保存
            closeExcel = true;
            ExcelApp.Exec(Procedure("Quit"));

            String msg = L"Save to [" + dstFile + L"]";
            ShowMessage(msg);
        }
        __finally
        {
            xls_asheet = Unassigned(); // 変数を初期状態に
            xls_sheets = Unassigned();
            xls_abook = Unassigned();
            xls_books = Unassigned();
        }
    }
    __finally
    {
        ExcelApp = Unassigned();
    }
}

link

• C++ Builder XE4 > Excel > Link > Access to Excel cells in "C++ Builder XE4" | +入力ファイル情報
• C++ Builder XE4 > Excel > link: 在C++Builder中利用OLE存取Excel文件 > Excel処理実装例 (中国語)
• C++ Builder XE4 > Excel処理 > 1つめのシートを選択する (シート名は任意)