Определение переменной

[Rom1k06]

Добрый вечер!
Подскажтие ПЛЗ...решение задачи
У меня записано 3 в каждом из них выбирается файл для загрузки
Код везде одинаковый.

Set opWb = ThisWorkbook
Set opWs = opWb.Sheets("Сводная")
m2: FilesToOpen = Application.GetOpenFilename(FileFil ter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=False, Title:="Выберете файл для обработки")
If TypeName(FilesToOpen) = "Boolean" Then

Select Case MsgBox("Вы не выбрали ни одного Файла! Продолжить?", vbYesNo _
Or vbExclamation Or vbDefaultButton1, Application.Name)
Case 6: GoTo m2
Case 7: Exit Sub
End Select
End If

Set oWbook = Workbooks.Open(FilesToOpen)
Set oWs = oWbook.Sheets(1)


Как мне объявить глобальную переменую FilesToOpen для того чтобы прописать этот код в отдельном модуле и потом просто вызывать его из разных модулей?

[IgorGO]

начните записывать новый макрос в строке "сохранить в:" вместо "Эта книга" выберите "Личная книга макросов". Можно на этом запись макроса остановить. Вы только что создали специфический файл эксель, который открывается при каждом запуске эксель. Копируйте туда ваш код, и пользуйтесь обявленными функциями из любой книги. Необходимо только учитывать, где находится код, там где это играет роль. И еще когда эксель будет закрывать спросит вас "сохранить изменения в personal-бла-бла-бла..." это и есть ваша личная книга макросов.

[Rom1k06]

Не совсет так..
Считаю это не лгичным т.к. книги находится в общем доступе, и в ней работают как минимум 3 человека одновременно.
Мне необходимо из 3-х разных модулей этой книги открывать разные файлы для разного типа обработки.
структура токова
загрузить продажи 1: выбираем файл грузим1
загрузить продажи 2 :выбираем файл грузим2
загрузить продажи 3: выбираем файл грузим3
так вот я хочу из 3 частей кода ("выбираем файл") получился один отдельный макрос которы просто будет открывать файл, и присваивать имя переменной FileToOpen имя файло который он открыл. и я мог прочитать имя этого файла из любого модуля.

[EducatedFool]

Может, так:

Function Open_XL_File() As String
m2:     Filename = Application.GetOpenFilename(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
                                               MultiSelect:=False, Title:="Выберете файл для обработки")
    msg = "Вы не выбрали ни одного Файла! Продолжить?"

    If VarType(Filename) = vbBoolean Then
        Select Case MsgBox(msg, 52, Application.Name)
        Case 6: GoTo m2
        Case 7: Exit Function
        End Select
    End If

    Set oWbook = Workbooks.Open(Filename)
    Open_XL_File = oWbook.Name
End Function

Sub test()    ' пример использования
    file1 = Open_XL_File
    file2 = Open_XL_File
    file3 = Open_XL_File
    Debug.Print "Открыты файлы:  ", file1, file2, file3
End Sub

[Rom1k06]

Извените за тупой вопрос,
а как мне вызвать эту функию с тот момент когда мне нужно?

[EducatedFool]

1) Добавляете модуль в проект VBA
2) Вставляете в него код функции:

Public Function Open_XL_File(Optional ByVal title As String) As String
m2:     Filename = Application.GetOpenFilename(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
                                               MultiSelect:=False, title:=title)
    msg = "Вы не выбрали ни одного Файла! Продолжить?"

    If VarType(Filename) = vbBoolean Then
        Select Case MsgBox(msg, 52, Application.Name)
            Case 6: GoTo m2
            Case 7: Exit Function
        End Select
    End If

    Set oWbook = Workbooks.Open(Filename)
    Open_XL_File = oWbook.Name
End Function

3) В любой модуль (в том числе модуль листа или книги) пишем макрос с вызовом этой функции:

Sub test()    ' пример использования
    file1 = Open_XL_File("Выберите файл со списком продаж")
    file2 = Open_XL_File
    file3 = Open_XL_File("Выберите файл для обработки")
    'Debug.Print "Открыты файлы:  ", file1, file2, file3
    ' ... здесь пишете код
End Sub

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

Таким образом, код
file1 = Open_XL_File("Выберите файл со списком продаж")

вызывает диалоговое окно открытия файла (с заголовком "Выберите файл со списком продаж"), и открывает выбранный файл.

В переменную file1 записывается имя открытого файла (или пустая строка, если пользователь отказался от выбора файла)

Строку типа file1 = Open_XL_File Вы можете вставить в любое место любого макроса.

Можно чуть-чуть изменить функцию, чтобы она возвращала не имя открытого файла, а сам файл (объект типа Workbook) - чтобы сразу получать ссылку на открытый файл.

[Rom1k06]

Спасибо с тем как вызвать я разодрался, но возникла еще одно проблемка
Я пишу
oWb = Open_XL_File
Set oWs = oWb.Sheets(1)

выдает ошибку
Далее у меня весь код содержит oWs, и oWb
Как мне определить их правильно?

[EducatedFool]

Я же писал:

В переменную file1 записывается имя открытого файла

Поэтому использовать данную функцию можно так:

oWb_NAME = Open_XL_File: If oWb_NAME = "" Then MsgBox "Пользователь отказался от открытия файла": Exit Sub
Set oWs = Workbooks(oWb_NAME).Worksheets(1)

Повторюсь:

Можно чуть-чуть изменить функцию, чтобы она возвращала не имя открытого файла, а сам файл (объект типа Workbook) - чтобы сразу получать ссылку на открытый файл.

Но всё равно придётся проверять возвращённый функцией результат - ведь пользователь может отказаться от открытия файла.

[Rom1k06]

Большое все спасибо Вы мне очень помогли с решением модернизации кода...
Для меня это пока еще сложные задачи, но я стараюсь решать их сам..