1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
' Verweis aus Microsoft.Office.Interop.Excel in der Entwicklungsumgebung setzten
' Heiko Franke Diplm. Wirtschaftsinformatiker / FH
Public Class Form1
Function excel()
Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
Dim txt As String
Try
Excel1.Workbooks.Open("C:\datei.xls")
'Excel1.Visible = True ....wers braucht ?
txt = Excel1.Range("A2").Value()
MessageBox.Show(txt)
Catch ex As Exception
MessageBox.Show("Datei nicht vorhanden.")
Finally
Excel1.Application.Quit()
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
excel()
End Sub
End Class
|