rowen::求助

hqhejian

上次您给我的那个visio+excel的例子,我不能打开,,我是visio2002,打不开您那个版本,请问有低版本的么,谢谢了,好人!! he_jian@octiga.com

Rowen

在你的 VISIO 文档之VBA中键入:
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
Dim wb As Object, rng As Object
Dim strFileName As String
' 确保在同一目录中有 book1.xls, 你可以改成你需要的名字
strFileName = ThisDocument.Path & "book1.xls"
MsgBox strFileName

ComboBox1.Clear

' 载入"book1.xls"
Set wb = GetObject(strFileName)

' 加载该工作薄第一工作表"A1:A10"的值到列表框中
For Each rng In wb.worksheets(1).Range("A1:A10")
ComboBox1.AddItem rng.Text
Next

ComboBox1.ListIndex = 0 ' 列出第一项

wb.Close
Set wb = Nothing
End Sub