[LehaMechanic]

Создайте четвертый столбец, заполненный по формуле

D1=СЦЕПИТЬ(B1;C1)
D2=СЦЕПИТЬ(B2;C2)
и т.д.

Сохраняйте информацию из двух столбцов А и D.

[Iska]

Следующий код сохранит вышеуказанным образом три первых использованных столбца с первого листа рабочей книги:

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

Код:

Option Explicit

Dim strDocument
Dim strTextFile

Dim objFSO
Dim objTS

Dim objExcel
Dim objWorkbook
Dim objRow


strDocument = "E:\Песочница\0218\Книга1.xls"
strTextFile = "E:\Песочница\0218\Книга1.txt"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strDocument) Then
	Set objTS = objFSO.CreateTextFile(strTextFile, True)
	
	With WScript.CreateObject("Excel.Application")
		With .Workbooks.Open(strDocument)
			With .Worksheets.Item(1)
				For Each objRow In .UsedRange.Rows
					objTS.WriteLine objRow.Cells(1, 1).Value & " " & objRow.Cells(1, 2).Value & objRow.Cells(1, 3).Value
				Next
			End With
			
			.Close
		End With
		
		.Quit
	End With
	
	objTS.Close
	
	Set objTS = Nothing
Else
	WScript.Echo "File [" & strDocument & "] not found"
End If

Set objFSO = Nothing

WScript.Quit 0

[vlad20]

Iska, большое спасибо
Leha Ares, ваше решение - стандартный способ, который не пришел мне на ум, спасибо