VBAでもユーザに利用してもらう場合などは、例外が発生しても落ちないように考慮が必要です。

そこで、簡易的に例外を捕まえてメッセージを表示するVBAを使っているので紹介します。

実際に作ったファイルはこちらから無料でダウンロードできます。

エクセルの仕様

仕様は、「あ、い、う、え、お」と本当は出力したいです。

ただ、一部存在しないシート名を指定していることで、例外が起こるようになっています。

マクロが無効にされる場合

ダウンロードすると、以下のような警告が表示されることがあります。

ファイルを右クリックして、プロパティから「許可する」にチェックを入れて下さい。

コードの解説

コード

'==============================
'目的       ：
'==============================
Sub test_Click()

    '------エラー時はErrCatchラベルへ------
    On Error GoTo ErrCatch
    
    'ファイルパスの書き込みエリアをクリアする
    ThisWorkbook.Sheets("Sheet1").Columns("D").ClearContents
    
    'D1～5のセルに数字を記載する
    ThisWorkbook.Sheets("Sheet1").Range("D1") = "あ"
    ThisWorkbook.Sheets("Sheet1").Range("D2") = "い"
    ThisWorkbook.Sheets("Sheet1").Range("D3") = "う"
    ThisWorkbook.Sheets("Sheet20").Range("D4") = "え"    '存在しないシートを指定
    ThisWorkbook.Sheets("Sheet1").Range("D5") = "お"
    
    MsgBox "完了しました。"
    
'エラーキャッチ
ErrCatch:

    ' エラーの場合、エラーメッセージを表示する
    Call ShowErrMsg
    
End Sub

'==============================
'目的       ：エラーの場合、エラーメッセージを表示する
'==============================
Public Sub ShowErrMsg()

    'エラーがあればメッセージ表示
    If Err.Number <> 0 Then
        MsgBox "想定外のエラーが発生しました。" & vbCrLf + _
                "エラー番号：" + CStr(Err.Number) & vbCrLf + _
                "エラーの種類：" + Err.Description
    End If

End Sub

解説

7行目で、例外があった場合、「ErrCatch」というラベルに移動するようになっています。

13行目～17行目で「あいうえお」と書き込むように書いています。

ただ、16行目は存在しないシート名「sheet20」が指定されているため例外が発生します。

32行目でエラー時のメソッドが記載してあります。

例外があった場合、Err.Numberが0以外となります。

0以外(エラーがあった)場合、エラー内容をメッセージ表示させています。

「こんなのあったらいいな」の声をお届けください！

エクセルをC#で処理するときにMicrosoft.Office.Interop.Excelを参照追加して処理することが今のところは主流です。

ここで面倒なことがあります。

ということで、エクセルを開かず、読込む方法を紹介します。

デモンストレーションで動かした動画を載せておきます。

Datatableをエクセルのシートに出力するコード

Datatableの中身をエクセルのシートオブジェクトに出力するメソッドを作りました。

色や罫線も付けています。

取込むデータテーブルは以下です。

流れとしては以下です。

using ClosedXML.Excel;

/// <summary>
/// データテーブルにデータをエクセルシートにセットする
/// </summary>
/// <param name="dataTable">データテーブル</param>
/// <param name="workSheet">シート</param>
/// <returns>データテーブルを出力したシートを返す</returns>
public IXLWorksheet outPutDataTableToExcel(DataTable dataTable, IXLWorksheet workSheet)
{

    IXLRange objRrange = null;                            //rangeオブジェクト

    //-----------------エクセルにデータテーブルの中身をセット-----------------
    //列をエクセルにセット
    for (int col = 1; col <= dataTable.Columns.Count; col++)
    {
        workSheet.Cell(1, col).Value = dataTable.Columns[col -1].ColumnName;
    }

    //datatableをシートにセットする
    //行数分ループ(ヘッダの次の行から出力開始)
    for (int row = 0; row <= dataTable.Rows.Count -1; row++)
    {
        //列数分ループ
        for (int col = 1; col <= dataTable.Columns.Count; col++)
        {
            workSheet.Cell(row + 2, col).Value = dataTable.Rows[row][col - 1];

            //性別が「女」の場合、フォントを赤にする
            if(dataTable.Rows[row][col - 1].ToString() == "女")
            {
                workSheet.Cell(row + 2, col).Style.Font.FontColor = XLColor.Red;
            }
        }
    }
    //-----------------エクセルにデータテーブルの中身をセット-----------------
    

    //-----------------シートに罫線を引く-----------------
    //罫線を引く範囲をセット
    objRrange = workSheet.Range(workSheet.Cell(1, 1), workSheet.Cell(dataTable.Rows.Count +1, dataTable.Columns.Count));

    //罫線を引く
    objRrange.Style.Border.OutsideBorder = XLBorderStyleValues.Thin;
    objRrange.Style.Border.InsideBorder = XLBorderStyleValues.Thin;
    //-----------------シートに罫線を引く-----------------


    //-----------------列に色を付ける-----------------
    objRrange = workSheet.Range(workSheet.Cell(1, 1), workSheet.Cell(1, dataTable.Columns.Count));
    objRrange.Style.Fill.BackgroundColor = XLColor.LightBlue;

    //-----------------列に色を付ける-----------------
    
    return workSheet;

}

解説

列名を出力

16行目～18行目で列を出力しています。

Cell(1,col)で1行目かあから順に出力しています。

Datatableの列の開始は0列目から始まりますが、エクセルは1列目です。

なので、col-1でエクセルとDatatableの列を合せています。

Datatableの中身を出力

23行目～36行目でDatatableの中身を出力しています。

ここもDatatableの行、列のかいしは０からですが、エクセルは1から始まることを考慮しています。

行は列の次の行なので、2行目です。

⇒row+2をして合せています。

また、この時、IF文を使ってDatatableの値が「女」の場合、フォントを赤にしています。

罫線、背景色

それぞれ、列数と行数をDatatableのrows.countとcolumns.countで取得し、

線と色をセットする範囲を指定しています。

_

Closed XMLの参照設定追加

ClosedXMLで参照追加が必要です。

手順は以下の通りです。

パッケージマネージャコンソールを開く

「ツール」→「NuGetパッケージマネージャ」→「パッケージマネージャコンソール」の順で開きます。

インストール実行

その後、Install-Packageコマンドを実行して完了です。

Install-Package ClosedXML

https://loosecarrot.com/2020/02/17/3971/

ここで面倒なことがあります。

ということで、エクセルを開かず、読込む方法を紹介します。

デモンストレーションで動かした動画を載せておきます。

officeがインストールされていない端末でデモをしています。

Closed XMLの参照設定追加

ClosedXMLで参照追加が必要です。

手順は以下の通りです。

パッケージマネージャコンソールを開く

「ツール」→「NuGetパッケージマネージャ」→「パッケージマネージャコンソール」の順で開きます。

インストール実行

その後、Install-Packageコマンドを実行して完了です。

Install-Package ClosedXML

Close XMLを使ってエクセルを読み込むコード

コードは以下の通りです。

