'Beispiel: VB .Net - Excel - Werte in bestimmte Tabelle der Mappe eintragen ' Option Strict On Option Explicit On Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim MyPath As String = Application.StartupPath If MyPath.EndsWith("\") = False Then MyPath &= "\" MyPath &= "test.xls" ExcelSetValueToTable(MyPath, "Hallo", "A5", "www.visual-basic5.de") End Sub Private Sub ExcelSetValueToTable(ByVal Filename As String, ByVal WorksheetName As String, _ ByVal Range As String, ByVal Value As String) If File.Exists(Filename) Then Dim xlApplication As New Excel.Application Dim xlWorkbook As Excel.Workbook = xlApplication.Workbooks.Open(Filename) xlApplication.Visible = True Try Dim xlWorksheet As Excel.Worksheet = _ DirectCast(xlWorkbook.Worksheets(WorksheetName), Excel.Worksheet) xlWorksheet.Range(Range).Value = Value Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") End Try End If End Sub End Class