ComboBox в Microsoft Visio

With ComboBox1
        .AddItem "C:\file1.xls"
        .AddItem "C:\file2.xls"
    End With

Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
    With ComboBox1
        .AddItem "C:\123.xlsx"
        .AddItem "C:\345.xlsx"
    End With
End Sub

Dim XL As New Excel.Application
 
Private Sub Command1_Click()
XL.Range(A1).Value = Text1
End Sub
 
Private Sub Command2_Click()
Text3 = XL.Range(A2).Value
End Sub
 
Private Sub Form_Load()
 
'Çäåñü ïåðåìåííàÿ XL áåðåò íà ñåáÿ ðîëü ïðèëîæåíèÿ Excel.
XL.Workbooks.Open App.Path & "\Book.xlsx"
'Îòêðûâàåì èìåþùóþñÿ â íàëè÷èè ðàáî÷óþ êíèãó MyBook.xls
XL.Visible = True
 
Set XL = XL.ActiveWorkbook.Sheets.Application
' Ïåðåäàåì íàøåé ïåðåìåííîé óïðàâëåíèå îòêðûòîé ðàáî÷åé êíèãîé.
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
XL.ActiveWorkbook.Save
'XL.ActiveWorkbook.SaveAs "C:\MyNewWorkBook.xls"
XL.ActiveWorkbook.Close
End Sub

Sub WorkExcel()
Dim appExcel As Object
Dim wbk As Object
Dim wks As Object
Dim rn As Object
Dim r As Long, c As Long
Dim a
 
Set appExcel = CreateObject("Excel.Application") 'создаем
appExcel.Visible = True 'показываем
Set wbk = appExcel.workbooks.Open("d:\tmp.xls") 'открываем
Set wks = wbk.sheets.Add 'новый лист
Set rn = wks.Cells 'все ячейки нового листа
For r = 1 To 10 'заполняем
  For c = 1 To 8 'часть
    rn(r, c) = Int(Rnd * 100) 'ячеек
  Next c
Next r
 
a = appExcel.Range(rn(1, 1), rn(10, 8)) 'считываем их в массив
 
appExcel.Quit 'закрываем
Set rn = Nothing 'об-
Set wks = Nothing 'ну-
Set wbk = Nothing 'ля-
Set appExcel = Nothing 'ем!
 
End Sub