/// <summary>
/// 取込みボタンクリック時
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
private void import_Click(object sender, EventArgs e)
{
    DataTable dt = new DataTable();                     //エクセルシートのデータを格納
    DataRow dr = null;                                  //エクセルのデータを(1行分)格納
    string filePath = "";                               //エクセルのパスを格納
    int lastRow = 0;                                    //最終行番号を格納
    int lastColumn = 0;                                 //最終列番号を格納

    XLWorkbook objWorkBook = null;                        //workbookオブジェクト
    IXLWorksheet objSheet = null;                         //シートオブジェクト
    IXLRange objRrange = null;                            //rangeオブジェクト

    
    //ダイアログでファイルパスを取得
    filePath = getExcelPath();

    //エクセルをインスタンス化
    objWorkBook = new XLWorkbook(filePath);

    //シートを取得
    objSheet = objWorkBook.Worksheet(1);

    //最終行、列を取得
    lastRow = objSheet.LastRowUsed().RowNumber();
    lastColumn = objSheet.LastColumnUsed().ColumnNumber();

    //シートのデータをrangeに取込む
    objRrange = objSheet.Range(objSheet.Cell(1, 1), objSheet.Cell(lastRow, lastColumn));


    //datatableに列を作成(列数分ループ)
    for (int col = 1; col <= lastColumn; col++)
    {
        dt.Columns.Add(objSheet.Cell(1, col).Value.ToString());
    }


    //シートをdatatableに取込む
    //行数分ループ(ヘッダの次の行から開始)
    for (int row = 2; row <= lastRow-1; row++)
    {
        //行を作成
        dr = dt.NewRow();

        //Datarowに列ごとのデータをセット
        for (int col = 1; col <= lastColumn; col++)
        {
            dr[col-1] = objSheet.Cell(row, col).Value;
        }

        //datatableにDatarowを挿入
        dt.Rows.Add(dr);

    }            

    //データグリッドビューにセット
    dataGridView1.DataSource = dt;

    MessageBox.Show("完了");
    
}
/// <summary>
/// ファイルパスを返す
/// </summary>
/// <returns></returns>
public string getExcelPath()
{
    string path = "";

    //ファイルダイアログを生成する
    OpenFileDialog op = new OpenFileDialog();
    op.Title = "ファイルを開く";
    op.Filter = "すべてのファイル(*.*)|*.*";
    op.FilterIndex = 1;

    //オープンファイルダイアログを表示する
    DialogResult dialog = op.ShowDialog();

    //「開く」ボタンが選択された時の処理
    if (dialog == DialogResult.OK)
    {
        path = op.FileName;
    }
    //「キャンセル」時の処理
    else if (dialog == DialogResult.Cancel)
    { }

    return path;
}

2007以降、エクセルはXMLで作られている

実はエクセルは2007年以降XMLで作られています。

Excel 2007では、データの保存形式がXMLに変更されたため….

新しい標準ファイル形式「XML」（第2回）　より

なので、Close XMLで処理できるのは拡張子が新しいものだけです。

対象の拡張子はxlsx、xlsm、xltmです。

毎回エクセルを立ち上げることもないので早く処理できます。

いちいち調べて、プログラムを組んでと言うのが面倒なので備忘録として残しておきます。

機能としては「検索」と「エクセル取込更新」の二つの機能があります。

実際に作ったファイルはこちらからダウンロードできます。

データベース(SQLite)と取り込み用のエクセルも入っているのでダウンロードしてもらえればすぐに実行して試すことができます。

デモンストレーションで動かした動画を載せておきます。

開発環境

開発環境はVisualStudio2015

データベースはSQLiteです。

VisualStudio2015のインストール

開発環境はVisualStudio2015なのでインストールが必要です。

設定は特に必要なく、標準インストールで良いです。

1時間くらいかかります。

こちらからダウンロードできます。

Visual Studio 2015(Community)

DB.Browser.for.SQLiteのインストール

SQLiteは専用ソフトがないとデータベースを開いて中を見ることができません。

開くとこんな感じで見ることができます。

こちらからダウンロードできます。

SQLite DB.Browser

エクセル取込み更新のコード

フォーム画面のプログラムは以下です。

using System.Data.OleDb;
using System.IO;

---------------------------
/// <summary>
/// 検索ボタンクリック時
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
private void buttonSearch_Click(object sender, EventArgs e)
{
    DataSet ds = new DataSet();                    //datatableを格納用
    DataTable dt = new DataTable();                //データを格納
    DataAccess dataAccess = new DataAccess();      //インスタンス化

    //データを取得
    ds.Tables.Add(dataAccess.getSupplierAll().Copy());

    //データグリッドビューにセット
    dataGridView.DataSource = ds.Tables["Supplier"];
}


/// <summary>
/// エクセル取込更新ボタンクリック時
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
private void buttonUpdateByExcel_Click(object sender, EventArgs e)
{
    DataSet dsExcelSheets = new DataSet();              //エクセルシートごとのdatatableを格納用
    DataTable dtSheet = new DataTable();                //エクセルシートのデータを格納
    DataAccess dataAccess = new DataAccess();           //インスタンス化
    string filePath = "";                               //エクセルのパスを格納
    

    //ダイアログでファイルパスを取得
    filePath = getExcelPath();

    //エクセルをDatatableに取込む
    dsExcelSheets.Tables.Add(getDataTableFromExcel(filePath, "Supplier", true, true).Copy());
    
    //Datatableの内容でDBを更新
    //Datatableの行数分ループ
    foreach (DataRow dr in dsExcelSheets.Tables[0].Rows)
    {
        dataAccess.updateSupplier(dr);
    }
    
    //Supplierというdatatableがあれば削除
    if(dsExcelSheets.Tables.Contains("Supplier"))
    {
        dsExcelSheets.Tables.Remove("Supplier");
    }

    //データを取得
    dsExcelSheets.Tables.Add(dataAccess.getSupplierAll().Copy());

    //データグリッドビューにセット
    dataGridView.DataSource = dsExcelSheets.Tables["Supplier"];


    MessageBox.Show("エクセル更新完了");
    
}

/// <summary>
/// ファイルパスを返す
/// </summary>
/// <returns></returns>
public string getExcelPath()
{
    string path = "";

    //ファイルダイアログを生成する
    OpenFileDialog op = new OpenFileDialog();
    op.Title = "ファイルを開く";
    op.Filter = "すべてのファイル(*.*)|*.*";
    op.FilterIndex = 1;

    //オープンファイルダイアログを表示する
    DialogResult dialog = op.ShowDialog();

    //「開く」ボタンが選択された時の処理
    if (dialog == DialogResult.OK)
    {
        path = op.FileName;
    }
    //「キャンセル」時の処理
    else if (dialog == DialogResult.Cancel)
    { path = ""; }

    return path;
}

/// <summary>
/// シートをdatatableに格納
/// </summary>
/// <param name="strFilePath"></param>
/// <param name="strSheetName"></param>
/// <param name="isInHeader"></param>
/// <param name="isAllStrColum"></param>
/// <returns></returns>
public DataTable getDataTableFromExcel(string excelFilePath, string strSheetName, Boolean isInHeader = true, Boolean isAllStrColum = true)
{
    DataTable dt = new DataTable();
    string strInHeader = isInHeader ? "YES" : "NO";        // ヘッダー設定
    string strIMEX = isAllStrColum ? "IMEX=1;" : "";       // 文字列型設定
    string strFileEx = Path.GetExtension(excelFilePath);   // ファイル拡張子
    string strExcelVer = "Excel ";                         // Excelファイルver確認

    //テーブル名をセット
    dt.TableName = strSheetName;

    //拡張子ごとにエクセルのバージョンを取得
    if (strFileEx == ".xls")
    {
        strExcelVer += "8.0;";
    }
    else if (strFileEx == ".xlsx" || strFileEx == ".xlsm")
    {
        strExcelVer += "12.0;";
    }
    else
    {
        return null;
    }

    //コネクションストリングを作成
    String strCon = "Provider=Microsoft.ACE.OLEDB.12.0;"            // プロバイダ設定
                                                                    //= "Provider=Microsoft.Jet.OLEDB.4.0;"
                        + "Data Source=" + excelFilePath + "; "     // ソースファイル指定
                        + "Extended Properties=\"" + strExcelVer    // Excelファイルver指定
                        + "HDR=" + strInHeader + ";"                // ヘッダー設定
                        + strIMEX                                   // フィールドの型を強制的にテキスト
                        + "\"";
    OleDbConnection con = new OleDbConnection(strCon);
    String strCmd = "SELECT * FROM [" + strSheetName + "$]";

    // 読み込み
    OleDbCommand cmd = new OleDbCommand(strCmd, con);
    OleDbDataAdapter adp = new OleDbDataAdapter(cmd);
    adp.Fill(dt);

    return dt;
}

