将组合框添加到所选文件 Visual Studio 2010 VB答案

【问题标题】：Add combobox to selected file Visual Studio 2010 VB将组合框添加到所选文件 Visual Studio 2010 VB
【发布时间】：2014-01-28 17:49:58
【问题描述】：

我想使用 VS2010 制作一个 .exe 文件来选择 excel 文件，并通过组合框读取它的工作表。

我现在已经排序以制作一个“浏览”按钮来选择 excel 文件并生成一个 msgbox，但无法分配组合框来读取它的工作表。

这是我的代码

导入 Microsoft.Office.Interop 导入 Microsoft.Office.Interop.Excel

公开课表1

Public Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
    Dim myFileDlog As New OpenFileDialog()
    'Dim oXL As Excel.Application
    'Dim oWB As Excel.Workbook
    'Dim oSheet As Excel.Worksheet


    'look for files in the c drive
    myFileDlog.InitialDirectory = "c:\"

    'specifies what type of data files to look for
    myFileDlog.Filter = "All Files (*.*)|*.*" & _
        "|Data Files (*.xls)|*.xls" & _
        "|Data Files (*.xlsx*)|*.xlsx*" & _
        "|Data Files (*.xlsm*)|*.xlsm*"

    'specifies which data type is focused on start up
    myFileDlog.FilterIndex = 2

    'Gets or sets a value indicating whether the dialog box restores the current directory before closing.
    myFileDlog.RestoreDirectory = True

    'seperates message outputs for files found or not found
    If myFileDlog.ShowDialog() = _
        DialogResult.OK Then
        If Dir(myFileDlog.FileName) <> "" Then
            MsgBox("File Exists: " & _
                   myFileDlog.FileName, _
                   MsgBoxStyle.Information)
        Else
            MsgBox("File Not Found", _
                   MsgBoxStyle.Critical)
        End If
    End If

    'Adds the file directory to the text box
    txtFileDirectory.Text = myFileDlog.FileName
End Sub

Public Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    'Dim oXL As Excel.Application
    Dim oWB As Excel.Workbook
    Dim oSheet As Excel.Worksheet
    'Dim oRng As Excel.Range

    For x As Integer = 1 To FileDialog.Sheets.Count()
        If TypeOf oWB.Sheets(x) Is Excel.Worksheet Then
            ComboBox1.Items.Add(FileDialog.Sheets(x).name)
        End If
    Next
    ComboBox1.SelectedIndex = 0
End Sub

结束类

提前致谢！

【问题讨论】：

标签： visual-studio-2010 excel vba combobox

【解决方案1】：

您需要先设置您的工作簿oWB，然后使用下面的。

改变

    If TypeOf oWB.Sheets(x) Is Excel.Worksheet Then
        ComboBox1.Items.Add(FileDialog.Sheets(x).name)
    End If

到

    If TypeOf oWB.Sheets(x) Is Excel.Worksheet Then
        ComboBox1.Items.Add(oWB.Sheets(x).name)
    End If

同样FileDialog.Sheets.Count()不正确

【讨论】：