Блог

Я написал код, который просматривает папку и копирует все файлы, заканчивающиеся на DAT, в листы.

После этого я хочу проверить, соответствует ли дата, происходящая в Worksheets("Input").Range("X2")

совпадает с именем листа, затем я проверю наличие идентификаторов, встречающихся в Worksheets("Input").Range("c2") и совпадающих с тем же идентификатором в имени одного из листов с правильной датой. Чтобы начать с этой части, я начал с

 ' for the exact match
Dim mRange  As Range
Set mRange = ThisWorkbook.Worksheets("Input").Range("X2")
Set mRange = Range(dicRange, dicRange.End(xlDown))

Dim WS_Count As Integer
         Dim I As Integer

         ' Set WS_Count equal to the number of worksheets in the active
         ' workbook.
         WS_Count = ActiveWorkbook.Worksheets.Count

         ' Begin the loop.
        For Each direc In mRange
          For I = 1 To WS_Count
            If direc amp; "K1LTIOS1.DAT" = ActiveWorkbook.Worksheets(I).Nam Then
            ' Insert your code here.
            ' The following line shows how to reference a sheet within
            ' the loop by displaying the worksheet name in a dialog box.
                MsgBox ActiveWorkbook.Worksheets(I).Name
(what I want to do actually : copy the whole line from the sheet 
ddMMYYK1LOS1.DAT where the ID from Worksheets("Input").Range("c2")` occurs )
        End If
                 Next I
                Next
  

Но я получаю сообщение об ошибке в If direc amp; "K1LTIOS1.DAT" = ActiveWorkbook.Worksheets(I).Nam Then : ошибка времени выполнения ‘438’!

1) в чем причина этой ошибки?

2) вероятно, этот вид вложенных циклов не так эффективен !? Есть ли лучшая возможность?

В вашем коде нет никаких указаний на то, что direc это такое. Где вы DIM это делаете и как это затемняется? Но это ваша настоящая проблема:

 ActiveWorkbook.Worksheets(I).Nam 
  

Что такое .Nam свойство / метод?