Как открыть определенную папку с помощью Opendialog в VB?

Question

Я создаю программу, которая экспортирует данные из Excel, сохраненные на диске, в мои текстовые поля в Form Application.

У меня в коде константа локализации в excel.

 Dim ExcelApp As Excel.Application = New Excel.Application
    Dim ReteilerWorkbook As Excel.Workbook = ExcelApp.Workbooks.Open("C:\Users\TR\2.xlsx")

    With OpenFileDialog1
        .InitialDirectory = "C:\"
        .ShowDialog()
    End With   

Теперь я хочу добавить кнопку с opendialog, чтобы выбрать Excel из другой локализации.

Answer 1

Вы можете выбрать нужный файл вручную, используя OpenFileDialog

Dim OpenFileDialog1 As New OpenFileDialog With {
            .CheckFileExists = True
        }

        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Dim ExcelApp As Excel.Application = New Excel.Application
            Dim ReteilerWorkbook As Excel.Workbook = ExcelApp.Workbooks.Open(OpenFileDialog1.FileName)

        End If