在vb.net的Excel工作表單元格中顯示文本框結果

Question

我在窗體上有兩個文本框;一個持有這個詞，另一個持有它的數值，這個數值是根據用戶輸入的內容計算出來的。我有一個分開每個句子，並顯示在Excel中的每個句子的總和。這是從下面列出的vb.net代碼生成的輸出。所有單詞都在A列中，B列中的所有值。如何修改代碼，以便將每個句子及其值分別插入兩列中？在到達字符串「Total for sentence 1」之後。它應該開始將字和它的值插入列C & D等等。 句子一及其值應顯示在列A & B中，句子二應將其值顯示在列C & D等中。 請參閱附件圖片。紅色文本是我目前所擁有的文本，並且在它下面是期望的結果。謝謝！

我在vb.net代碼是：

Private Sub Export_Click(sender As System.Object, e As System.EventArgs) Handles btnCreate.Click 

    xlWorkBook = xlApp.Workbooks.Add 

    xlApp.Visible = True 

    xlWorkSheet = xlWorkBook.Sheets("Sheet1") 
    Dim columnANum As Integer 
    Dim columnBNum 
    columnBNum = 2 
    columnANum = 2 
    With xlWorkSheet 
     .Range("A1").Value = "Word" 
     For Each cellA As String In txtWord.Text.Split(vbLf) 

      .Range("A" & columnANum.ToString).Value = cellA 
      columnANum += 1 
     Next 
     .Range("B1").Value = "Value" 
     For Each cellB As String In txtValue.Text.Split(vbLf) 
      .Range("B" & columnBNum.ToString).Value = Convert.ToInt32(cellB) 
      columnBNum += 1 
     Next 


    End With 
End Sub 

Answer 1

編輯：我對此代碼進行了重大更改並進行了測試;它應該做你正在尋找的

Sub testExcelColumns() 
    Dim xlApp As Object = CreateObject("Excel.Application") 
    Dim xlWorkBook As Object 
    Dim xlWorkSheet As Object 

    xlWorkBook = xlApp.Workbooks.Add 
    xlApp.Visible = True 

    xlWorkSheet = xlWorkBook.Sheets("Sheet1") 
    Dim RowNum As Integer = 1 
    Dim ColNum As Integer = 1 

    'use .cells(row, column) instead of .range 
    xlWorkSheet.cells(RowNum, ColNum).Value = "Word" 

    For Each cellA As String In txtWord.Text.Split(vbLf) 

     'increment the row 
     RowNum += 1 

     'set the value 
     xlWorkSheet.cells(RowNum, ColNum).value = cellA 

     If cellA.StartsWith("Total") Then 
      ColNum += 2 
      RowNum = 1 
      xlWorkSheet.cells(RowNum, ColNum).Value = "Word" 
     End If 

    Next 

    'increment to the second column and first row 
    ColNum = 2 
    RowNum = 1 

    'set title 
    xlWorkSheet.cells(RowNum, ColNum).Value = "Value" 

    For Each cellB As String In txtValue.Text.Split(vbLf) 

     'increment the row 
     RowNum += 1 

     'set the value 
     xlWorkSheet.cells(RowNum, ColNum).value = cellB 

     'get value of cell to the left 
     Dim t As String = xlWorkSheet.cells(RowNum, ColNum).offset(0, -1).value 
     If Not t Is Nothing AndAlso t.StartsWith("Total") Then 
      ColNum += 2 
      RowNum = 1 
      xlWorkSheet.cells(RowNum, ColNum).Value = "Value" 
     End If 

    Next 

End Sub 

Answer 2

根據需要使用

Dim RowNum as Integer = 1 
Dim ColNum as Integer = 1 

使用.cells代替.range

xlWorkSheet.Cells(RowNum, ColNum).value = "Word" 
xlWorkSheet.Cells(RowNum, ColNum).value = "Value" 

更新的行和列的嘗試

RowNum += 1 
ColNum += 1