импорт из разноименных файлов + "замораживание" данных

[andrewx]

в процессе собственных потуг появились еще вопросы:

1) как в формуле: =ВПР("продажа";вода!C1:C2;2;ЛОЖЬ) указывать не конкретно имя листа, а брать его из ячейки
здесь "вода" это и имя соответствующего листа, и имя в тойже строке первы столбец.

2) как в макросе применяющий другой макрос на нескольких листах брать эти листы из столбца листа "цены". цель: не дописывать макрос с появлением новых листов. вот мой код:

Sheets("вода").Select
    Application.Run "цена.xls!макрос5"
    Sheets("газ").Select
    Application.Run "цена.xls!макрос5"

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

[The_Prist]

Сообщение от andrewx

1) как в формуле: =ВПР("продажа";вода!C1:C2;2;ЛОЖЬ) указывать не конкретно имя листа, а брать его из ячейки

Изучаем функцию ДВССЫЛ
=ВПР("продажа";ДВССЫЛ(C1&"!C1:C2"); 2;0)
где C1 - ячейка с именем листа

Сообщение от andrewx

2) как в макросе применяющий другой макрос на нескольких листах брать эти листы из столбца листа "цены"

Sheets("вода").Select
    Application.Run "цена.xls!макрос5"
    Sheets(Sheets("цены").Range("A1")).Select
    Application.Run "цена.xls!макрос5"

где Sheets("вода").Range("A1") - ячейка с именем листа

Сообщение от andrewx

3) почему некоторые таблици ексель с нумерацией столбцов - буквенные, а некоторые просто цифры, и как поменять одно на другое...

Это стиль ссылок. Принципиальное отличие в основном в отображении стиля. В 2003 Excel меняется:
Параметры-Основные-снять галку с "Стиль ссылок R1C1"
в 2007
Меню(кружок в левом верхнем углу окна Excel)-Парметры Excel-Формулы--снять галку с "Стиль ссылок R1C1"

[SAS888]

Посмотрите вложение.
При открытии txt файлов, извлекаются только 3 столбца - 1-й, 2-й и 8-й.
Но, т.к. Вы упорно отказываетесь говорить, каким образом нужно выбирать значения для вставки из txt файла, то в примере просто берутся данные из 1-го и 2-го столбцов последней строки и помещаются в столбцы "продажа" и "покупка" соответственно.
В ячейке "A10" содержится путь к папке с исходными txt файлами. Внесите в эту ячейку требуемый путь и запустите макрос "Main".
Если искомый файл не будет найден, то значения просто не будут вставлены.
Будут вопросы по коду - спрашивайте.

[andrewx]

The_Prist
спасибо за формулу, поправил только тип ссылок и все заработало! хотя както странно... таблица щас в стиле А1, а пришлось прописать что стиль Р1С1 и тогда заработало...

предложеный код обновления всех листов не пашет. ругается на строку:

Sheets(Sheets("цены").Range("A1")).Select

пишет еррор 13, тайп мисматч.

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

где переключаются стили нашел - большое спасибо.

SAS888
дык в предыдущем сообщение написал как выбирается..
крута! раз и готово. но ничего не понятно прям подталкиваете к изучению Бейсика...
собсна.... тогда вопрос:
1) где найти лечебник по синтаксису и описание формул? особливо математических.
2)

Sheets("цены").Activate: a = Array("газ", "земля", "дерево", "вода")

можно задавть не явно, а чтоб они брались из первого столбца с 3ей строки и ниже до пустой ячейки?
3) в коде идет перечисление массивов... а вот что они значат не могу понять... цыфири скачат... аррей... видимо это представление внешнего текстовика. но почему именно такие цыфры???

прочие строки интуитивно понятны... даже вот такой вопрос:

[D3:E6].ClearContents

как я понимаю очищает ячейки, если так, но видимо этого можно не делать, так как они будут перезаписаны? или это на случай отсутствия внешнего файла.... ага.. понял.

[andrewx]

хмм.... единица во втором значении означает, что этот столбец нам нужен, а 9ка - что нет.... походу так..... нужен лечебник... срочно...

[SAS888]

1) Сначала, вполне достаточно встроенного в VBA Excel help-а.

2) Тогда макрос будет таким:

Sub Main()
    Dim x As Range, i As Long, FPath As String, FName As String, a() As Variant
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    Sheets("цены").Activate: a = Range([A3], [A3].End(xlDown)).Value: FPath = [A10]
    [B:F].Insert: [G:K].Copy [B1]: [D3:E6].ClearContents
    Set x = Intersect(ActiveSheet.UsedRange, [G:IV]): x.Value = x.Value
    For i = LBound(a, 1) To UBound(a, 1)
        FName = Dir(FPath & "*" & a(i, 1) & "*.txt")
        If FName <> "" Then
            Workbooks.OpenText Filename:=FPath & FName, Origin:=866, StartRow:=1, _
                DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 9), _
                Array(4, 9), Array(5, 9), Array(6, 9), Array(7, 9), Array(8, 1), Array(9, 9), Array(10, 9), _
                Array(11, 9), Array(12, 9), Array(13, 9), Array(14, 9), Array(15, 9))
            With ThisWorkbook.Sheets("цены")
                .Cells(i + 2, "D") = Val(Cells(Rows.Count, 1).End(xlUp))
                .Cells(i + 2, "E") = Val(Cells(Rows.Count, 2).End(xlUp))
                ActiveWorkbook.Close , False
    End With: End If: Next
End Sub

3) В том же help-е смотрим опции метода OpenText, обращаем внимание на XlColumnDataType и видим справку:

XlColumnDataType can be one of these XlColumnDataType constants.
xlGeneralFormat General
xlTextFormat Text
xlMDYFormat MDY date
xlDMYFormat DMY date
xlYMDFormat YMD date
xlMYDFormat MYD date
xlDYMFormat DYM date
xlYDMFormat YDM date
xlEMDFormat EMD date
xlSkipColumn Skip Column

Так, например запись FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 9) означает, что при открытии текстового файла, столбец 1 будет иметь текстовый формат (Array(1, 1)), столбец 2 - тоже (Array(2, 1)), а столбец 3 будет пропущен (Array(3, 9)) и т.д.

[andrewx]

напрягаю мозг в попытке вспомнить что знал о бейсике с ПК "Львов" в далекие 20 лет назад....

во вложении все файлы. добавил столбец с информацей о том какой общий "вес" меня интересует. вес - это 2ой столбец во внешних файлах.

данные в таблицу берутся только из первого столбца внешних данных.
если в 3ем столбце ложь то в "продажа", если истина то в "покупка"

проблема в том, что не могу в цикл ввернуть количество строк во внешнем файле. оператор что нашел в предложеном варианте - работать не захотел:

For k = 1 To .End(xlUp)

плиззз хелп

еть.... поиск хелпа в бейсике - не пашет....

[andrewx]

хелповик в ексели неработает и все както куцо.
нашел ответы в яндексе. все исправил. все работает.

Всем Огромное спасибо за помощь! Особенно SAS888

если когданить забуду как это все работает - стукнусь в асю