获取单元格的数据在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。