Imports System.Runtime.InteropServices
'Imports Microsoft.Office.Interop.Word
Imports System.IO
 
Public Class Form1
    Dim strFileName As String
    Dim txt As String
 
    Private Function word_doc(ByVal textmarke As String, ByVal textm_value As _
      String)
        Dim word As New Microsoft.Office.Interop.Word.Application
        Dim doc As Microsoft.Office.Interop.Word.Document
        Try
            word.Visible = (True) 'Word sehen zum Test?
            doc = word.Documents.Open("O:\test.dot")
            doc.Activate()
            If doc.Range.Bookmarks.Exists(textmarke) Then
                doc.Bookmarks().Item(textmarke).Range.Text = textm_value
            Else
                MessageBox.Show("Textmarke nicht vorhanden!")
            End If
            doc.SaveAs("O:\test.doc")
            doc.Close()
            MessageBox.Show("Datei erstellt")
        Catch ex As IOException
            MessageBox.Show("Datei am deklarierten Ort nicht vorhanden.")
        Finally
            word.Application.Quit()
        End Try
        Return (0)
    End Function
 
    Function excel(ByVal row As String)
        Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
        Try
            Excel1.Workbooks.Open("O:\test.xls")
            Excel1.Visible = True ' zum testen ganz hilfreich!
            txt = Excel1.Range(row).Value()
            ' MessageBox.Show(txt)
        Catch ex As IOException
            MessageBox.Show("Datei am deklarierten Ort nicht vorhanden.")
        Finally
            Excel1.Application.Quit()
        End Try
        Return (0)
    End Function
 
    Private Function GetDataTable(ByVal path As String, ByVal seperator As _
      Char) As DataTable
        Dim dt As New DataTable()
        Dim aFile As New FileStream(path, FileMode.Open)
 
        Using sr As New StreamReader(aFile, System.Text.Encoding.[Default])
            Dim strLine As String = sr.ReadLine()
            Dim strArray As String() = strLine.Split(seperator)
 
            For Each value As String In strArray
                dt.Columns.Add(value.Trim())
            Next
 
            Dim dr As DataRow = dt.NewRow()
 
            While sr.Peek() > -1
                strLine = sr.ReadLine()
                strArray = strLine.Split(seperator)
 
                dt.Rows.Add(strArray)
            End While
        End Using
        Return dt
    End Function
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' Funktionsaufrufe
        excel("A2")                      ' excel (Zelle)
        word_doc("Kundenname", txt)      ' dok( Textmarke, Inhalt)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        DataGridView1.DataSource = GetDataTable("O:\BSM\05-2010\241.csv", ",")
    End Sub
End Class