経緯
VBAをC#に移植していたのですが、VBAのコードが複雑かつ長文で萎えていました。
「なんなら、C＃でVBAを実行すればいいんじゃね？」と思い、
今回勉強しました。
「xlApp.Run(“マクロ名”);」を使用する
まず、プログラムの流れを説明します。
- ボタン1を押す
- ダイアログが出てきて、マクロを実行したいExcelファイルを選ぶ
- macroが実行されて保存される。
という流れです。下が中身です。
private void btn_1_Click(object sender, EventArgs e)
{
OpenFileDialog openFileDialog = new OpenFileDialog
{
Filter = "Excelファイル (*.xls;*.xlsx;*.xlsm)|*.xls;*.xlsx;*.xlsm|すべてのファイル (*.*)|*.*",
Title = "Excelファイルを選択してください"
};
if (openFileDialog.ShowDialog() != DialogResult.OK)
{
return;
}
string filePath = openFileDialog.FileName;
Excel.Application xlApp = new Excel.Application();
try
{
// ダイアログで選択されたワークブックを開く
Excel.Workbook xlWorkbook = xlApp.Workbooks.Open(filePath);
// マクロが保存されているワークブックを開く
Excel.Workbook macroWorkbook = xlApp.Workbooks.Open(@"C:\Users\mori\OneDrive \デスクトップ\macro.xlsm");
// 選択したExcelファイルをmacro.xlsmのワークシートとしてコピーする
Excel.Worksheet sourceWorksheet = xlWorkbook.Worksheets[1];
sourceWorksheet.Copy(After: macroWorkbook.Worksheets[macroWorkbook.Worksheets.Count]);
// コピーしたワークシートをアクティブにする
Excel.Worksheet copiedWorksheet = macroWorkbook.Worksheets[macroWorkbook.Worksheets.Count];
copiedWorksheet.Activate();
try
{
// マクロを実行
xlApp.Run("macro1");
// マクロの実行後、コピーしたワークシートを元のワークブックに戻す
copiedWorksheet.Copy(After: xlWorkbook.Worksheets[xlWorkbook.Worksheets.Count]);
Excel.Worksheet newWorksheet = xlWorkbook.Worksheets[xlWorkbook.Worksheets.Count];
// 元のワークシートを削除する
sourceWorksheet.Delete();
MessageBox.Show("マクロが正常に実行されました。", "情報", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
catch (Exception ex)
{
MessageBox.Show($"エラー: {ex.Message}", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
finally
{
// コピーしたワークシートを削除する
copiedWorksheet.Delete();
// マクロが保存されているワークブックを閉じる
macroWorkbook.Close(false);
// 元のワークブックを保存する
xlWorkbook.Save();
// ダイアログで選択されたワークブックを閉じる
xlWorkbook.Close(false);
// Excelアプリケーションを閉じる
xlApp.Quit();
// COMオブジェクトをリリース
Marshal.ReleaseComObject(copiedWorksheet);
Marshal.ReleaseComObject(sourceWorksheet);
Marshal.ReleaseComObject(macroWorkbook);
Marshal.ReleaseComObject(xlWorkbook);
Marshal.ReleaseComObject(xlApp);
}
}
catch (Exception ex)
{
MessageBox.Show("Error: " + ex.Message);
}
}
長々書いていますが、大事なのは2点で一つ目が
// マクロが保存されているワークブックを開く Excel.Workbook macroWorkbook = xlApp.Workbooks.Open(@"C:\Users\mori\OneDrive \デスクトップ\macro.xlsm");
の部分です。ここは、実行したいマクロが入っている.xlsmファイルのパスを()内に入れてください。
もう一つは、
// マクロを実行
xlApp.Run("macro1");
です。()内に実行したいマクロの名前を書いてください。(Subと書いて、名前を記入しているあれです。)
私はこんな感じでうまくいきました。
参考になれば、幸いです。
ここまで読んでいただきありがとうございました。
スクールの紹介
最後に宣伝をさせてください。
技術で未来を切り拓く―あなたの夢を現実にするプログラミングスクール
Webデザインやプログラミングで成功を目指している方々にとって、このオンラインスクールは夢を叶えるための最適な場所です。皆さんのキャリアを次の段階へと引き上げるためにデザインされたこのスクールは、一人ひとりの成功を心から願い、それを実現するための全てを提供しています。ここでは、このスクールの魅力について詳しくご紹介します。
◆圧倒的な費用対効果
このオンラインプログラミングスクールは、Web系教育において最高の費用対効果を提供しています。多くの高額スクールが存在する中で、ここではリーズナブルな価格で、質の高い教材、無限のサポート、そして実際に市場で求められるスキルの習得機会を提供しています。
◆現役フリーランスの講師陣
講師たちは全員、現役のフリーランスプロフェッショナルです。市場で活躍している講師から直接、最新のトレンドや実践的なスキルを学べるのは、このスクールの大きな特徴です。
◆柔軟な学習コース
固定のコースがなく、学習者の興味やニーズに応じて自由に学習できます。進路変更も自由で、最低契約期間は1ヶ月という柔軟性を持っています。自分のペースで、自分に合った学習が可能です。
◆無制限の添削とサポート
理解できるまで、そして満足するまで、無制限に添削と質問への回答を提供しています。進路相談や技術面以外の相談にも対応しており、全面的にサポートします。
◆社長から学べる貴重な機会
デザイナー、プログラマー、ディレクター、マーケターとして豊富な経験を持つ社長から直接学べるのも、このスクールの特別な点です。他のスクールでは得られない、貴重な機会です。
◆実績作りへの徹底的なサポート
就職、転職、フリーランスとして成功するためには、高品質な実績が必要です。生徒の作品レベルを最大限に高め、市場で求められる実績を作り上げることに力を入れています。案件を取得できない生徒には、直接案件を提供することもあります。
◆メッセージからの約束
高額な授業料を支払わせて結果を出せないスクールとは違い、物理的なサポートは提供できないかもしれませんが、継続的な努力を通じて最高の結果を出せるようにサポートします。一緒に不正なスクールを撲滅し、あなたの夢を実現しましょう。
このプログラミングスクールは、Webデザインやプログラミングでの成功を目指す方々に必要な全てを備えています。今こそ、このコミュニティに参加し、あなたのキャリアを加速させる時です。
詳しくはこちら↓