解説

エクセルをdatatableに取込み

41行目でエクセルを読み込んで、datatableに取込んでいます。

58行目のgetDataTableFromExcelメソッドでエクセルの内容をSELECT * で全件取得し、datatableに格納させています。

AccessDatabaseEngine_X64.exeをダウンロードしてインストールしてください。

こちらからダウンロード可能です。

https://www.microsoft.com/ja-jp/download/details.aspx?id=13255

参考サイト：Microsoft.ACE.OLEDB.12.0プロバイダーはローカルコンピュータに登録されていません

原因は32ビットのofficeを動かしているため、64ビットようを使う必要があるからだそうです。

エクセルを立上げずに読取る方法も紹介しています。

https://loosecarrot.com/2020/03/01/4091/

datatableのデータを使ってDB更新

45行目～48行目でdatatableのレコード分ループして更新しています。

1行ずつdatarowに入った値を元にDBを更新するSQLを発行しています。

dataAccess.updateSupplier(dr);メソッドの中身は以下のように記載しています。

/// <summary>
/// supplier_cdをキーにSupplierへ更新
/// </summary>
/// <param name="drArg"></param>
/// <returns></returns>
public int updateSupplier(DataRow drArg)
{
    int updateCount = 0;                                                                //更新件数を格納
    DbHelper = new SQLiteDBHelper(localDBPath);                                         //インスタンス化
    StringBuilder sb = new StringBuilder();                                             //クエリ格納用

    //パラメータをセット
    SQLiteParameter[] parameters = new SQLiteParameter[]
    {
            new SQLiteParameter("@supplier_cd",drArg.ItemArray[0]),
            new SQLiteParameter("@supplier_name",drArg.ItemArray[1]),
            new SQLiteParameter("@addr",drArg.ItemArray[2]),
            new SQLiteParameter("@post_num",drArg.ItemArray[3]),
            new SQLiteParameter("@tel",drArg.ItemArray[4]),
            new SQLiteParameter("@fax",drArg.ItemArray[5])
    };


    sb.AppendLine("UPDATE Supplier SET");
    sb.AppendLine("	supplier_name         = @supplier_name,");
    sb.AppendLine("	addr                  = @addr,");
    sb.AppendLine("	post_num              = @post_num,");
    sb.AppendLine("	tel                   = @tel,");
    sb.AppendLine("	fax                   = @fax");
    sb.AppendLine("WHERE supplier_cd      = @supplier_cd");

    //更新
    updateCount = DbHelper.ExecuteNonQuery(sb.ToString(), parameters);

    return updateCount;
}

更新後のデータを表示

56行目～60行目で更新後のデータを検索し、表示しています。

更新結果

更新前の状態で検索をすると以下の状態です。

以下の内容でtel列とfax列をエクセル更新します。

エクセル取込更新ボタン後は以下が表示されます。

参照設定

SQLite

SQLite.dllがあるので、参照設定追加をしてください。

dllは「～UpdateDatabaseByExcel\SQLite\System.Data.SQLite.dll」のパスに配置されています。

https://loosecarrot.com/2019/11/25/3860/

C#でエクセルをdatatableに取込むことはたまにあると思います。

備忘録として残しておきます。

実際に作ったファイルはこちらからダウンロードできます。

エクセルをDatatbleに取込み、Datagridviewに表示

色々と解説はありますが、それは後にして、コードはこんな感じです。

エクセルを複数シート取込んで、データグリッドビューに表示します。

エクセルを開かずに処理する方法もあります。

https://loosecarrot.com/2020/03/01/4091/

流れは以下の通りです。

using System.Data.OleDb;
using System.IO;
using Excel = Microsoft.Office.Interop.Excel; ---------------------------

/// <summary>
/// 取込みボタクリック時
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
private void import_Click(object sender, EventArgs e)
{

    DataSet dsExcelSheets = new DataSet();              //エクセルシートごとのdatatableを格納用
    DataTable dtSheet = new DataTable();                //エクセルシートのデータを格納
    string filePath = "";                               //エクセルのパスを格納

    Excel.Application objExcel = null;                  //Excelオブジェクト
    Excel.Workbooks objWorkBooks = null;                //workbooksオブジェクト
    Excel.Workbook objWorkBook = null;                  //workbookオブジェクト
    Excel.Sheets objSheets = null;                      //複数シートオブジェクト
    Excel.Worksheet objSheet = null;                    //シートオブジェクト

    //ダイアログでファイルパスを取得
    filePath = getExcelPath();

    //エクセルを開く
    objExcel = new Excel.Application();
    objExcel.Visible = true;

    // Excelファイルをオープンする
    objWorkBooks = objExcel.Workbooks;
    objWorkBook = objWorkBooks.Open(filePath);

    //シートを取得
    objSheets = objWorkBook.Worksheets;

    //シート数分ループしながら、datatableに取込
    for (int i = 1; i <= objSheets.Count; i++)
    {
        //シートをセット
        objSheet = objSheets[i];

        //シートからSELECT *する
        dsExcelSheets.Tables.Add(getDataTableFromExcel(filePath, objSheet.Name,true,true).Copy());

    }

    //---------COMオブジェクトの解放---------
    // Sheet解放
    System.Runtime.InteropServices.Marshal.ReleaseComObject(objSheet);
    System.Runtime.InteropServices.Marshal.ReleaseComObject(objSheets);

    // Book解放
    objWorkBook.Close();
    System.Runtime.InteropServices.Marshal.ReleaseComObject(objWorkBook);
    System.Runtime.InteropServices.Marshal.ReleaseComObject(objWorkBooks);

    // Excelアプリケーションを解放
    objExcel.Quit();
    System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel);

    GC.Collect();
    
    //---------COMオブジェクトの解放---------

    //データグリッドビューにセット
    dataGridViewSupplier.DataSource = dsExcelSheets.Tables["Supplier"];
    dataGridViewFoods.DataSource = dsExcelSheets.Tables["Foods"];
    dataGridViewGoods.DataSource = dsExcelSheets.Tables["Goods"];

    MessageBox.Show("完了");

}

/// <summary>
/// ファイルパスを返す
/// </summary>
/// <returns></returns>
public string getExcelPath()
{
    string path = "";

    //ファイルダイアログを生成する
    OpenFileDialog op = new OpenFileDialog();
    op.Title = "ファイルを開く";
    op.InitialDirectory = @"C:\";
    op.Filter = "すべてのファイル(*.*)|*.*";
    op.FilterIndex = 1;

    //オープンファイルダイアログを表示する
    DialogResult dialog = op.ShowDialog();

    //「開く」ボタンが選択された時の処理
    if (dialog == DialogResult.OK)
    {
        path = op.FileName;
    }
    //「キャンセル」時の処理
    else if (dialog == DialogResult.Cancel)
    { }
    
    return path;
}

