Visio2016のVBAを使って、Excel2016のシートに値を書き込む

VBAを書くのイヤだなーっていいつつ今回も書いていて解決方法がやっと見つかったのでメモ

xlsfromvisio.bas

Dim ExcelSheet as Object

Set ExcelSheet = CreateObject("Excel.Application")
ExcelSheet.Workbooks.Open [読みたいExcelのシート]

' シートに書き込む場合は
' ExcelSheet.ActiveSheet.Cells(row,col).Value = 1
' といった具合にExcelオブジェクトの接頭語が付く
' 今回は  ExcelSheet.
ExcelSheet.ActiveSheet.Cells(row,col).Value = "内容"

ExcelSheet.ActiveWorkbook.Save
ExcelSheet.Application.Quit

Set ExcelSheet = Nothing

今回はActiveSheetへの書き込みができればよかったので試してないですが、任意のシートへアクセスする場合はExcelでシートにアクセスする要領でSheet("名前")みたいにすればいいんじゃないでしょうか。