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

Question

我正在制作一个程序，该程序将保存在磁盘上的 excel 中的数据导出到我在表单应用程序中的文本框。

我有 excel 的代码常量本地化。

 Dim ExcelApp As Excel.Application = New Excel.Application
    Dim ReteilerWorkbook As Excel.Workbook = ExcelApp.Workbooks.Open("C:\Users\TR.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

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

How to open specific folder by Opendialog in VB?

vb.net

openfiledialog