/// <summary>
/// シートをdatatableに格納
/// </summary>
/// <param name="strFilePath"></param>
/// <param name="strSheetName"></param>
/// <param name="isInHeader"></param>
/// <param name="isAllStrColum"></param>
/// <returns></returns>
public DataTable getDataTableFromExcel(string excelFilePath, string strSheetName, Boolean isInHeader = true, Boolean isAllStrColum = true)
{
    DataTable dt = new DataTable();
    string strInHeader = isInHeader ? "YES" : "NO";        // ヘッダー設定
    string strIMEX = isAllStrColum ? "IMEX=1;" : "";       // 文字列型設定
    string strFileEx = Path.GetExtension(excelFilePath);   // ファイル拡張子
    string strExcelVer = "Excel ";                         // Excelファイルver確認

    //テーブル名をセット
    dt.TableName = strSheetName;

    //拡張子ごとにエクセルのバージョンを取得
    if (strFileEx == ".xls")
    {
        strExcelVer += "8.0;";
    }
    else if (strFileEx == ".xlsx" || strFileEx == ".xlsm")
    {
        strExcelVer += "12.0;";
    }
    else
    {
        return null;
    }

    //コネクションストリングを作成
    String strCon = "Provider=Microsoft.ACE.OLEDB.12.0;"            // プロバイダ設定
                                                                    //= "Provider=Microsoft.Jet.OLEDB.4.0;"
                        + "Data Source=" + excelFilePath + "; "     // ソースファイル指定
                        + "Extended Properties=\"" + strExcelVer    // Excelファイルver指定
                        + "HDR=" + strInHeader + ";"                // ヘッダー設定
                        + strIMEX                                   // フィールドの型を強制的にテキスト
                        + "\"";
    OleDbConnection con = new OleDbConnection(strCon);
    String strCmd = "SELECT * FROM [" + strSheetName + "$]";

    // 読み込み
    OleDbCommand cmd = new OleDbCommand(strCmd, con);
    OleDbDataAdapter adp = new OleDbDataAdapter(cmd);
    adp.Fill(dt);

    return dt;
}

解説

それぞれ処理4つのポイントを解説します。

①ダイアログでエクセルを選択

20行目からgetExcelPath()というメソッドに飛んでいます。

詳細は以下をご確認ください。

https://loosecarrot.com/2020/02/18/3978/

②エクセルを開く

エクセルを開くにはブックやらシートやらと変数を定義しないとダメなようです。

13行目～17行目です。

そして、objWorkBooks.Open(filePath);でエクセルを開いています。

③シートごとにdatatableへ格納

31行目でシートを変数へ格納し、

34行目からの処理でシート枚数分ループさせています。

getDataTableFromExcelメソッド内でシートのデータすべてを取得しています。

SQLのSELECT * [strSheetName] はシートのすべてのデータを取得するという意味です。

※列が1列空いたり、行が1行空白だと、その前までしか取得されません。

④エクセルを閉じる

44行目～58行目でエクセルを閉じて、オブジェクトを開放しています。

これでエクセルを閉じたり、プロセスやメモリを開放することができます。

エクセルを取込んでSQLで更新する方法も紹介しているのでご覧ください。

https://loosecarrot.com/2020/02/19/3988/

実行結果

3シートがそれぞれデータグリッドビューに表示されました。

https://loosecarrot.com/2019/11/25/3860/

補足

Microsoft.ACE.OLEDB.12.0

以下が出た場合

‘Microsoft.ACE.OLEDB.12.0’ プロバイダーはローカルのコンピューターに登録されていません。

AccessDatabaseEngine_X64.exeをダウンロードしてインストールしてください。

こちらからダウンロード可能です。

https://www.microsoft.com/ja-jp/download/details.aspx?id=13255

参考サイト：Microsoft.ACE.OLEDB.12.0プロバイダーはローカルコンピュータに登録されていません

原因は32ビットのofficeを動かしているため、64ビットようを使う必要があるからだそうです。

エクセル参照設定

ソリューションに参照設定で「Microsoft Excel XXX Object Library」を追加しておいてください。

参考：Excelの参照設定

仕事でtsvやcsvをエクセルから出したいことがありました。

備忘録として残しておきます。

インターフェースファイルを作るときなどにも役立つのでぜひ知っておいてください。

実際に作ったファイルはこちらから無料でダウンロードできます。

エクセルの仕様

区切り文字とダブルクォーテーション囲みの有無を設定できます。

出力ボタンをクリックすると、隣の「出力元シート」の内容を出力します。

出力場所はエクセルの配置されている場所です。

マクロが無効にされる場合

ダウンロードすると、以下のような警告が表示されることがあります。

ファイルを右クリックして、プロパティから「許可する」にチェックを入れて下さい。

エクセルからファイル出力するコード

コードはこんな感じです。

流れとしては以下です。

'=============================================
'目的       ：ファイルを出力
'履歴        :#2020/02/14
'=============================================
Sub writeTsv()
     
    Dim startRow As Long                              '読込みする開始行
    Dim endRow As Long                                '読込みする終了行
    Dim startCol As Long                              '読込みする開始列
    Dim endCol As Long                                '読込みする終了行
    Dim menuWs As Worksheet                           'メニューシート
    Dim ws As Worksheet                               'シート
    Dim outputArray As Variant                        '出力するデータの配列
    Dim filePath As String                            '出力するパス
    Dim i As Integer                                   'ループ用変数
    Dim j As Long                                      'ループ用変数
    Dim outputText As String                           '出力テキストを格納
    Dim Delimiter As String                            '区切り文字
    Dim Extension As String                            'ファイルの拡張子
    Dim enclosingLetter  As String                      '囲みの文字
    
    
    '-----------メニューシートを設定値をセット-----------
    Set menuWs = ThisWorkbook.Worksheets("メニュー")
    menuWs.Activate
    '区切り文字ををセット
    If menuWs.Range("E5") = "カンマ" Then
        Delimiter = ","
        Extension = ".csv"
    ElseIf menuWs.Range("E5") = "タブ" Then
        Delimiter = vbTab
        Extension = ".tsv"
    Else
        MsgBox "区切文字を選択してください"
        Exit Sub
    End If
    
    '囲み文字をセット
    If menuWs.Range("E6") = "あり" Then
        enclosingLetter = Chr(34)
    Else
        enclosingLetter = ""
    End If
    
    
    '-----------出力元シートからファイル出力-----------
    '処理対象のシートをセット
    Set ws = ThisWorkbook.Worksheets("出力元シート")
    ws.Activate
    
    '出力対象範囲を取得する
    startCol = 1                                        '開始列
    startRow = 2                                        '開始行
    endCol = Range("A1").End(xlToRight).Column          '最終列
    endRow = Range("A3").End(xlDown).Row - 1            '最終行
    
    
    '処理対象の範囲を配列に取得
    Set outputArray = ActiveSheet.Range(Cells(startRow, startCol), Cells(endRow, endCol))
    
    
    
    '-----------ファイルに書き込む文字列を作成-----------
    '列×行数分ループ
    For i = 1 To endRow
        For j = 1 To endCol
        
            '最終列かつ最終行に来たら改行
            If i = endRow And j = endCol Then
                outputText = outputText & enclosingLetter & outputArray(i, j) & enclosingLetter
                GoTo NextLoop
            End If
            
            '最終列に来たら改行
            If j = endCol Then
                outputText = outputText & enclosingLetter & outputArray(i, j) & enclosingLetter & vbCrLf
                GoTo NextLoop
            End If
            
            '区切り文字で1セルずつ変数へ格納
            outputText = outputText & enclosingLetter & outputArray(i, j) & enclosingLetter & Delimiter
            
NextLoop:
            
        Next j
    Next i
        
    
    'ファイルを書き込み
    '出力先とファイル名をセット
    filePath = ActiveWorkbook.Path & "\Output_" & Format(Now, "yyyymmdd_HHMMSS") & Extension
    
    Open filePath For Output As #1
    Print #1, outputText
    Close #1
    
    
    '処理対象のシートをセット
    menuWs.Activate
    
    MsgBox "出力完了"
    
End Sub

実行結果

「出力元シート」に記載されている内容が出力されます。

エクセルの配置されている場所にファイルが出力されます。

※以下はtsv出力の結果のファイルです。

解説

42行目～62行目でメニューシートの設定内容を変数に格納しています。

