0

我正在尝试使用 Excel 工作簿中的已用范围填充 Windows 窗体上的组合框。我需要参考的 Excel 范围是 D32:D62；然而，这个范围是动态的。它可能只包含 5 个值，也可能包含 30 个，具体取决于用户在我的应用中输入的内容。此范围内的值将全部偏移到顶部，因此值之间不会有空白单元格。

      'populate ComboBoxProgram with relevant program names for loaded student
    Try

        Dim oRange As Excel.Range
        Dim oRangeArr As String

        oRange = DirectCast(StatVar.xlApp.Sheets("New Calculator Input").UsedRange("D32", "D62"), Excel.Range)
        oRangeArr = String.Empty
        'Build a string array delimited by commas
        For i As Integer = 1 To oRange.Rows.Count
            Dim oCell As Excel.Range = DirectCast(oRange.Rows(i), Excel.Range)
            oRangeArr &= DirectCast(oCell.Value.ToString, String) & ","
        Next

        oRangeArr = oRangeArr.Remove(oRangeArr.Length - 1, 1)
        ComboBoxProgram.Items.AddRange(oRangeArr.Split(","c))
        oRange = Nothing

    Catch exc As Exception
        MessageBox.Show("An error occured while retrieving the relevant programs from the budget. Please contact an administrator for assistance.")
    End Try

如果我范围内的所有单元格都有值，这只会填充我的组合框。如何找到已使用的范围？

4

1 回答 1

0

试一试这种稍作修改的方法。它将检查整个工作簿中包含数据的单元格，而不是为空单元格填充组合框。

Imports Microsoft.Office.Interop.Excel
...

Dim excel As Application = New Application

Dim w As Workbook = excel.Workbooks.Open("C:\temp\book1.xlsx")
    For i As Integer = 1 To w.Sheets.Count
          Dim sheet As Worksheet = w.Sheets(i)
          Dim r As Range = sheet.UsedRange
          Dim array(,) As Object = r.Value(XlRangeValueDataType.xlRangeValueDefault)
          If array IsNot Nothing Then
              Dim bound0 As Integer = array.GetUpperBound(0)
              Dim bound1 As Integer = array.GetUpperBound(1)

              ' Loop over all elements.
              For j As Integer = 1 To bound0
                  For x As Integer = 1 To bound1
                      Dim s1 As String = array(j, x)
                         If s1 IsNot Nothing Then
                            If Not ComboBox1.Items.Contains(s1.ToString) Then
                                ComboBox1.Items.Add(s1.ToString)
                            End If
                         End If
                  Next
              Next
          End If
     Next
 w.Close()
于 2013-05-22T21:05:48.047 回答