Здравствуйте, есть файлик excel с двумя листами на одном таблица с данными на другом словарь с которого берутся данные в выпадающий список на каждой ячейки в определенном столбце. Вообщем работает во всех версиях office кроме 2007, даже в libbreoffice работает.
| Код |
|---|
Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit
Sub OpenDialog()
''' Процедура формирования гипперссылки
Dim strAddres As String, Vl
strAddres = fnOpenTextFile
If Len(strAddres) > 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=strAddres
End If
End Sub
Public Function fnOpenTextFile(Optional sTitle As String = "Выбор файла", _
Optional MultiSelectFiles As Boolean = False)
''' Функция диалога выбора файла _
по умолчанию выбор любого файла, выбор одного файла
fnOpenTextFile = Application.GetOpenFilename _
("????? ????? (*.*),*.*", , sTitle, , MultiSelectFiles)
End Function |
Подскажите где подправить макрос чтоб это все заработало?
