Выгрузка из TXT в Excel

[Aksuz]

Добрый день.
Есть txt файл с разделителями, никак не получается его выгрузить в excel по столбцам. Допустим есть текст:
5677 | Астраханский | fed-1152 | 05.09.2016, 8:51:26 | fed\fedfaurov.ss | Фауров С.С. | faurov@
7852 | Астраханский | fed-5412 | 13.08.2016, 5:46:51 | | |
8526 | Перьм | fed-9854 | 05.09.2016, 12:59:50 | fed\feddeviev.as | Девиев А.С. | deviev@

Никак не получается загнать в excel что бы все делилось построчно и по столбцам по разделителю "|".

[SAS888]

Можно "вручную", воспользовавшись импортом внешних данных, а можно выполнить макрос:

Sub qq()
    Dim f As String, cell As Range
    f = "D:\Temp\test.txt" 'Путь и имя текстового файла
    Set cell = Range("A1") 'Первая ячейка для вставки
    With ActiveSheet.QueryTables.Add("TEXT;" & f, cell)
        .TextFileOtherDelimiter = "|": .Refresh BackgroundQuery:=False
    End With
End Sub

[Aksuz]

Это круто, макрос работает, спасибо.
Но как сделать это без вмешательства рук? Можно ли через vbs например отрыть ексельку, выполнить этот макрос и закрыть ексельку? или каким то другим способом.

[Aleksandr H.]

без вмешательства рук отрыть ексельку, выполнить этот макрос

[Hugo121]

Можно всё сделать скриптом vbs, но не вижу разницы открыть xls (с макросом в автозапуске) или vbs, в обоих случаях нужно "вмешательство рук".

[Aksuz]

Скрипт можно запустить ежедневным заданием, получить файлик екселя и потом роботом отправить по почте. Руки не нужны)

[Hugo121]

Ежедневным заданием можно и xls открыть.

[Aksuz]

как то так....
как теперь заполненную область отленеить и выставить размер столбцов?

Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
objExcel.Workbooks.Add
Sheet = 1
Set objSheet = objExcel.ActiveWorkbook.Worksheets(Sheet)
objSheet.Name = "Result1"
strExcelPath = "C:\test2\test1.xlsx"
Dim y
y = 2
strSourceFile = "c:\test2\test.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
                If .FileExists(strSourceFile) Then
                               With .OpenTextFile(strSourceFile)
                                               Do Until .AtEndOfStream
                                                               strLine = .ReadLine()                                                            
                                                              Dim arr
							     	arr = Split(strLine , "|")
								Dim c
								For c = 0 to UBound(arr)
									objSheet.Cells(y,c+1).Value = arr(c)
							Next
							y=y+1
                                               Loop
                                               .Close
                               End With
                Else
                               WScript.Echo "Can't find [" & strSourceFile & "]."
                               WScript.Quit 1
                End If
End With
objExcel.ActiveWorkbook.SaveAs strExcelPath
objExcel.ActiveWorkbook.Close
'Quit Excel'
objExcel.Application.Quit
'Clean Up'
Set objSheet = Nothing
Set objExcel = Nothing

[Aleksandr H.]

objSheet.Columns.AutoFit