主题：文件列表问题

For Each file As String In FileSys.GetFiles(path)
Dim txt1 As WinForm.TextBox = Forms("窗口1").Controls("TextBox3")
txt1.Text &= vbcrlf & file & vbcrlf
    Dim Book1 As New XLS.Book(file)
    Dim Sheet1 = Book1.Sheets(0)

    For i As Integer = 0 To Sheet1.Rows.Count-1
        For j As Integer = 0 To Sheet1.Cols.Count -1
            If Sheet1(i, j).Text > ""  AndAlso dic.ContainsKey(Sheet1(i, j).Text) Then
                'Output.Show(Sheet1(i, j).Text & vbcrlf & dic(Sheet1(i, j).Text))
                Sheet1(i, j).value = Sheet1(i, j).Text & "|" & dic(Sheet1(i, j).Text)
               
            End If
        Next
    Next

    '//保存
   
    Book1.Save(file)
Next