cara memasukan text file ke excel atau mengexport text file menjadi bentuk excel menggunakan vb.net

salam,
apa kabar hari ini, semoga baik baik saja, langsung saja di tutor kali ini saya akan membahas cara merubah string atau data yang ada di text file kedalam bentuk excel, ini sangat mudah namun bila agan tidak tahu itu masalah agan,. tapi tidak usah patah semangat mencari sesuatu yang baru agan perlajari, bagi yang sudah tahu akan mudah mengikutinya yang pasti tinggal copy paste saja, skripnya

okey saya akan berbagi cara yang pertama:

1. siapkan txt file berinama "data1.txt"
    isikan dalam data1.txt sperti berikut ini :
             plan,10
             actual,8
             result,8
2. siapkan excel file berinama "data1.xlsx"
     file tersebut di biarkan kosong saja.

dan inilah skrip vb.net :

Imports System.IO
Imports Excel
Public Class Form1
    Dim APP As New Excel.Application
    Dim worksheet As Excel.Worksheet
    Dim workbook As Excel.Workbook
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim index As Integer = 1
        Dim lines As List(Of String) = System.IO.File.ReadAllLines("D:\data1.txt").ToList
        For Each line As String In lines
            Dim dts() As String
            index = index + 1
            dts = line.Split(",")
            worksheet.Cells(index.ToString, 1).Value() = dts(0)
            worksheet.Cells(index.ToString, 2).Value() = dts(1)
        Next
        APP.Visible = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        workbook = APP.Workbooks.Open("D:\data1.xlsx")
        worksheet = workbook.Worksheets("sheet1")
    End Sub
End Class

dan ini lah hasilnya: