D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\MainForm.cs 1 /* */ Excel や Word とやりとりする ~9,20 仕様 Excel

Size: px

Start display at page:

Download "D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\MainForm.cs 1 /* */ Excel や Word とやりとりする ~9,20 仕様 Excel"

たみえめいこ
4 years ago
Views:

1 D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\MainForm.cs 1 /* */ Excel や Word とやりとりする ~9,20 仕様 Excel の場合は処理メニュー選択用の新しいフォームを開きこの実行ファイルと同じフォルダにある test.xlsb を開き主に単独のセルやセル範囲に値を書き込む処理をいろいろテストする Word の場合は処理メニュー選択用の新しいフォームを開きこの実行ファイルと同じフォルダにある test.docx を開き文章を追加してフォントの大きさを変えたりセンタリングしたり表を追加し文字を書き込んだりする準備あらかじめ Visual Studio のメニューバーからプロジェクト参照の追加で出てくる参照マネージャーで COM タブから Microsoft Excel 15.0 Object Libraly と Microsoft Word 15.0 Object Library の 2 つにチェックを入れ OK をクリックして参照設定を有効にしておく (Office 2013 の場合 ) using Microsoft.Office.Interop.Excel; using Microsoft.Office.Interop.Word; using System; using System.IO; using System.Windows.Forms; namespace ExcelAndWord public partial class MainForm : Form public MainForm() InitializeComponent(); // Excel, Word のインスタンス作成 internal Microsoft.Office.Interop.Excel.Application appexcel = new Microsoft.Office.Interop.Excel.Application(); internal Microsoft.Office.Interop.Word.Application appword = new Microsoft.Office.Interop.Word.Application(); internal Workbook WB; internal Document DOC;

2 D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\MainForm.cs 2 private void MainForm_Load(object sender, EventArgs e) // Excel, Word をいったんは非表示にしておくこうするとタスクバーにも表示されない appexcel.visible = false; WB = appexcel.workbooks.open(path.getdirectoryname(system.windows.forms.application.executablepath) appword.visible = false; DOC = appword.documents.open(path.getdirectoryname(system.windows.forms.application.executablepath) private void MainForm_FormClosing(object sender, FormClosingEventArgs e) try WB.Close(false); appexcel.quit(); catch (Exception ex) MessageBox.Show(" ワークシートは既に閉じられています "); try DOC.Close(false); appword.quit(); catch (Exception ex) MessageBox.Show(" 文書は既に閉じられています "); private void btnexcel_click(object sender, EventArgs e) // Excel の操作メニューを開く var ExcelForm = new ControlExcel(); ExcelForm.mfm = this; // ExcelForm の変数 mfm にこのフォームへの参照を代入しておく ExcelForm.ShowDialog();

3 D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\MainForm.cs 3 private void btnword_click(object sender, EventArgs e) // Word の操作メニューを開く var WordForm = new ControlWord(); WordForm.mfm = this; // ExcelForm の変数 mfm にこのフォームへの参照を代入しておく WordForm.ShowDialog();

4 D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\ControlExcel.cs 1 /* */ Excel のコントロールをする using Microsoft.Office.Interop.Excel; using System; using System.Windows.Forms; namespace ExcelAndWord public partial class ControlExcel : Form public ControlExcel() InitializeComponent(); internal MainForm mfm; // このフォームが開いたときこの変数で呼んだ MainForm への参照を受け取る Worksheet WS; private void ControlExcel_Load(object sender, EventArgs e) chkdispexcel.checked = true; // 初期状態では Excel は見えるようにしておく private void chkdispexcel_checkedchanged(object sender, EventArgs e) mfm.appexcel.visible = chkdispexcel.checked? true : false; // チェックボックスが切り替わるたびに Excel の可視不可視を切り替える // セルに値を書き込むときの基本コード private void btna1_click(object sender, EventArgs e) WS = mfm.wb.worksheets.add(after: mfm.wb.worksheets[mfm.wb.worksheets.count]); // 名前つき引数を使うことにより余分なカンマを使わずに済む WS.Range["A1"].Value = " あいう ";

