Ответить

Или CommonDialog1.Action=1

Ответить

Эээ, нет. Конечно, можно использовать Common Dialog Control, но очень не рекомендую. Возможны глюки, если запускать макрос на других машинах. Или API нужно использовать или проще всего:

Filter = "Файлы Excel (*.xls),*.xls"

Caption As String = "Открытие книги"

sFullFileName = Application.GetOpenFilename(Filter, 1, Caption)

Ответить

Круто.

А для Worda не знаешь ?

Ответить

Dialogs(wdDialogFileOpen).Show
Это, конечно, не так круто, имя файла не возвращается, но документ открыть можно. Я для Ворда API использую. Нужно? - отмылю.

Ответить

Dialogs(wdDialogFileOpen).Show
Это, конечно, не так круто, имя файла не возвращается, но документ открыть можно. Я для Ворда API использую. Нужно? - отмылю.

Ответить

Уж не знаю хороша ли такая сильная оптимизация. Хотя наверное по-барабану. VBA-программист всё равно работает с документами, а не с файлами.

Насчёт API.

Если не жалко оставь здесь. Я думаю это подойдёт и VB-программистам. Если не можешь - cyraxua@hotmail.com

Ответить

>VBA-программист всё равно работает с документами, а не с файлами.

Вопрос довольно спорный. Чаше всего данные для документов и отчетов приходится брать именно из внешних файлов разнообразнейших форматов. Мне, но крайней мере.

API-код

'Процедуры использования напрямую без comdlg32.ocx
'функций библиотеки comdlg32.dll (с благодарностью А.А.Колесову)

'Declaration

Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
  Alias "GetOpenFileNameA" (ofn As OPENFILENAME) As Boolean
Private Declare Function GetSaveFileName Lib "comdlg32.dll" _
  Alias "GetSaveFileNameA" (ofn As OPENFILENAME) As Boolean

' Константы для управления флагами окна "Открыть/Сохранить файл"
Public Const OFN_READONLY  As Long = &H1

' Описатель данных для работы с окном "Открыть/Сохранить файл"
Private Type OPENFILENAME
  lStructSize As Long
  hwndOwner As Long
  hInstance As Long
  stFilter As String
  stCustomFilter As String
  nMaxCustFilter As Long
  nFilterIndex As Long
  strFile As String
  nMaxFile As Long
  stFileTitle As String
  nMaxFileTitle As Long
  stInitialDir As String
  strTitle As String
  Flags As Long
  nFileOffset As Integer
  nFileExtension As Integer
  stDefExt As String
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type

'************************************

'Сама процедура

Public Function FileOpenSave( _
    Optional ByVal OpenFile As Boolean = True, _
    Optional ByRef Flags As Long = 0&, _
    Optional ByVal InitialDir As Variant, _
    Optional ByVal Filter As String = vbNullString, _
    Optional ByVal FilterIndex As Long = 1, _
    Optional ByVal DefaultExt As String = vbNullString, _
    Optional ByVal FileName As String = vbNullString, _
    Optional ByVal DialogTitle As String = vbNullString, _
    Optional ByVal hwnd As Long = -1) _
    As String
    '
    ' Процедура обращения к
    ' диалоговому окну "Открыть/Закрыть файл"
    ' OpenFile = True  - ОТКРЫТЬ (по умолчанию)
    '          = False - ЗАКРЫТЬ
    '
    Dim ofn As OPENFILENAME  ' структура для обращения
                       ' к DLL-функции
    Dim stFileName As String
    Dim stFileTitle As String
    Dim fResult As Boolean

    ' начальный каталог
    If IsMissing(InitialDir) Then InitialDir = CurDir
    If (hwnd = -1) Then hwnd = 0  ' установка описателя
   
    ' Подготовка строковых переменных
    stFileName = Left$(FileName & String$(256, vbNullChar), 256)
    stFileTitle = String$(256, vbNullChar)
   
    ' формирование данных для обращения к окну
    With ofn
        .lStructSize = Len(ofn)
        .hwndOwner = hwnd
        .stFilter = Filter
        .nFilterIndex = FilterIndex
        .strFile = stFileName
        .nMaxFile = Len(stFileName)
        .stFileTitle = stFileTitle
        .nMaxFileTitle = Len(stFileTitle)
        .strTitle = DialogTitle
        .Flags = Flags
        .stDefExt = DefaultExt
        .stInitialDir = InitialDir
        .hInstance = 0
        .stCustomFilter = String$(255, vbNullChar)
        .nMaxCustFilter = 255
        .lpfnHook = 0
    End With

    If OpenFile Then  ' открыть файл
        fResult = GetOpenFileName(ofn)
    Else  'сохранить файл
        fResult = GetSaveFileName(ofn)
    End If

    If fResult Then  ' Нажата кнопка "Open/Save"
        Flags = ofn.Flags  ' флаги
        ' имя файла
        FileOpenSave = Left$(ofn.strFile, _
            InStr(ofn.strFile, vbNullChar) - 1)
    Else: FileOpenSave = "" ' нажата Cancel
    End If
End Function

'*****************************

'Процедура из рабочего модуля (вырвал из жизни, чуть изменив, т.к. там были мои константы и переменные, поэтому могут быть непонятки. Но я думаю, что в основном понятно, что и для чего)

Public Function GetFileName()
  ' обращение к окнам "Open/Save File" напрямую через DLL
  '=============================
 
  Dim bOpenFile As Boolean  ' тип операции
                ' TRUE (открыть)/FALSE (закрыть)
  Dim Filter$, Flags&
  Dim FileName$, InitDir$, Title$
 
  InitDir$ = DEFAULT_PATH
  Title$ = "Открытие файла с ..."
  Filter$ = "Файлы с ...() " & Chr(0) & DEF_MASK & Chr(0) & "Все файлы (*.*)" & Chr(0) & "*.*"
  bOpenFile = True
  ИмяФайла$ = FileOpenSave( _
    bOpenFile, , InitDir, Filter, , ".txt", , Title$)

    If ИмяФайла = "" Then Exit Function
End Function

Ответить

Ok, спасибо.

А то я в последнее время потерял доверие ко всяким контролам.

Так если на VB3 все VBXы можно было просто положить в каталог программы (хотя установка тоже существовала), то здесь нужна регистрация. А при программировании ещё и лицензия.

Особенно хорошо смотреть на лицо какого-нибудь заказчика, когда ставишь программу на его глючные (конечно же самые работоспособные машины в городе), а она требует то переустановку OLE, то другие версие компонентов, а то и вообще не хочет ничего ставить без объявления причин.

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

Ответить