INTEGRACIJA SA MICROSOFT EXCEL- OM
Visual Basic se može koristiti za prikaz ili korišćenje podataka i grafikona iz Microsoft Excel- a.
Primer 10.- Jednostavan program koji koristi tabelu iz Microsoft Excel-a :
Option Explicit
Dim RadnaSveska As Workbook
Private Sub Form_Load()
Set RadnaSveska = GetObject(App.Path & "\Primer.xls")
Dim Dani(1 To 7) As String
Dim Cene(1 To 7) As Integer
Dim i As Integer
For i = 1 To 7
Dani(i) = RadnaSveska.Worksheets(1).Range("A" & i + 1).Value
Cene(i) = RadnaSveska.Worksheets(1).Range("B" & i + 1).Value
List1.AddItem Dani(i) & " : " & Cene(i)
Next i
Set RadnaSveska = Nothing
End Sub
Izgled forme za primer 10:
Sledeći primer, koji se nadovezuje na prethodni, a koristi i grafikon iz Microsoft Excel-a, prikazuje način upotrebe OLE kontrole, koja se može koristiti za vezu sa različitim programskim alatima.
Primer 11.- Program koji koristi tabelu i grafikon iz Microsoft Excel-a:
Option Explicit
Dim RadnaSveska As Workbook
Private Sub Form_Load()
Form1.WindowState = 2
Set RadnaSveska = GetObject(App.Path & "\ExcellChart.xls")
Dim Dani(1 To 7) As String
Dim Cene(1 To 7) As Integer
Dim i As Integer
For i = 1 To 7
Dani(i) = RadnaSveska.Worksheets(1).Range("A" & i + 1).Value
Cene(i) = RadnaSveska.Worksheets(1).Range("B" & i + 1).Value
List1.AddItem Dani(i) & " : " & Cene(i)
Next i
Set RadnaSveska = Nothing
OLE1.CreateEmbed App.Path & "\ExcellChart.xls"
End Sub
Izgled forme za primer 11: