12,665
回編集
差分
ナビゲーションに移動
検索に移動
<<blockquote>>メタ情報が取得しかたがわからない(そもそもできる？)。。。<</blockquote>>
編集の要約なし
==Visio ER図の情報を取得する==
[[Visio][VBA]]
*http://msdn.microsoft.com/ja-jp/library/cc377254.aspx
VisioのER図をCSV出力するマクロ
{{ref MakeVisioEntityList.zip}}
'ログ出力の抑制
col.DataType = splitedRow(1)
If Trim(col.Name) <> <> "" Then
Call ent.AddColumn(col)
End If
ret(1) = ""
If Trim(row) <> <> "" Then
tmp = Split(row, COL_SEP_CHAR)
If UBound(tmp) > > 0 Then
ret(0) = Trim(tmp(0))
ret(1) = Trim(tmp(1))
For i = LBound(keywords) To UBound(keywords)
ret = InStr(sheetName, keywords(i)) > > 0
If ret Then
Exit For
© 2006 矢木浩人