5 D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\ControlExcel.cs 2 // セル範囲 A1:J20 のセル 1 個 1 個にデータを書き込む ( 途中の処理経過を見せる )( 速度がもっとも遅い ) private void btna1j20cellscreenupdatingtrue_click(object sender, EventArgs e) WS = mfm.wb.worksheets.add(after: mfm.wb.worksheets[mfm.wb.worksheets.count]); for (var r = 1; r <= 20; r++) for (var c = 1; c <= 10; c++) WS.Cells[r, c].value = (r - 1) * 10 + c; // セル範囲 A1:J20 のセル 1 個 1 個にデータを書き込む ( 途中の処理経過を見せない )( 速度がやや改善 ) private void btna1j20cellscreenupdatingfalse_click(object sender, EventArgs e) WS = mfm.wb.worksheets.add(after: mfm.wb.worksheets[mfm.wb.worksheets.count]); mfm.appexcel.application.screenupdating = false; for (var r = 1; r <= 20; r++) for (var c = 1; c <= 10; c++) WS.Cells[r, c].value = (r - 1) * 10 + c; mfm.appexcel.application.screenupdating = true; // 結果的には上と同じになるがまずは書き込むべきデータを配列に用意しておきセル範囲 A1:J20 に一挙に書き込む ( もっとも速い ) private void btna1j20array_click(object sender, EventArgs e) WS = mfm.wb.worksheets.add(after: mfm.wb.worksheets[mfm.wb.worksheets.count]); var buf = new object[20, 10]; for (var r = 0; r < 20; r++) for (var c = 0; c < 10; c++) buf[r, c] = r * 10 + (c + 1); WS.Range["A1:J20"].Value = buf;

6 D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\ControlWord.cs 1 /* */ Word のコントロールをする using Microsoft.Office.Interop.Word; using System; using System.Windows.Forms; namespace ExcelAndWord public partial class ControlWord : Form public ControlWord() InitializeComponent(); internal MainForm mfm; // このフォームが開いたときこの変数で呼んだ MainForm への参照を受け取る private void ControlWord_Load(object sender, EventArgs e) chkdispword.checked = true; // 初期状態では Word は見えるようにしておく private void chkdispword_checkedchanged(object sender, EventArgs e) mfm.appword.visible = chkdispword.checked? true : false; // チェックボックスが切り替わるたびに Excel の可視不可視を切り替える private void btngo_click(object sender, EventArgs e) var mydoc = mfm.doc; // 文書の先頭にワード文書テストという文章を挿入し大きさを 20pt にしセンタリングする mydoc.range(0, 0).InsertAfter(" ワード文書テスト \n"); mydoc.paragraphs[1].range.font.size = 20f; mydoc.paragraphs[1].alignment = WdParagraphAlignment.wdAlignParagraphCenter;

7 D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\ControlWord.cs 2 // 1 行空けるその際フォントサイズを 10.5pt に戻し文字位置も両端ぞろえに戻す mydoc.content.insertparagraphafter(); mydoc.paragraphs[2].range.font.size = 10.5f; mydoc.paragraphs[2].alignment = WdParagraphAlignment.wdAlignParagraphJustify; // 3 4 型の表を挿入し適当に文字を入れる表の罫線は表を挿入しただけでは印刷時に非表示となる var tbl1 = mydoc.tables.add(mydoc.range(mydoc.content.storylength - 1), 3, 4); tbl1.cell(1, 1).Range.Text = "1 行 1 列目 "; tbl1.cell(2, 3).Range.Text = "2 行 3 列目 "; // 1 行空ける mydoc.content.insertparagraphafter(); // 2 3 の表を挿入する今度は表の罫線をフォーマットする var tbl2 = mydoc.tables.add(mydoc.range(mydoc.content.storylength - 1), 2, 3); tbl2.borders.outsidelinestyle = WdLineStyle.wdLineStyleSingle; tbl2.borders.outsidelinewidth = WdLineWidth.wdLineWidth150pt; tbl2.borders.insidelinestyle = WdLineStyle.wdLineStyleSingle; tbl2.borders.insidelinewidth = WdLineWidth.wdLineWidth025pt;

...Visual Studio 2015\Projects\MyHomePage 用サンプル \Database(Access2)\Database(Access2)\MainForm.cs 2 れを含めておかないと Database への更新がきかない oadp.fill(dtbl); dgvk

$...Visual Studio 2015\Projects\MyHomePage 用サンプル \Database(Access2)\Database(Access2)\MainForm.cs 2 れを含めておかないと Database への更新がきかない oadp.fill(dtbl); dgvk$ ...Visual Studio 2015\Projects\MyHomePage 用サンプル \Database(Access2)\Database(Access2)\MainForm.cs 1 /* Database(Access) とやりとりするその 2 DataGridView による編集 */ 2015.9.21~9.23 仕様 DataGridView 上でデータのさまざまな直接編集が行えるようにする