Поиск
... objFSO.FileExists("e:\tmp\parser\Книга4.csv") Then
Set objTextFile ... = objFSO.OpenTextFile("e:\tmp\parser\Книга4.csv", ForReading)
Set objFile ... = objFSO.CreateTextFile("e:\tmp\parser\test.csv")
objFile.Close
Set ... = objFSO.OpenTextFile("e:\tmp\parser\test.csv", ForWriting)
Do Until ... quot;e:\tmp\parser\test" & x & ".csv")
objFile. ... ("e:\tmp\parser\test" & x & ".csv", ForWriting) ...
Изменен: 18.05.2020
Читать сообщение на форуме или сайте.