主题：老师帮忙看一下代码

 如下代码：我想实现把循环里的sheet(i,j).text（每个EXCEL文件及每个EXCEL中的单元格内容）输出到一个WORD文件中，应该如何改。好像我标红部分的代码放的位置及代码功能都不太对。

For Each file As String In FileSys.GetFiles(path)
    Dim Book As New XLS.Book(file)
    For k As Integer = 0 To Book.Sheets.Count-1 '//多个sheet的处理
        Dim Sheet = Book.Sheets(k)

  For i As Integer = 0 To Sheet.Rows.Count-1
                For j As Integer = 0 To Sheet.Cols.Count -1
                   
                    If sheet(i,j).text > "" Then
                       
                        Dim wordApp As New MSWord.Application
                        wordapp.Visible = True
                        Dim fileName = "d:\test.docx"
                        Dim doc As Object = wordapp.Documents.Open(fileName)
                        wordapp.ActiveWindow.Selection.TypeText(sheet(i,j).Text)

                    End If
                Next
 Next

Next

请问你有什么问题?

刚刚没编辑好需求就发出来了，现在好了。麻烦老师给看一下

BIN老师？