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

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

1 个答案: