如何通过Opendialog在VB中打开特定文件夹？

Question

我在做节目的表单应用程序，从Excel导出数据保存在磁盘上我的文本框中。

我在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

您可以通过使用打开文件对话框选择文件想手动

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