1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AppExcel As Object
Dim Wkbk As Object
Dim WkSht As Object
'Création de l'instance d'Excel en mémoire dans l'objet Excel
AppExcel = CreateObject("Excel.Application")
'Appelle la fonction qui ouvre un classeur dans Excel, au passage récupère le classeur ouvert pour s'y adresser plus facilement
'C'est la même chose qu'en VBA sous Excel directement
Wkbk = AppExcel.Workbooks.Add("D:\toto.xlsx")
'Récupère en mémoire la 1ère feuille pour s'y adresser plus facilement
WkSht = Wkbk.Sheets.Item(1)
'Affiche le contenu de la cellule A1
MsgBox(WkSht.Range("A1").value)
'On est content, ferme Excel
AppExcel.Quit()
End Sub |