66行目～92行目で出力元シートの内容を配列に格納しています。

91、92行目で一番最後の列、行を取得しているため、列、行が増えても自動で出力範囲が変わります。

63行目～86行目でセルごとの値を区切り文字を付けて文字連結しています。

enclosingLetterは、ダブルクォーテーション囲み有無の設定の際に、

「あり」の場合、[“]をセット

「なし」の場合、空白をセットすることで囲み文字が制御されています。

商品をこれから出品したりすることもあるので、バーコード発行するエクセルVBAを作ってみました。

実際に作ったファイルはこちらから無料でダウンロードできます。

JANCODE-nicBARで出力したサンプルを載せておきます。

因みにフォントはそれぞれ以下からダウンロードさせていただきました。

バーコード発行エクセルの説明

サンプルを見て分かる通りですが、1ページに24枚のバーコードを作ります。

1行に3枚×8段が1シートになります。

バーコードシール 24面

posted with カエレバ

Yahooショッピング

Amazon

楽天市場

シートは3枚あります。

リストシート

商品(型番)、数量、商品名をを入力して、バーコード生成ボタンを押すと、バーコードを発行できます。

EF列で発行するバーコードやフォントサイズなどを指定することでそれに応じたバーコードが出せます。

バーコードシート

リストシートで入力した内容が発行されます。

1ページに24枚(3×8行)できます。

フォーマットシート

フォーマットシートに設定した幅や高さをコピーして、バーコードシートが作成されます。

そのため、フォーマットシートで変更した高さや幅を変更することで印刷するバーコードも変更されます。

バーコード発行エクセルの使い方

基本的に幅や高さは自分で変更できるように作っています。

また、フォントや発行するバーコードの種類も決めることができます。

詳細をこの下で説明していきます。

フォントのインストール

フォントは事前にインストールした状態でバーコード発行をして下さい。

私がテスト的に試したのは以下の3つのフォントです。

すべて、ウェブサイトからダウンロードできますが、一応リンクも載せておきます。

フォーマットシートで幅・高さ変更

バーコードの種類や、印刷するシールによってはずれが出てくることもあり得ます。

なので、フォーマットシートの高さや幅を変更することで反映することができるようにしています。

文字が入るのはB、D、F列なのでここをメインに幅や高さ調整すればOKです。

バーコード種類・スタートストップコード・フォントサイズ変更

上の画像の赤枠で囲んでいるところで以下を設定できます。

水色のところはバーコードの情報を設定します。

例えば、CODE39のバーコードを使う場合、フォントを変更します。

また、CODE39はスタート、ストップコードが必要なので*を入れておきます。

紫色のところは商品コードが表示されるセルの設定です。

好きなサイズに変更してみて下さい。

緑色のところは商品がが表示されるセルの設定です。

商品名が長かったりする場合は、フォントサイズを小さくできます。

フォントサイズや、揃え位置を変更してみたサンプルです。

JANCODE-nicWabunで商品コードは左寄せ、商品名は右寄せです。

揃え位置、JANCODE-nicWabun発行サンプル

フォント設定について

インストールした後に、フォントを選ぶことができます。

F2セルにセットするフォントはこの表示されているフォント名を記入してください。

CODE39であれば、フォント名と同じ「CODE39」と入力してください

バーコード発行のVBA

一部だけの抜粋ですが、以下がコードです。

商品コードをセルに出力して、フォントを設定しています。

'リストシートの情報を元にバーコードシートに転記
For i = 1 To CreateBarCodeCount
    
    ItemCode = Sheets("リスト").Range("A" & i + 1)
    Amount = Int(Sheets("リスト").Range("B" & i + 1))
    ItemName = Sheets("リスト").Range("C" & i + 1)
    
    
    '数量分ループ
    For j = 1 To Amount
    
        '24枚(1ページ分作った場合)
        If (BarCodeCreatedCount Mod 24 = 0) And BarCodeCreatedCount <> 0 Then
            kijunRow = kijunRow + 5
            LoopCount = 1
            
        '3列書込んだら次の行へいく
        ElseIf LoopCount = 4 Then
            LoopCount = 1
            kijunRow = kijunRow + 4
        End If
        
        'B列
        If LoopCount = 1 Then
            'バーコード
            Sheets("バーコード").Range("B" & kijunRow) = Range("スタートコード") & ItemCode & Range("ストップコード")
            Sheets("バーコード").Range("B" & kijunRow).Font.Name = Range("バーコードフォント")
            Sheets("バーコード").Range("B" & kijunRow).Font.Size = Range("バーコードフォントサイズ")
            Sheets("バーコード").Range("B" & kijunRow).HorizontalAlignment = ConvertHorizontalAlignment(Range("バーコード揃え"))
            '商品コード
            Sheets("バーコード").Range("B" & kijunRow + 1) = ItemCode
            Sheets("バーコード").Range("B" & kijunRow + 1).Font.Size = Range("商品コードフォントサイズ")
            Sheets("バーコード").Range("B" & kijunRow + 1).HorizontalAlignment = ConvertHorizontalAlignment(Range("商品コード揃え"))
            '商品名
            Sheets("バーコード").Range("B" & kijunRow + 2) = ItemName
            Sheets("バーコード").Range("B" & kijunRow + 2).Font.Size = Range("商品名フォントサイズ")
            Sheets("バーコード").Range("B" & kijunRow + 2).HorizontalAlignment = ConvertHorizontalAlignment(Range("商品名揃え"))
            
            BarCodeCreatedCount = BarCodeCreatedCount + 1
        'D列
        ElseIf LoopCount = 2 Then
            'バーコード
            Sheets("バーコード").Range("D" & kijunRow) = Range("スタートコード") & ItemCode & Range("ストップコード")
            Sheets("バーコード").Range("D" & kijunRow).Font.Name = Range("バーコードフォント")
            Sheets("バーコード").Range("D" & kijunRow).Font.Size = Range("バーコードフォントサイズ")
            Sheets("バーコード").Range("D" & kijunRow).HorizontalAlignment = ConvertHorizontalAlignment(Range("バーコード揃え"))
            '商品コード
            Sheets("バーコード").Range("D" & kijunRow + 1) = ItemCode
            Sheets("バーコード").Range("D" & kijunRow + 1).Font.Size = Range("商品コードフォントサイズ")
            Sheets("バーコード").Range("D" & kijunRow + 1).HorizontalAlignment = ConvertHorizontalAlignment(Range("商品コード揃え"))
            '商品名
            Sheets("バーコード").Range("D" & kijunRow + 2) = ItemName
            Sheets("バーコード").Range("D" & kijunRow + 2).Font.Size = Range("商品名フォントサイズ")
            Sheets("バーコード").Range("D" & kijunRow + 2).HorizontalAlignment = ConvertHorizontalAlignment(Range("商品名揃え"))
            
            BarCodeCreatedCount = BarCodeCreatedCount + 1
        'F列
        Else
            'バーコード
            Sheets("バーコード").Range("F" & kijunRow) = Range("スタートコード") & ItemCode & Range("ストップコード")
            Sheets("バーコード").Range("F" & kijunRow).Font.Name = Range("バーコードフォント")
            Sheets("バーコード").Range("F" & kijunRow).Font.Size = Range("バーコードフォントサイズ")
            Sheets("バーコード").Range("F" & kijunRow).HorizontalAlignment = ConvertHorizontalAlignment(Range("バーコード揃え"))
            '商品コード
            Sheets("バーコード").Range("F" & kijunRow + 1) = ItemCode
            Sheets("バーコード").Range("F" & kijunRow + 1).Font.Size = Range("商品コードフォントサイズ")
            Sheets("バーコード").Range("F" & kijunRow + 1).HorizontalAlignment = ConvertHorizontalAlignment(Range("商品コード揃え"))
            '商品名
            Sheets("バーコード").Range("F" & kijunRow + 2) = ItemName
            Sheets("バーコード").Range("F" & kijunRow + 2).Font.Size = Range("商品名フォントサイズ")
            Sheets("バーコード").Range("F" & kijunRow + 2).HorizontalAlignment = ConvertHorizontalAlignment(Range("商品名揃え"))
            
            BarCodeCreatedCount = BarCodeCreatedCount + 1
        End If
        
        LoopCount = LoopCount + 1
    Next j
    
