макрос импорт txt в EXCEL

[doober]

Application.CommandBars("Cell").Reset

[0creator0]

очень благодарен))))

[0creator0]

Подскажите пожалуйста как сделать ,ну или хотя бы намек в каком направлении идти, у меня есть база с именами фамилиями , как сделать мне так, что бы была у меня панелька либо список , и я на листе решения выбирая год например 1985 мне предлагался выбор из база с такой датой, когда я выбирал Например Ольга она появлялась с именем , фамилией и датой на листке решения

[0creator0]

Ну хоть в каком направление двигаться подскажите???

[Hugo121]

Мне кажется, в сторону формы...
Три листбокса, при загрузке в каждом уникальные имена, фамилии и года.
При выделении в любом из них остальные перестраиваются.

Но детально не продумывал... Может есть другие варианты?

Вот, очень сырой вариант, сделал чуть иначе, не до конца, код нужно упрощать...
А вообще название темы никак не соотносится с этим вопросом, сразу внимания не обратил...

[0creator0]

Спасибо большое, теперь знаю хоть куда двигаться!!!

[ntrader]

добрый день. столкнулся с такой проблемой. нужно каждый день делать импорт 30-50 текстовых файлов з данными в табличной форме. из файлов нужно лишь 2 столбца, ссотв. при импорте каждого файла приходится отключать столбцы, оставлять нужное. у меня к вам вопрос. можно ли сделать импорт файлов: 1) групповым 2) по определенному шаблону - тоесть чтобы сразу импортировались нужные данные из файла, а не все подряд. если можно - прошу помощи у специалистов.
из файлов использую лишь данные по столбцам Date и POCvo.
к сожалению, в написании макросов я ноль, поэтому и обратился на профильный форум. заранее благодарю.
несколько файлов есть во вложении.

[Hugo121]

Читать все текстовые файлы макросом, брать начиная со второй строки первых 10 символов и с 12-го 5 символов.
Или даже так -
1. сразу весь текст в переменную,
2. её разбить в массив по строкам,
3. создать пустой массив под этот размер
4. цикл по этому массиву данных, каждый элемент бьём в массив по vbtab
5. выбираем первых два элемента в массив результатов
6. в конце выгружаем полученный массив, берём следующий текстовый файл.

Вот сделал, рассчитано на обработку всех текстовых файлов в папке c:\Temp\ntrader\
Первоначально писал как скрипт vbs (поэтому нет объявления всех переменных - всё равно они все одного типа), но на vbs не проходит строка
ReDim b(1 To UBound(a), 1 To 2)
Интересно, почему?

[ntrader]

Hugo121, большое спасибо, за сделанный файл! но можно ли внести пару поправок? Пробовал читать текс макроса, чтобы самому исправить/отредактировать - не осилил.
По столбцу Дата все отлично, а РОС вы перепутали с POCvo.
И данные из файлов не должны перемешиваться. Т.е. можно ли сделать так, чтобы, например, когда в папке 5-30 файлов, я нажимаю GO, и сразу создавалось 5-30 книг с именами этих фалов и + в них уже отфильтрованная информация? Спасибо

[Hugo121]

Ну с покво легко:

            For i = 1 To UBound(a)
                b(i, 1) = Split(a(i), vbTab)(0)
                b(i, 2) = Split(a(i), vbTab)(14)
            Next

Заголовок сами найдёте, где менять.
Файлы будете вручную сохранять?

Если вручную, тогда замените тот код на этот:

Sub tt()
    Const ForReading = 1
    Application.ScreenUpdating = False
    Dim FSO
    Dim TheFolder, TheFiles, AFile
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TheFolder = FSO.GetFolder("c:\Temp\ntrader\")    'Каталог с файлами
    Set TheFiles = TheFolder.Files
    For Each AFile In TheFiles
        If UCase(FSO.GetExtensionName(AFile.Path)) = "TXT" Then
            Set objTextFile = FSO.OpenTextFile(AFile, ForReading)
            strText = objTextFile.ReadAll
            objTextFile.Close
            a = Split(strText, vbNewLine)
            ReDim b(1 To UBound(a), 1 To 2)
            For i = 1 To UBound(a)
                b(i, 1) = Split(a(i), vbTab)(0)
                b(i, 2) = Split(a(i), vbTab)(14)
            Next
            Set wb = Workbooks.Add    '# открываем новую книгу Excel
            wb.Sheets(1).Cells(1, 1) = "Date"
            wb.Sheets(1).Cells(1, 2) = "POCvo"
            wb.Sheets(1).Columns(1).NumberFormat = "@"
            wb.Sheets(1).Cells(2, 1).Resize(UBound(b), 2) = b
            wb.Sheets(1).Columns.AutoFit
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Т.к. запускаем из-под Экселя, то немного изменил код - теперь всё делается в этом экземпляре Экселя.
Ещё добавил форматирование столбца с датами как текст - как даты без танцев с бубном все эти данные в даты не превращаются...