在Excel文件中獲取單元格的數據並將其保存到文本文件

Question

我嘗試從excel文件中獲取單元格的數據並將此數據保存在文本文件中，但是在使用以下代碼后：

 Imports System.IO 
 Imports Microsoft.Office.Interop 
 Imports Microsoft.Office.Interop.Excel

Public Class Form1
Private myWriter As New StreamWriter("C:\myFile.txt")
Dim appXL As Excel.Application
Dim wbXL As Excel.Workbook
Dim shXL As Excel.Worksheet
Dim XRng As Excel.Range
Dim CellValue As String

Private Sub btnRead_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRead.Click

    appXL = New Excel.Application
    wbXL = appXL.Workbooks.Open("C:\Worksheet.xlsx")
    appXL.Visible = True
    appXL.Workbooks.Add(Type.Missing)
    shXL = wbXL.Worksheets(1)
    shXL.Visible = True
    XRng = CType(appXL.ActiveSheet, Excel.Worksheet).Range("A1").Value2
    CellValue = XRng.ToString()
    myWriter.WriteLine(CellValue)
    myWriter.Close()
    wbXL.Close()
    appXL.Quit()
End Sub
End Class

文本文件中的結果為System.__ComObject

我應該在代碼中進行哪些更正？

Answer 1

代替使用CellValue = XRng.ToString() ，請嘗試使用CellValue = XRng.Value 。