Next i

24面なので、amazonや楽天でシールを一緒に買って使うのもありだと思います。

バーコードシール 24面

posted with カエレバ

Yahooショッピング

Amazon

楽天市場

自動でメール送信するツールを作ってみました。

今回はOutlookではなくフリーメール(YahooJapan)です。

実際に作ったファイルはこちらから無料でダウンロードできます。

使い方の説明はこちらからダウンロード可能です。

エクセルの名前の定義

エクセル自体にもセル名の定義をしているので、まずそこから説明しておきます。

意外とエクセルのVBAでは名前の定義を色々使えると良いことが多いです。

仕様と合わせて説明します。

仕様

①「送信元アカウント」を選択します。

リストは「アカウント」をもとに選べます。

下の画像で言うと、Gmail、Yahoo、YahooUSAがあるので3つから選べる状態です。

②送信ボタンをクリックすると「送信元アドレス」からとなりのシートを１つずつ読込んでメールを送信していきます。

名前の定義

メインシートの各名前は以下のようなルールで定義づけしています。

「メール送信」ボタンクリック後、後続の処理で「送信元アカウント」と文字連結をして送信を行います。

https://loosecarrot.com/2019/04/05/3353/

メール用の参照設定(CDO)

参照設定

ファイル用もフォルダ用もダイアログを開くに参照設定を必要です。

手順はコードエディターから「ツール(T)」→「参照設定(R)」と移動します。

その後、Microsoft CDO for Windows 2000 Libraryにチェックを付けておいてください。

CDOとはMicrosoft Collaboration Data Objectsのことだそうです。

CDO は、メッセージング機能を持つアプリケーションの作成を容易にするために、あるいは、既存のアプリケーションにメッセージング機能を追加するために設計されたものです。
microsoft.comより

Gmailの送信許可は不可になった

Gmailアカウントを使ってメール送信する場合は「安全性の低いアプリのアクセス」許可しておく必要があります。

設定は以下にアクセスすることで変更できます。

https://myaccount.google.com/lesssecureapps

2022年5月からGmailはユーザとパスワードでログインすることはできなくなりました。

YahooJapanアカウントを使ってメール送信する場合は特に設定は必要はないようです。

メール送信処理のコード

処理の流れは以下の順です。

コード

'==============================
'目的　　　 ：シート分のメールを送信する
'==============================
Sub SendMail_Click()

　　Dim MyDir As String　　　　　　　　　　　　　　　　　　　'自分のファイルが存在するディレクトリ格納用
　　Dim i As Long　　　　　　　　　　　　　　　　　　　　　　'ループ用変数
　　Dim j As Long　　　　　　　　　　　　　　　　　　　　　　'ループ用変数
　　Dim SheetCnt As Long　　　　　　　　　　　　　　　　　　　'シート数を格納する変数
　　Dim SheetName As String　　　　　　　　　　　　　　　　　'シート名を格納する変数

　　Dim ToAddress As String　　　　　　　　　　　　　　　　　'Toアドレス用の変数
　　Dim CcAddress As String　　　　　　　　　　　　　　　　　'Ccアドレス用の変数
　　Dim BccAddress As String　　　　　　　　　　　　　　　　'Bccアドレス用の変数
　　Dim FromAddress As String　　　　　　　　　　　　　　　　'Fromアドレス用の変数
　　Dim cdoMsg As Object　　　　　　　　　　　　　　　　　　'CDOメッセージオブジェクト用変数
　　Dim cdoConf As Object　　　　　　　　　　　　　　　　　'CDOコンフィグレーションオブジェクト用変数
　　Dim strMailBody As String　　　　　　　　　　　　　　　'メール本文用の変数
　　Dim strSubject As String　　　　　　　　　　　　　　　　'件名用の変数
　　Dim strSignature As String　　　　　　　　　　　　　　　'署名用の変数
　　Dim strAttachmentPath As String　　　　　　　　　　　　'添付ファイルの格納用変数
　　Dim strAttachmentsPath() As String　　　　　　　　　　'添付ファイルの格納配列
　　Dim strSendAccount As String　　　　　　　　　　　　　　'送信するアカウント
　　
　　'固定値をセット(長いと見づらいため)
　　Const cstUnderscore As String = "_"　　　　　　　　　 'アンダーバー
　　Const cstSendusing As String = "http://schemas.microsoft.com/cdo/configuration/sendusing"
　　Const cstSmtpserver As String = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
　　Const cstSmtpserverport As String = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
　　Const cstSendusername As String = "http://schemas.microsoft.com/cdo/configuration/sendusername"
　　Const cstSendpassword As String = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
　　Const cstSmtpauthenticate As String = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
　　Const cstSmtpusessl As String = "http://schemas.microsoft.com/cdo/configuration/smtpusessl"

　　'エラー時はErrCatchラベルへ
　　On Error GoTo ErrCatch
　　
　　'-------シート枚数分ループ(2枚目のシートから)-------
　　'自分の配置されているパスを取得
　　MyDir = ThisWorkbook.Path
　　
　　'シート件数を取得
　　SheetCnt = ThisWorkbook.Sheets.Count
　　
　　For i = 2 To SheetCnt
　　
　　　　'----------送信元アカウント情報を設定(メインシートから取得)----------
　　　　'CDOをオブジェクト作成
　　　　Set cdoMsg = CreateObject("CDO.Message")
　　　　Set cdoConf = CreateObject("CDO.Configuration")
　　　　
　　　　cdoConf.Load -1
　　　　
　　　　'送信元アカウントを取得
　　　　strSendAccount = Sheets(1).Range("SendAccount").Value
　　　　
　　　　'送信元アカウントが未選択の場合終了
　　　　If strSendAccount = "" Then
　　　　　　MsgBox "送信元アカウントを設定してください。"
　　　　　　End
　　　　End If
　　　　
　　　　'送信元アカウントにアンダーバーをセット
　　　　strSendAccount = strSendAccount + cstUnderscore
　　　　
　　　　With cdoConf.Fields
　　　　　　.Item(cstSendusing) = 2
　　　　　　.Item(cstSmtpserver) = Sheets(1).Range(strSendAccount & "smtpserver").Value
　　　　　　.Item(cstSmtpserverport) = Sheets(1).Range(strSendAccount & "smtpserverport").Value
　　　　　　.Item(cstSendusername) = Sheets(1).Range(strSendAccount & "sendusername").Value
　　　　　　.Item(cstSendpassword) = Sheets(1).Range(strSendAccount & "sendpassword").Value
　　　　　　.Item(cstSmtpauthenticate) = True
　　　　　　.Item(cstSmtpusessl) = True
　　　　　　.Update
　　　　End With
　　　　
　　　　'Fromアドレス取得
　　　　FromAddress = Sheets(1).Range(strSendAccount & "From").Value
　　　　
　　　　'重要度を変更
　　　　cdoMsg.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
　　　　cdoMsg.Fields.Update
　　　　
　　　　'-------各メールフォーマットから取得-------
　　　　'シート名を取得
　　　　SheetName = Sheets(i).Name

