View Single Post
Old 02-09-2016, 07:19
ager ager is offline
Join Date: Jul 2010
Location: Russia
Posts: 44
Default Is this forum still alive?

I found out how to solve my problem using a crutch (speaking in Russian ):
Dim FOp as Variant, FileAr as Variant

With CreateObject("Excel.Application")
 FOp = .GetOpenFileName(FileFilter:="(*.txt), .txt,)", MultiSelect:=True)
     If IsArray(FOp) Then
        ReDim FileAr(UBound(FOp))
        For i = LBound(FOp) To UBound(FOp)
            FileAr(i - 1) = FOp(i)
        Next i
        Exit Sub
    End If
End With
But my question is still topical. Because last opened file path is lost every time I use this code. In addition, when I updated my Corel up to CorelDRAW X8 64-bit I can't use Cyrillic symbols in VBA-code window. It's a pity...

Last edited by ager; 07-09-2016 at 09:03.
Reply With Quote