Выбор источника обновлений

[Bu$ter]

Народ, привет! Подскажите пож-та, как можнов VBA реализовать следущее.
Необходимо часто данные из одного файла переносить в другой. Но имя файла из которого берутся данные постоянно меняется в зависимости от даты (AAA.3.10.08 AAA.10.10.08 AAA.17.10.08).
Хочу на VBA написать чтобы при запуски книги, куда надо вносить эти данные, автоматически запускался бы макрос, который бы предлагал выбрать файл-источник обновления, и после того, как я выберу нужный файл, запускал бы на выполнение написанный мной код по копированию данных....
Надеюсь понятно все изложил...

Спасибо...

[SAS888]

Не совсем понятен вопрос. При перемещении файла-источника Excel сам, без всяких макросов запросит вопрос об обновлении (а если нужно, то и об изменении) связей. Этот запрос делается до события Workbook_Open, поэтому, если есть макрос по открытию книги, то сначала будет задан вопрос по связям, а затем выполнен макрос.

[Bu$ter]

Попытаюсь по пунктам раскрыть суть вопроса:

1. Есть файл с ценами по всей России (Цены_общий).

2. Есть несколько файлов с ценами по регионам (Цены_Москва, Цены_Питер и т.д.)

3. Заполняю общий файл и ставлю дату заполнения (Пример:Цены_общий_3.10.08, Цены_общий_10.10.08, Цены_общий_17.10.08 и т.д.)

4. Заполняю (копирую) часть данных общего файла в конкретный файл региона и ставлю дату заполнения (Пример:Цены_Москва_3.10.08, Цены_Москва_10.10.08, Цены_Москва_17.10.08 и т.д.)

Так вот, пунк 4 приходится делать в ручную, это занимает много времени. Хочется примерно так:

1. Заполнил общий файл и поставил дату заполнения (Пример:Цены_общий_10.10.08)
2. Открываю файл Цены_Москва_3.10.08 и запускаю макрос, который выдает запрос типа "Укажите файл с которого провести обновление" и предлагает через проводника выбрать файл. После того как файл будет выбран, к нему уже будет применен макрос копирования.

[SAS888]

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

[Bu$ter]

В примере нужно перенести столбцы с ценной за 1 тонну из файла "Скидки_конкурентов_общая_24_октябр ь(полная)" в соответствующие столбцы "Цены конкурентов 17.10.08". Для этого я макрос напишу.
Мне нужно часть кода, который будет вызывать файл - источник...

[EducatedFool]

Мне нужно часть кода, который будет вызывать файл - источник...

Sub test()
    With Application.FileDialog(msoFileDialogOpen)    'только для MS Excel XP и старше
        .InitialFileName = "c:\"
        .FilterIndex = 3
        .AllowMultiSelect = False
        If .Show = -1 Then
            Filename = .SelectedItems(1)        ' читаем путь выбранного файла
        Else
            Exit Sub           ' отмена чтения
        End If
    End With
    MsgBox "Выбран файл " & Filename, vbInformation, "Результат выбора файла"
End Sub

На форуме эта тема неоднократно обсуждалась (например, здесь и здесь)

[Bu$ter]

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

Sub test()
    With Application.FileDialog(msoFileDialogOpen)    'только для MS Excel XP и старше
        .InitialFileName = "c:\"
        .FilterIndex = 3
        .AllowMultiSelect = False
        If .Show = -1 Then
            Filename = .SelectedItems(1)        ' читаем путь выбранного файла
        Else
            Exit Sub           ' отмена чтения
        End If
    End With
    MsgBox "Выбран файл " & Filename, vbInformation, "Результат выбора файла"
End Sub

На форуме эта тема неоднократно обсуждалась (например, здесь и здесь)

Спасибо большое. В принципе пол дела сделано. Путь верный. Но хотелось бы - чтобы в проводнике можно было выбрать файл, при этом он сам не открывался. Главное получить путь к нему, чтобы потом можно было использовать этот путь в дальнейшем макросе обработки файла...

[EducatedFool]

Но хотелось бы - чтобы в проводнике можно было выбрать файл, при этом он сам не открывался

А разве в результате выполнения кода он открывается?
Данный код только записывает путь выбранного Вами файла в переменную Filename

Или Вам нужно диалоговое окно выбора папки, а не файла?

[Bu$ter]

Благодарю за помощь, то что нужно.
Возник по ходу еще один вопрос - как можно узнать путь к активному файлу, из которого запускается макрос.

Спасибо

[EducatedFool]

как можно узнать путь к активному файлу, из которого запускается макрос

Sub Для_книги_из_которой_запускается_макрос()
    MsgBox ThisWorkbook.path
    MsgBox ThisWorkbook.FullName
    MsgBox ThisWorkbook.Name
End Sub


Sub Для_активной_в_данный_момент_книги()
    If ActiveWorkbook Is Nothing Then Exit Sub
    MsgBox ActiveWorkbook.path
    MsgBox ActiveWorkbook.FullName
    MsgBox ActiveWorkbook.Name
End Sub