[Iska]

если делать, опять же, вручную - все работает. »

читать дальше »

Код:

Option Explicit

Const xlDelimited = 1
Const xlDoubleQuote = 1
Const xlNormal = &HFFFFEFD1


Dim strFileNameLog
Dim strFileNameSave

Dim objWorkbook


strFileNameLog  = "E:\Песочница\0196\0002.txt"
strFileNameSave = "E:\Песочница\0196\0002.xls"

With WScript.CreateObject("Excel.Application")
	.Workbooks.OpenText strFileNameLog, 1251, 1, xlDelimited, xlDoubleQuote, _
		False, False, True, False, False, False, False, _
		Array(Array(1, 4), Array(2, 1))
		
	For Each objWorkbook In .Workbooks
		If objWorkbook.FullName = strFileNameLog Then
			With objWorkbook
				.SaveAs strFileNameSave, xlNormal
				.Close
			End With
			
			Exit For
		End If
	Next
	
	.Quit
End With

WScript.Quit 0

— более ничего не менял. Есть один момент: в первом файле даты были в непонятном формате: символ «/» обычно используется в формате даты «MM/DD/YY», а там явно было «DD/MM/YY». Тем не менее, Excel верно их распознал без дополнительных указаний. А в каком формате даты в новом файле?