差分

==[[Visio ER図の情報を取得する]]==

VisioのER図をCSV出力するマクロ[[Visio]]のER図をCSV出力するマクロ{{ref MakeVisioEntityListMake[[Visio]]EntityList.zip}}

'除外するVisioシート名除外する[[Visio]]シート名(一部一致をカンマ区切り) Private Const EXCEPT_SHEET_KEYWORD EXCEPT_SHEET_KEYWO[[R]]D As String = "背景"

Private Const MASTER_SHAPE_ENTITY_NAME_U MASTE[[R]]_SHAPE_ENTITY_NAME_U As String = "Entity"

'Visioドキュメントのページ単位で処理[[Visio]]ドキュメントのページ単位で処理

Call entityDict.RemoveAll[[R]]emoveAll

Private Sub ParsePage(ByRef By[[R]]ef docPage As Page, ByRef By[[R]]ef entityDict As Object)

Case InStr(1, docShapeNameU, MASTER_SHAPE_ENTITY_NAME_UMASTE[[R]]_SHAPE_ENTITY_NAME_U) = 1

Private Sub ProcEntity(ByRef By[[R]]ef entityShape As Shape, ByRef By[[R]]ef entityDict As Object)

Dim rareRowrare[[R]]ow() As String Dim splitedRowsplited[[R]]ow() As String

rareRow rare[[R]]ow = Split(partsShape.Text, vbLf) For j = LBound(rareRowrare[[R]]ow) To UBound(rareRowrare[[R]]ow) splitedRow splited[[R]]ow = SplitRowSplit[[R]]ow(rareRowrare[[R]]ow(j))

col.Name = splitedRowsplited[[R]]ow(0) col.DataType = splitedRowsplited[[R]]ow(1)

Private Function SplitRowSplit[[R]]ow(ByRef By[[R]]ef row As String) As String() Const COL_SEP_CHAR COL_SEP_CHA[[R]] As String = vbTab

tmp = Split(row, COL_SEP_CHARCOL_SEP_CHA[[R]])

SplitRow Split[[R]]ow = ret

keywords = Split(EXCEPT_SHEET_KEYWORDEXCEPT_SHEET_KEYWO[[R]]D, ",")

Public Property Let Columns(ByRef By[[R]]ef newColumns() As Column)

Public Sub AddColumn(ByRef By[[R]]ef col As Column)

ReDim [[R]]eDim Preserve mColumns(mColumnCnt)