Temat: Program dla kumpla - VBA, nie działa jak powinien

Imports System
Imports SystemImports System.IO
Imports Microsoft.VisualBasic




Public Class Form1
    Private Sub ZaladujPlik_Click(sender As Object, e As EventArgs) Handles ZaladujPlik.Click
        Try
            Dim Polaczenie As System.Data.OleDb.OleDbConnection
            Dim dataSet As System.Data.DataSet
            Dim Laczenie As System.Data.OleDb.OleDbDataAdapter
            Dim Sciezka As String = "C:\\Users\\Bashantes\\Desktop\\Program dla Kolaka\\elo.xlsx"


            Polaczenie = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Sciezka + ";Extended Properties=Excel 12.0;")
            Laczenie = New OleDb.OleDbDataAdapter("select * from [Sheet1$]", Polaczenie)


            dataSet = New System.Data.DataSet
            Laczenie.Fill(dataSet)
            DataGridView1.DataSource = dataSet.Tables(0)


            Polaczenie.Close()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub


    Private Sub ladujfolder_Click(sender As Object, e As EventArgs) Handles ladujfolder.Click
        Dim Wybrane As String = DataGridView1.GetClipboardContent().GetText().Replace(ChrW(9), ",")
        Label1.Text = Wybrane


    End Sub


    Private Sub TworzFolder_Click(sender As Object, e As EventArgs) Handles TworzFolder.Click
        Dim di As DirectoryInfo = Directory.CreateDirectory("C:\elo" + Label1.Text + "")


    End Sub
End Class