①名前空間「Microsoft.Office.Interop.Excel」を検索して選択選択
②xamlファイルをメモ帳で開いてアセンブリを追加する。
※InvokeCodeはOptionStrictがONの為、xamlファイルに直接アセンブリを追加しないと参照設定できない。
③フローの例
④InvokeCodeの引数設定
⑤InvokeCodeに書くコードの例
'Excelアプリケーションを起動します。 Dim xlApp As Application = New Application() '対象のExcelを開きます。ファイルパスは適宜変更してください。 Dim xlWorkbook As Workbook = xlApp.Workbooks.Open(strFilePath,,,,strPw) '対象のシートを開きます。このとき、DirectCast を使ってWorkbook(Object型)をWorkSheetへと明示的に変換します。シート名は適宜変更してください。 Dim xlSheet As Worksheet = DirectCast(xlWorkbook.Sheets(“Sheet1”), Worksheet) '書式を変えたいセルを指定します。 Dim xlCells As Range = xlSheet.Range(”B3:B52”) xlCells.NumberFormatLocal = "標準" 'ワークブックを保存します xlWorkbook.Save() 'ワークブックを閉じます xlWorkbook.Close() 'Excelアプリケーションを終了します xlApp.Quit()
⑥以下の様に書式が変更された