Question: I have an old VISIO file with external data on it. The source file of the data does not exist anymore.
I have tried to copy and paste the data from visio to excel with no success.

Then I tried to access the data through VBA and I don't understand the results I get:
(The amount of rows is currect, yet the data is sometimes good and sometimes not)

```
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

```

Do you know how to get this data from visio to excel?

Thanks
Asaf

Update: Added the source and code output: I rechecked and have no clue where the data comes from...
![enter image description here](https://i.stack.imgur.com/utVGu.png)

![enter image description here](https://i.stack.imgur.com/wrbP3.png)

Answer: 
works best Alt+R then T then 1.
The hot key to run something is Ctrl-F11.