Таблицу ворд в эксель - Visual Basic .NET

Формулировка задачи:

Всем доброго здоровичка!!! VB2008 Такая задачка: В папке есть ворд файлы. В каждом таблицы. Необходимо таблицы из вордфайлов перенести в эксель (файл ворд=файл эксель), каждую таблицу в отдельный лист. 1) я пытался хотя бы первую таблицу в эксель перенести, и циклами делал, и буфером пытался, не получается, ругается. 2) как определить, сколько таблиц в файле ворд, чтобы в цикле каждую записать в отдельный лист экселя??? 3) как пробежать по всем файлам в папке??? Помогите плиз!!! Спасибо заранее!!! Это буфером пытался:

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim s As String = OpenFileDialog1.FileName
            Dim word As New Word.Application
            Dim doc As Word.Document
            ' word.Visible = True
            doc = word.Documents.Open(s)
 
            Dim tbl As Word.Table = doc.Tables(1)
 
            Dim appExcel As Object
            appExcel = CreateObject("Excel.Application")
            appExcel.Workbooks.add()
            appExcel.visible = True
 
            Dim DataObject As New DataObject
            DataObject.SetData(tbl)
            Clipboard.Clear()
            Clipboard.SetDataObject(DataObject)
            appExcel.ActiveSheet.Paste()
 
        End If

ещё в цикле пытался:

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim s As String = OpenFileDialog1.FileName
            Dim word As New Word.Application
            Dim doc As Word.Document
            ' word.Visible = True
            doc = word.Documents.Open(s)
 
            Dim tbl As Word.Table = doc.Tables(1)
 
            Dim appExcel As Object
            appExcel = CreateObject("Excel.Application")
            appExcel.Workbooks.add()
            appExcel.visible = True
For i = 1 To tbl.Rows.Count
                For j = 1 To tbl.Columns.Count
                    With appExcel.activesheets
                        .cell(i, j) = tbl.Cell(i, j)
                    End With
                Next j
            Next i
 
        End If

Решение задачи: «Таблицу ворд в эксель»

textual
                            Листинг программы 
                        
                            msgbox(doc.Tables.count.tostring)