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を試してみてください。