Question

我正在尝试弄清楚如何以编程方式将我的UserForm中的现有数组或ListBox数据集写入Excel中定义的单元格区域。我可以将单个值写入单个单元格，如下面的代码所示，但我有多个长度超过3000行的数组，而且我不能对每个数组进行硬编码。

    Private Sub ExcelSave_click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles ExcelSave.Click

    Dim xlsWorkbook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlsWorksheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim xls As New Microsoft.Office.Interop.Excel.Application
    Dim resourcesFolder = "C:\DiffractionMonitorFiles\"
    Dim fileName = "DataSave MASTER.xlsx"
    Dim NewFileName = SampleNameTextBox.Text & ".xlsx"
    Dim todaysdate As String = String.Format("{0:MM/dd/yyyy}", DateTime.Now)

    'open excel workbook "DataSave MASTER.xlsx"
    xlsWorkbook = xls.Workbooks.Open(resourcesFolder & fileName)
    'open excel worksheet "Sheet1"
    xlsWorksheet = xlsWorkbook.Sheets("Data")
    'enter data into specific cells
    xlsWorksheet.Cells(4, 2) = UserNameTextBox.Text
    xlsWorksheet.Cells(5, 2) = todaysdate
    xlsWorksheet.Cells(6, 2) = SampleNameTextBox.Text
    xlsWorksheet.Cells(7, 2) = EntranceUpDown.Value

使用此代码可以将数据写入excel范围，但它会在每个单元格中写入单个值，而不是将相应的数组/列表框值写入适当的范围单元格。

           Dim i As Integer
        For i = dblAreas1(0) To dblAreas1.Length
            xlsWorksheet.Range("j17:j3085").Value = dblAreas1(i - 1)
        Next i

如果有人能够帮助解决这个问题，我将非常感谢！我是VB的新手，通过这样的搜索和论坛学到了我所知道的知识，所以我确信我的代码充满了怪癖，但我很享受这个过程！谢谢！

Answer 1

要完成此操作，您需要单独编写每个值。这可以通过一个简单的循环来完成：

For i As Integer = 0 To dblAreas1.Length - 1
    xlsWorksheet.Range("J" & (17 + i)).Value = dblAreas1(i)
Next

你的语法非常正确，你只是错过了迭代流程。

请注意，我假设您希望将dblAreas1数组的所有值写入从行J开始的列17中。在这种情况下，我更新了迭代的范围以适应这种情况。

Visual Studio数组或ListBox数据到Excel范围

1 个答案: