VB NET tersambung dengan CSV file (EXCEL)

Assalamualaikum, senang rasa nya masih dpt berbagi ilmu, kali ini saya akan sharing bagaimana cara membuat program dgn VB net yang langsung tersambuung ke dalam Excel. s imple nya, stiap kita menulis data dalam form,  maka data2 tsb akan langsung tersimpan dalam excel yang kita buat

1. langkah yang pertama buat lah  form seperti dibawah ini

saya membuat 3 button, 3 button inilah yang akan sayaa coding nantinya. tidak lupa textbox untuk 'nama,price discount, dll' dan combo box untuk konten sperti capital region, item , dll, oiya jangan lupa masukan list text box  

 2. langkah kedua masukan kode dalam 'check price' button berikut adalah sourcecode nya

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If ComboBox2.Text = "1" Then
            TextBox1.Text = "250000"
            TextBox2.Text = Val(TextBox3.Text) * 0
         
        ElseIf ComboBox2.Text = "2" Then
            TextBox1.Text = "270000"
            TextBox2.Text = Val(TextBox3.Text) * 0.1


        ElseIf ComboBox2.Text = "3" Then
            TextBox1.Text = "530000"
            TextBox2.Text = Val(TextBox3.Text) * 0.15

        ElseIf ComboBox2.Text = "4" Then
            TextBox1.Text = "325000"
            TextBox2.Text = Val(TextBox3.Text) * 0.2

        ElseIf ComboBox2.Text = "2" Then
            TextBox1.Text = "449000"
            TextBox2.Text = Val(TextBox3.Text) * 0.25

        End If


        TextBox3.Text = Val(TextBox1.Text) * Val(ComboBox3.Text)

        TextBox4.Text = Val(TextBox3.Text) - (TextBox2.Text)



3. langkah ketinga yaitu untuk button 'clear' yang berfungsi untuk menhapus semua data yg kita isi

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       
 ComboBox1.Text = ""
        ComboBox2.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        ListBox1.Text = ""

    End Sub


4. langkah terakhir atau yg terpenting membuat progam dpt terbaca dalam excel. anda harus membuat data excel terlebih dahulu. isinya adalah konten2 yang ada di dlm form seperti brand of product, delivery date, price,discount

setelah selesai, simpan file dgn format csv. untuk mengubah nya persis ada dibawah title eperti di bwh agar lbh jelas.
* jangan lupa untuk mengingat lokasi file yg anda simpan, karna akan berguna ketika mengkoding button 3

 lalu saya  menambahkan sorcode kedalam button3 / "buy!'  seperti dibawah:



    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim var8 As Object
        Dim var7 As Object
        Dim var6 As Object
        Dim var5 As Object
        Dim var4 As Object
        Dim var3 As Object
        Dim var2 As Object
        Dim var1 As Object
        Dim nofile As Object
        Dim harga As Integer
        nofile = FreeFile()
        FileOpen(nofile, "C:\Users\Farah\Desktop\onlineshop.csv", OpenMode.Append)

        var1 = ComboBox1.Text
        var2 = ComboBox2.Text
        var3 = DateTimePicker1.Text
        var4 = ComboBox3.Text
        var5 = TextBox1.Text
        var6 = Val(TextBox1.Text) * Val(ComboBox3.Text)
        var7 = TextBox2.Text
        var8 = TextBox4.Text

     

        ListBox1.Items.Add(var1 & "---" & var2 & "---" & var3 & "---" & var4 & "---" & var5 & "---" & var6 & "---" & var7 & "---" & var8 & "---")
        WriteLine(1, var1, var2, var3, var4, var5, var6, var7, var8)
        FileClose(1)

    End Sub
End Class

Setelah program dapat berjalan ketika anda dapat megisi data2 di form dan mengklik 'buy'. maka ketika anda bbuka excel anda akan terisi seperti ini

SELESAI :)