0
我有一个带有外部数据的旧VISIO文件。数据的源文件不再存在。 我试图从visio复制和粘贴数据,以取得成功。如何将visio外部数据导出为excel
然后我试图通过VBA访问数据,我不明白,结果我得到: (行的量是当期的,但该数据是时好时不)
Sub test()
Dim i, j As Integer
Dim r As Variant
Dim a() As Variant
Dim rowSTR As String
Dim vsoDataRecordset As Visio.DataRecordset
For i = 1 To Visio.ActiveDocument.DataRecordsets.Count
rowSTR = ""
a = Visio.ActiveDocument.DataRecordsets(i).GetRowData(1)
For j = 0 To UBound(a) - 1
rowSTR = rowSTR & vbTab & a(j)
Next j
Debug.Print i & ")" & rowSTR
Next i
End Sub
你知道如何从visio获取这些数据以达到excel吗?
感谢 阿萨夫
更新:增加了源和代码输出:我复查和不知道哪里的数据来自...
你对数据的含义是否正确,有时不对?有时候数据有什么不对? –
添加了屏幕截图 - 我相信我的代码引用了错误的地方 - 只有偶数行才有数据,它提醒了原创,但没有更多。 –