{quote}{login=nerv}{date=22.05.2012 11:00}{thema=}{post}5 баллов за имена переменных{/post}{/quote}  
Мне особенно понравилась переменная iColl    
Николай, подскажите, что означает буква i в названии этой переменной?  
 
По теме:  
код содержит несколько ошибок.  
 
Правильно будет примерно так:  
(если вы хотите во всех файлах *.znl в заданной папке, удалить двойные кавычки)  
 
Sub Pravka()  
   Dim iColl As Collection  
   Dim ПутьКПапке As String, МаскаПоиска As String, ГлубинаПоиска As Integer, i As Integer  
   Dim ПутьКФайлу As String  
   Dim objTxtF, sTxt, FSO  
 
 
   ПутьКПапке = ThisWorkbook.Path & "\Объедененные полигоны\"  
   МаскаПоиска = ".znl"  
 
   Set iColl = FilenamesCollection(ПутьКПапке, МаскаПоиска, 1)  
   Set FSO = CreateObject("scripting.filesystemobject")  
 
   For i = 1 To iColl.Count  
       ПутьКФайлу = iColl(i)  
       sTxt = FSO.OpenTextFile(ПутьКФайлу, 1, True).ReadAll ' читаем текст  
       sTxt = Replace(sTxt, Chr(34), "") ' изменяем текст  
       FSO.CreateTextFile(ПутьКФайлу, True).Write sTxt ' записываем обратно  
   Next i  
End Sub  
 
 
Изучайте это:  
http://excelvba.ru/code/txt