application.FileDialog - друга команда/начин

0 одобрения 0 неодобрения
попитан 12 февруари в Excel от BabaPena начинаещ (12 точки)
Имам екселски файл с макрос - application.filedialog. Налага се да преработя макроса, така че да върви и на ексел и на LibreOffice. LibreOffice не "харесва" FILEDIALOG-a. Някакъв друг начин да подменя тази команда, така че да върви и на ексел и на LibreOffice?

1 коментар

коментиран 20 февруари от BabaPena начинаещ (12 точки)
Порових се и намерих този линк:
https://gist.github.com/mlhaufe/1034241#file-browse2-vbs-L1
Там има за файлове и папки неща. Ако някой има моя проблем - дано му помогне линка.

1 отговор

0 одобрения 0 неодобрения
отговорени 1 май от Badan експерт (271 точки)

FileDialog метода работи без проблем във VBA и може да се ползва без проблеми във macro-enabled екселски файл. Ето пример, който дава възможност да се upload-не файл през ексел.

Sub UseFileDialogOpen()
 
    Dim lngCount As Long
 
    ' Open the file dialog
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
 
        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
        Next lngCount
 
    End With
 
End Sub
Добре дошли в българския форум за Ексел и Майкрософт офис! Тук можете да питате хора със знания и опит, както и да споделите знанията и опита си с другите.
...