автоматический импорт txt файлов в exel

[andreton]

Приветствую всех знающих!
Помогите, пожалуйста в таком вопросе...
Есть много тхт файлов. У всех различное название, но в пределах text_text
Внутри каждого файла приблизительно такой текст:


Номера:
Керамическое покрытие
Сплит кондиционер
Телевизор, телефон
Мини-бар (пустой)
Ванна / душ, фен
Сейф (платно, на ресепшене)
Балкон или терасса
Уборка комнаты - каждый день
Смена постельного белья - каждые 3 дня
Смена полотенец - каждые 2 дня

На территории отеля:
2 ресторана
3 бара
Открытый бассейн
WI-FI (бесплатно)
Парикмахерская
Прокат автомобилей

Для детей:
Бесплатно:
Детский бассейн
Детские кресла в ресторане
Детские кроватки




Можно ли так сделать, чтобы текст, разделенный отступами, помещался в ячейки одна за одной, и каждый из файлов таким образом импортировался в одну строку? каждая строка - информация из одного файла тхт и т.д.
Если это возможно, подскажите, плиз, как это зделать. (в написании различных макросов не силен)

[doober]

Можно и быстро.Надо текстовик -1,файл xls-1,в котором показано как должно быть

[andreton]

спасибо за реакцию, файлы в примере

[Hugo121]

Сделал скрипт vbs - импортирует все текстовые файлы из папки c:\Temp\andreton\primer\
Что-то приложить не получается, даю код - сохраните как *.vbs:

Option Explicit

Dim FSO, objTextFile, objExcel
Dim strArr,TheFolder, TheFiles, AFile
Dim tempstr
Dim x, y, i

Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1

Set objExcel = CreateObject("Excel.Application"):  objExcel.Workbooks.Add '# открываем новую книгу Excel
'objExcel.Visible = True 'можно показать сразу, будет медленнее
x=1
y=1

Set TheFolder = FSO.GetFolder("c:\Temp\andreton\primer\") 'Каталог с файлами
Set TheFiles = TheFolder.Files
For Each AFile In TheFiles
    If UCase(FSO.GetExtensionName(AFile.Path)) = "TXT" Then
    Set objTextFile = FSO.OpenTextFile(AFile, ForReading)

	strArr = Split(objTextFile.ReadAll, vbCrLf) 'массив строк текста целиком
	objTextFile.Close 'закрываем текстовый файл

	tempstr=""

	for i = lbound(strArr) to ubound(strArr)
		if strArr(i)="" then  objExcel.Cells(x, y).Value=tempstr:  y=y+1:  tempstr="" 'выгружаем на лист
		if tempstr="" then 
			tempstr = strArr(i)
		else
			tempstr = tempstr & vbnewline &  strArr(i)
		end if
	next

End If
Erase strArr
x=x+1
y=1
Next

objExcel.Visible = True 'показываем результат

Можно ускорить, если собирать результат в массив и затем в конце работы весь массив вывалить на лист, но пока так.
Можно этот код использовать как макрос Экселя, только тогда можно переменным типы задать, и тогда не надо создавать новый экземпляр Экселя, а грузить в активный лист.

[doober]

Текстовые файлы поместите в папку с этим файлом

[andreton]

Огромнейшее спасибо! Все работает через макрос!