[Iska]

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

Код:

Option Explicit

Const xlDelimited = 1

Dim objFSO
Dim strFile
Dim objTS


If WScript.Arguments.Count > 0 Then
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	With WScript.CreateObject("Excel.Application")
		With .Workbooks.Add
			For Each strFile In WScript.Arguments
				If objFSO.FileExists(strFile) Then
					Set objTS = objFSO.OpenTextFile(strFile)
					
					With .Worksheets.Add()
						.Name = Trim(objTS.ReadLine())
						.Cells(1, 1).Value = Trim(objTS.ReadLine())
						
						Do Until objTS.AtEndOfStream
							.Cells(.UsedRange.Rows.Count + 1, 1).Value = Trim(objTS.ReadLine())
						Loop
						
						objTS.Close
						
						With .UsedRange
							.TextToColumns , xlDelimited, , , , True
							.EntireColumn.AutoFit
						End With
					End With
					
					Set objTS = Nothing
				Else
					WScript.Echo "Can't find source file [" & strFile & "]."
				End If
			Next
		End With
		
		.Visible = True
	End With
	
	Set objFSO   = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo " & WScript.ScriptName & " <Source file1> <Source file2> ... <Source fileN>"
End If

WScript.Quit 0

Просто перетащите на скрипт все потребные файлы. Если не хватит длины командной строки — например, длинные пути — будем получать перечень исходных файлов иначе.