如何将 RichTextBox 中的文本/内容保存/选择到 .xlsx 文件

Question

我目前正在研究一个解决方案，要求我将 RichTextBox 的内容保存到 .xlsx 文件，我正在尝试的代码（见下文）似乎没有选择 richtextbox 的内容。

是否有更好的表达式来选择文本或 RichTextBox 的内容？

有一个显示警报日志的子表单，它会根据选择而变化。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  Dim ApExcel = New Microsoft.Office.Interop.Excel.Application
  Dim Libro = ApExcel.Workbooks.Add

  ***Libro.Sheets(1).cells(2, 2) = RichTextBox1.Text***

  SaveFileDialog1.DefaultExt = "*.xlsx"
  SaveFileDialog1.FileName = "Alarmlog Linea 1"
  SaveFileDialog1.Filter = "Archivos de Excel (*.xlsx)|*.xlsx"
  SaveFileDialog1.ShowDialog()

  Libro.SaveAs(SaveFileDialog1.FileName)

  ApExcel.Quit()
  Libro = Nothing
  ApExcel = Nothing
End Sub

期望选择一个RichTextBox的内容并将其保存到一个.xlsx文件中。