　　　　'-------メール情報を取得-------
　　　　'セル内改行(LF)はCRLFに置換 → Yahooでは落ちるため
　　　　ToAddress = Replace(Sheets(i).Range("Mail_TO").Value, vbLf, vbCrLf)　　　　　　'To宛先
　　　　CcAddress = Replace(Sheets(i).Range("Mail_CC").Value, vbLf, vbCrLf)　　　　　　'cc宛先
　　　　BccAddress = Replace(Sheets(i).Range("Mail_BCC").Value, vbLf, vbCrLf)　　　　　'bcc宛先
　　　　strSubject = Replace("【" & SheetName & "様】" & _
　　　　　　　　　　　　　　Sheets(i).Range("Mail_Subject").Value, vbLf, vbCrLf)　　　　'件名
　　　　strMailBody = Replace(Sheets(i).Range("Mail_Body").Value, vbLf, vbCrLf)　　　　'メール本文
　　　　strSignature = Replace(Sheets(i).Range("Mail_Signature").Value, vbLf, vbCrLf)　'署名
　　
　　　　'-------メールに情報をセットする-------
　　　　With cdoMsg
　　　　　　Set .Configuration = cdoConf
　　　　　　.From = FromAddress
　　　　　　.To = ToAddress
　　　　　　.CC = CcAddress
　　　　　　.BCC = BccAddress
　　　　　　.MDNRequested = True
　　　　　　.Subject = strSubject
　　　　　　.TextBody = strMailBody & vbCrLf & vbCrLf & strSignature
　　　　　　.BodyPart.Charset = "utf-8"
　　　　End With
　　　　
　　　　'-------添付ファイルを貼り付ける-------
　　　　'[yyyymmdd_会社名].[拡張子]を検索し、取得する
　　　　strAttachmentsPath() = FileSearch(Format(Now(), "yyyymmdd") & "_" & SheetName & ".*", MyDir & "\添付ファイル\")  '"

        If strAttachmentsPath(0) = "dummy" Then
            '添付ファイルが一件もなければ、次のメール処理へ行く(発注連絡が不要なため)
            GoTo nextDO
        Else
            '添付ファイルが一件でもあれば添付
    
                'ファイル件数分ループして添付する
                For j = 0 To UBound(strAttachmentsPath())
                    'ファイルパスを取得
                    strAttachmentPath = strAttachmentsPath(j)
    
                    'ファイルを添付
                    cdoMsg.AddAttachment strAttachmentPath
                Next j
        End If

　　　　'-------メールを送信する-------
　　　　'メール送信
　　　　cdoMsg.Send

nextDO:
　　　　'-------Outlookを閉じる(オブジェクトを解放)---
　　　　Set cdoMsg = Nothing
　　　　Set cdoConf = Nothing

　　Next i
　　
　　MsgBox "送信が完了しました。"
　　
'エラーキャッチ
ErrCatch:
　　
　　' エラーの場合、エラーメッセージを表示する
　　Call ShowErrMsg
　　
End Sub

メール送信処理の解説

送信元アカウント情報を設定(メインシートから取得)

strSendAccount = Sheets(1).Range(“SendAccount”).Value

でメインシートの名前「SendAccount」からアカウント名を取得しています。

その後取得したアカウント名とSMTPServerやPortNumberの名前を文字連結して送信するための情報を取得しています。

送信元アカウントでGmailを選んだなら.Range(strSendAccount & “smtpserver”).Valueの中身はRange(“Gmail_smtpserverport)”.Value

Yahooを選んだならRange(“Yahoo_smtpserverport”).Valueのようになります。

メール情報を取得

ここでは改行コードLFをCRLFに置換しています。

なぜかと言うとYahooで送信する場合は、エラーになるためです。

改行コードがCRとLFではなく、LFだけの行があるために、エラー
メールが送信できるようになった　より

改行があっても動いて欲しいものですが、仕様なら仕方ありませんね…

メールに情報をセットする

ここではメールのオブジェクトに件名や宛先などをセットしています。

添付ファイルを貼り付ける

FileSearchメソッドを使って、添付ファイルのパスを取得しメールのオブジェクトに張り付ける処理を行っています。

FileSearchは後で説明を記載しています。

その後、添付ファイルがない場合、メールは送らず次のシートを処理するようになっています。

※発注連絡という想定なので、発注書の添付ファイルがなければ連絡はする必要がないから送らないという考え方です。

メール添付ファイル取得 FileSearchメソッド

送信対象のファイル([yyyymmdd_シート名.拡張子]フォーマット)のファイル名を検索し配列に格納する処理です。

検索する場所は「..\VBA Outlookメール送信\添付ファイル」以下のみです。

他の場所に配置したファイルは添付ファイルとして検索されません。

コード

'==============================
'目的　　　 ：添付ファイルを検索し、ファイルのパスを取得する
'引数　　　 ：SearchText　　　　　　　　　検索するファイル名
'　　　　　　　：SearchPath　　　　　　　　 検索するパス
'戻り値　　　: ファイルパスの配列
'==============================
Private Function FileSearch(SearchText As String, SearchPath As String) As String()

    Dim FileName As String
    Dim Cnt As Long
    Dim Files() As String                         'ファイルパス格納用配列
    
    '中身をダミー値でセット
    ReDim Files(0)
    Files(0) = "dummy"
    
    'ファイルを検索
    FileName = Dir(SearchPath & "\" & SearchText)
    
    Do While FileName <> ""
        
        'ファイル名を返却用配列に格納
        ReDim Preserve Files(Cnt) As String
        Files(Cnt) = SearchPath & FileName
        Cnt = Cnt + 1
        
        ' 次のファイル名を参照
        FileName = Dir()
    Loop

    FileSearch = Files()
　　
End Function

解説

引数として受け取った検索フォルダ(SearchPath)を検索条件(SearchText)を元に検索します。

見つかったファイルのパスを配列に格納していきます。

検索条件に一致するファイルが見つからなくなったら配列を呼び出し元に返しています。

エラー表示 ShowErrMsgメソッド

エラーをキャッチするメソッドです。

予測できないエラーがあればここでキャッチしてエラーがあったことをメッセージ表示します。

コード

'==============================
'目的　　　 ：エラーの場合、エラーメッセージを表示する
'==============================
Public Sub ShowErrMsg()

　　'エラーがあればメッセージ表示
　　If Err.Number <> 0 Then
　　　　MsgBox "想定外のエラーが発生しました。" & vbCrLf + _
　　　　　　　　"エラー番号：" + CStr(Err.Number) & vbCrLf + _
　　　　　　　　"エラーの種類：" + Err.Description
　　End If

End Sub

解説

エラーがあった場合、そのエラー番号とエラー内容をメッセージ表示します。

送信結果

送信結果はこんなメールです。

https://loosecarrot.com/2022/01/23/5431/

https://loosecarrot.com/2018/12/09/1775/

自動でOutlookのメール送信するツールを作ってみました。

実際に作ったファイルはこちらから無料でダウンロードできます。

メール(Outlook)用の参照設定

ファイル用もフォルダ用もダイアログを開くに参照設定を必要です。

手順はコードエディターから「ツール(T)」→「参照設定(R)」と移動します。

その後、Microsoft Outlook 16.0 Object Libraryにチェックを付けておいてください。

16.0はバージョンに寄ります。

メール(Outlook)送信処理のコード

処理の流れは以下の順です。

コード

'==============================
'目的　　　 ：シート分のメールを送信する
'==============================
Sub SendMail_Click()
　　
　　Dim MyDir As String　　　　　　　　　　　　　　　　　'自分のファイルが存在するディレクトリ格納用
　　Dim i As Long　　　　　　　　　　　　　　　　　　　　　'ループ用変数
　　Dim j As Long　　　　　　　　　　　　　　　　　　　　　'ループ用変数
　　Dim SheetCnt As Long　　　　　　　　　　　　　　　　　'シート数を格納する変数
　　Dim SheetName As String　　　　　　　　　　　　　　　'シート名を格納する変数
　　
　　Dim ToAddress As String　　　　　　　　　　　　　　　'Toアドレス用の変数
　　Dim CcAddress As String　　　　　　　　　　　　　　　'Ccアドレス用の変数
　　Dim BccAddress As String　　　　　　　　　　　　　　'Bccアドレス用の変数
　　Dim Subject As String　　　　　　　　　　　　　　　　'件名用の変数
　　Dim MailBody As String　　　　　　　　　　　　　　　'メール本文用の変数
　　Dim Signature As String　　　　　　　　　　　　　　'署名用の変数
　　Dim OutlookObj As Outlook.Application　　　　　　'Outlookで使用するオブジェクト生成
　　Dim MailItemObj As Outlook.MailItem　　　　　　　'Outlookで使用するオブジェクト生成
　　Dim Attachments As Outlook.Attachments　　　　 'Outlookで使用するオブジェクト生成
　　Dim AttachmentPath As String　　　　　　　　　　　'添付ファイルの格納用変数
　　Dim AttachmentsPath() As String　　　　　　　　　'添付ファイルの格納配列
　　
　　
　　'自分の配置されているパスを取得
　　MyDir = ThisWorkbook.Path
　　
　　'シート件数を取得
　　SheetCnt = ThisWorkbook.Sheets.Count

　　'-------シート枚数分ループ(2枚目のシートから)-------
　　For i = 2 To SheetCnt
　　
　　　　'シート名を取得
　　　　SheetName = Sheets(i).Name

　　　　'-------メール情報を取得-------
　　　　ToAddress = Sheets(i).Range("Mail_TO").Value　　　　　　　　　'To宛先
　　　　CcAddress = Sheets(i).Range("Mail_CC").Value　　　　　　　　　'cc宛先
　　　　BccAddress = Sheets(i).Range("Mail_BCC").Value　　　　　　　　'bcc宛先
　　　　Subject = "【" & SheetName & "様】" & _
　　　　　　　　　　　　Sheets(i).Range("Mail_Subject").Value　　　　　'件名
　　　　MailBody = Sheets(i).Range("Mail_Body").Value　　　　　　　　'メール本文
　　　　Signature = Sheets(i).Range("Mail_Signature").Value　　　　 '署名
　　
　　　　'-------メールに情報をセットする-------
　　　　Set OutlookObj = CreateObject("Outlook.Application")
　　　　Set MailItemObj = OutlookObj.CreateItem(olMailItem)
　　　　MailItemObj.BodyFormat = 2　　　　　　　　　　　　　　　　　　　　　　　'HTML形式に変更
　　　　MailItemObj.To = ToAddress　　　　　　　　　　　　　　　　　　　　　　　'to宛先をセット
　　　　MailItemObj.CC = CcAddress　　　　　　　　　　　　　　　　　　　　　　　'cc宛先をセット
　　　　MailItemObj.BCC = BccAddress　　　　　　　　　　　　　　　　　　　　　　'bcc宛先をセット
　　　　MailItemObj.Subject = Subject　　　　　　　　　　　　　　　　　　　　　 '件名をセット
　　　　MailItemObj.Body = MailBody & vbCrLf & vbCrLf & Signature　　　 '本文+署名
　　　　
　　　　'-------添付ファイルを貼り付ける-------'
　　　　'オブジェクト生成
　　　　Set Attachments = MailItemObj.Attachments
　　　　
　　　　'[yyyymmdd_会社名].[拡張子]を検索し、取得する'
　　　　AttachmentsPath() = FileSearch(Format(Now(), "yyyymmdd") & "_" & SheetName & ".*", MyDir & "\添付ファイル\")　'"
　　　　

        If AttachmentsPath(0) = "dummy" Then
            '添付ファイルが一件もなければ、次のメール処理へ行く(発注連絡が不要なため)
            GoTo nextDO
        Else
            '添付ファイルが一件でもあれば添付
    
                'ファイル件数分ループして添付する
                For j = 0 To UBound(AttachmentsPath())
                    'ファイルパスを取得
                    AttachmentPath = AttachmentsPath(j)
    
                    'ファイルを添付
                    Attachments.Add AttachmentPath
    
                Next j
    
        End If
　　
　　　　'-------メールを送信する-------
　　　　MailItemObj.Send
　　
　　　　'-------Outlookを閉じる(オブジェクトを解放)---
　　　　Set OutlookObj = Nothing
　　　　Set MailItemObj = Nothing
　　　　
nextDO:
　　Next i
　　
　　MsgBox "送信が完了しました。"
　　
End Sub

解説

メール情報を取得

重要なポイントは名前の定義をしていることです。

宛先Toであれば「Mail_TO」のようにすべてのシートに設定がしてあります。

各シートに全て同じ名前を付けることで同じ処理をシートごとに繰り返せるようにしています。

そして各シートの値は変数に格納していく処理になっています。

※シートをコピーして増やしても名前の定義は引き継がれるため処理に問題はありません。

メールに情報をセットする

Outlookのオブジェクトを生成していま。

その後、それぞれToや本文の情報をOutlookのオブジェクトにセットしていっています。

添付ファイルを貼り付ける

まず添付ファイルのオブジェクト生成しています。

FileSearchメソッドを使って、添付ファイルのパスを取得しメールのオブジェクトに張り付ける処理を行っています。

FileSearchは後で説明を記載しています。

その後、添付ファイルがない場合、メールは送らず次のシートを処理するようになっています。

※発注連絡という想定なので、発注書の添付ファイルがなければ連絡はする必要がないから送らないという考え方です。

メールを送信する・Outlookを閉じる

最後にメールを送信します。

その後、作成したオブジェクトは破棄して次のメール作成・送信処理へ行きます。

メール添付ファイル取得 FileSearchメソッド

送信対象のファイル([yyyymmdd_シート名.拡張子]フォーマット)のファイル名を検索し配列に格納する処理です。

検索する場所は「..\VBA Outlookメール送信\添付ファイル」以下のみです。

他の場所に配置したファイルは添付ファイルとして検索されません。

コード

'==============================
'目的　　　 ：添付ファイルを検索し、ファイルのパスを取得する
'引数　　　 ：SearchText　　　　　　　　　検索するファイル名
'　　　　　　：SearchPath　　　　　　　　 検索するパス
'戻り値　　　: ファイルパスの配列
'==============================
Private Function FileSearch(SearchText As String, SearchPath As String) As String()
    Dim FileName As String
    Dim Cnt As Long
    Dim Files() As String                         'ファイルパス格納用配列
    
    '中身をダミー値でセット
    ReDim Files(0)
    Files(0) = "dummy"
    
    'ファイルを検索
    FileName = Dir(SearchPath & "\" & SearchText)
    
    Do While FileName <> ""
        
        'ファイル名を返却用配列に格納
        ReDim Preserve Files(Cnt) As String
        Files(Cnt) = SearchPath & FileName
        Cnt = Cnt + 1
        
        ' 次のファイル名を参照
        FileName = Dir()
    Loop

　　FileSearch = Files()
　　
End Function

解説

引数として受け取った検索フォルダ(SearchPath)を検索条件(SearchText)を元に検索します。

見つかったファイルのパスを配列に格納していきます。

検索条件に一致するファイルが見つからなくなったら配列を呼び出し元に返しています。

送信結果

送信結果はこんなメールです。

メール送信と言いつつガチガチに業務を想定したツールになってしまっています…

使えそうなところをアレンジしていってみてください。

https://loosecarrot.com/2019/02/11/3167/

https://loosecarrot.com/2018/12/09/1775/

https://loosecarrot.com/2019/01/28/3054/

https://loosecarrot.com/2018/12/02/1576/