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

Question

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

Comments

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

Answer 1

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

Comments

така ми е направено в Ексела. Проблемът е, че на LibreOffice не работи. А LibreOffice имам на машина с Windows и на машина с Ubuntu.
идеята е: Едното предмониторно работи с екселския файл на Ubuntu. хвърля тоя файл на флашка или праща по пощата. Другото предмониторно го отваря с Win и продължава да работи с него. (допълва информация, обработва и т.н.)