Создание диалогового окна для указания пути к рабочей книге

[igsxor]

Привет.
Есть макрос,который работает с 2 книгами(обе открыты).Каждый раз до запуска макроса приходится вручную редактировать код,заносить имя открытой книги.
Подскажите можно ли после запуска макроса открыть окно и указать нужную книгу или путь до нее?
спс

[IgorGO]

читайте в помощи FileDialog. там есть пример использования

[EducatedFool]

Специально для этих целей делал функцию:
http://excelvba.ru/code/GetAnotherWorkbook

[igsxor]

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

читайте в помощи FileDialog. там есть пример использования

Доброго времени суток)

Простите,а... какой именно выбрать в helpе?
Page: [1] 2 Next


FileDialog Object
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object
FileDialog.SelectedItems Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.InitialView Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.ButtonName Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.FilterIndex Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.Show Method
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Methods
FileDialog.AllowMultiSelect Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.Filters Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.InitialFileName Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.DialogType Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog Object Members
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object
Application.FileDialog Property
Help > Excel Object Model Reference > Application Object > Properties
FileDialog.Application Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.Parent Property
...

[igsxor]

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

Доброго времени суток)

Простите,а... какой именно выбрать в helpе?
Page: [1] 2 Next


FileDialog Object
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object
FileDialog.SelectedItems Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.InitialView Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.ButtonName Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.FilterIndex Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.Show Method
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Methods
FileDialog.AllowMultiSelect Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.Filters Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.InitialFileName Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.DialogType Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog Object Members
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object
Application.FileDialog Property
Help > Excel Object Model Reference > Application Object > Properties
FileDialog.Application Property
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object > Properties
FileDialog.Parent Property
...

Дело в том что из одной книги данные переносятся в другую и приходится ДО запуска макроса(на книге с изначальными данными) каждый раз указывать имя итоговой книги в редакторе вба.
Какой вариант подойдёт подскажите.К примеру я запускаю основной макрос и после этого тут же появляется диалоговое окно где я могу выбрать доступные имена книг.

[Hugo121]

Если речь о этом коде, то так даже можно одну переменную сократить (но другую пришлось добавить):

Option Explicit

Sub Otbor()
    Dim a(), b, c, d, e, i As Long, ii As Long, j As Long, jj As Long, k As Long, temp As String

    a = Range("A2:I" & Range("A" & Rows.Count).End(xlUp).Row).Value
    ReDim b(1 To UBound(a), 1 To 3)

    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(a)
            temp = a(i, 1) & a(i, 5)
            If Not .Exists(temp) Then
                j = j + 1: .Item(temp) = j
                b(j, 1) = a(i, 1)
                b(j, 2) = a(i, 5)
                b(j, 3) = a(i, 9)
            Else
                k = .Item(temp)
                b(k, 3) = b(k, 3) + a(i, 9)
            End If
        Next
    End With



    With CreateObject("Scripting.Dictionary")

        For i = 1 To j
            temp = b(i, 1)
            If Not .Exists(temp) Then jj = jj + 1: .Item(temp) = jj
        Next

        ReDim c(1 To .Count, 1 To 4)

        For i = 1 To UBound(b)
            temp = b(i, 1)
            If Len(temp) Then
                c(.Item(temp), 1) = b(i, 1)
                Select Case b(i, 2)
                Case "Х"
                    c(.Item(temp), 2) = b(i, 3)
                Case "Г"
                    c(.Item(temp), 4) = b(i, 3)
                End Select
            End If
        Next

    End With


Dim ИмяФайла As String
ИмяФайла = GetFilePath
If ИмяФайла = "" Then Exit Sub ' выход, если пользователь отказался от выбора файла
    With Workbooks.Open(ИмяФайла).Sheets(1)

        d = .Range("B7:B" & .Range("B" & .Rows.Count).End(xlUp).Row).Value

        ReDim e(1 To UBound(d), 1 To 3)

        For i = 1 To UBound(d)
            For ii = 1 To UBound(c)
                If CStr(d(i, 1)) = CStr(c(ii, 1)) Then e(i, 1) = c(ii, 2): e(i, 3) = c(ii, 4): Exit For
        Next ii, i

            .Range("C7:E7").Resize(UBound(e)) = e
    End With

    End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для загрузки", _
                     Optional ByVal InitialPath As String = "C:\Temp\", _
                     Optional ByVal FilterDescription As String = "Книги Excel", _
                     Optional ByVal FilterExtention As String = "*.xlsx*") As String
' функция выводит диалоговое окно выбора файла с заголовком Title,
' начиная обзор диска с папки InitialPath
' возвращает полный путь к выбранному файлу, или пустую строку в случае отказа от выбора
' для фильтра можно указать описание и расширение выбираемых файлов
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
    End With
End Function

[IgorGO]

во вложении диалог выбора файла. кода вот столько:

Function GetFile() As String
  Dim fd As FileDialog
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  GetFile = ""
  fd.AllowMultiSelect = False
  If fd.Show = -1 Then GetFile = fd.SelectedItems(1)
  Set fd = Nothing
End Function

Sub BlaBlaBla()
  ActiveCell = GetFile
End Sub

взято отсюда:

FileDialog Object
Help > Object Library Reference for the 2007 Microsoft Office System > Object Model Reference for the 2007 Microsoft Office System > FileDialog Object