[megaloman]

Код:

fXLS = "28.03.2015.xls"              ' Имя Excel-файла в тек папке

NBlok1 = "A5"           ' Ячейка с первым номером блока
ID1 = "D5"              ' Ячейка с первым ID
    
NBlank = 20             ' Max число строк с пустыми ID
        
iBlank = 0
i = 0
      
Set FSO = CreateObject("Scripting.FileSystemObject")

PfXLS=Replace(WScript.ScriptFullName,WScript.ScriptName,fXLS)

Set XL = CreateObject("Excel.Application")
XL.Visible = False 				'True
XL.Workbooks.Open PfXLS
    
Do While iBlank <= NBlank
    V1 = (XL.Range(NBlok1).Offset(i, 0))
    V2 = (XL.Range(ID1).Offset(i, 0))
        
    If V1 = 0 And V2 = 0 Then
        iBlank = iBlank + 1
    Else
        If V1 <> 0 Then
            If i <> 0 Then
                NFile.Close                                       ' Закрываем файл
            End If
            Set NFile = FSO.OpenTextFile(Right(CStr(V1 + 1000000000), 2) + "-РЕК.air", 2, True) '  Открываем текстовый файл для перезаписи. Если файла нет, будет создан
            NFile.WriteLine "comment 0 " + Right(CStr(V1 + 1000000000), 2)
        End If
        NFile.WriteLine "movie 0:00:00.00 R:" + CStr(V2) + ".avi"
        iBlank = 0
    End If
    i = i + 1
Loop
    
NFile.Close                                       ' Закрываем файл
XL.Quit