Правильный код, как показано ниже: Этот код работает с vb 2019, но не работает с vb 2013
If FolderBrowserDialog1.ShowDialog =
System.Windows.Forms.DialogResult.OK Then
Dim Directory = FolderBrowserDialog1.SelectedPath
Dim Files() As System.IO.FileInfo
Dim DirInfo As New System.IO.DirectoryInfo(Directory)
Files = DirInfo.GetFiles("*", IO.SearchOption.AllDirectories)
For Each File In Files
Dim xl As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim Lrow As Integer
Dim Frow As Integer
Dim Crow As Integer
wb = xl.Workbooks.Open(File.FullName)
For Each ws In wb.Sheets
Dim strFileName As String = Microsoft.VisualBasic.Left(File.Name,
(InStrRev(File.Name, ".", -1, vbTextCompare) - 1))
If ws.Name = "SCHEDULE" Then
Lrow = ws.Range("A65536").End(Excel.XlDirection.xlUp).Row
Frow = ws.Range("A:A").Find(What:="Member", After:=ws.Range("A1")).Row
Crow = Lrow - Frow
ws.Range("S1", "S" & Crow).Offset(RowNo, 0).Value2 = strFileName
End If
Next
wb.Close(SaveChanges:=vbTrue)
Next
End If
Это правильный код. Спасибо, С уважением, Мохеб Лабиб