Как да вмъкнете електронна таблица от Excel във VB формуляр

Показването на електронна таблица от Microsoft Excel във Visual Basic .NET проект е полезно, когато искаме да обработваме данните директно от приложението. Този урок ви води стъпка по стъпка през създаването на прост Windows Forms проект, който зарежда съдържанието на Excel файл в контрол DataGridView.

Стъпка 1 – Подготовка на Excel файла

Отворете Microsoft Excel и въведете следните данни:

• Клетка A1 – „A”
• Клетка B1 – „B”
• Клетка A2 – „Колона A”
• Клетка B2 – „Колона B”

Запазете файла като C:\ExcelFile.xlsx.

Стъпка 2 – Създаване на VB проект

Отворете Microsoft Visual Basic 2010 Express, изберете File → New Project. В прозореца Installed Templates изберете Windows Forms Application и натиснете OK. Ще се създаде форма Form1.

Стъпка 3 – Добавяне на контроли

Натиснете Ctrl+Alt+X, за да отворите панела Toolbox. Плъзнете контрол DataGridView върху Form1. След това добавете бутон Button и му задайте името Button1 (текст “Импорт”).

Стъпка 4 – Добавяне на нужните пространства

Двоен клик върху Button1 отваря кода Form1.vb. В горната част на файла, преди Public Class Form1, добавете:

Imports System.Data.OleDb

Стъпка 5 – Деклариране на DataSet и връзка към Excel

В събитието Private Sub Button1_Click(...) поставете следния код:

Dim ds As New DataSet()
Dim connectionString As String = _
    "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=C:\ExcelFile.xlsx;" & _
    "Extended Properties=\"Excel 12.0;HDR=YES\";"

Стъпка 6 – Зареждане на данните

Продължете с:

Dim adapter As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", connectionString)
adapter.TableMappings.Add("Table", "ExcelSheet")
adapter.Fill(ds)

Стъпка 7 – Показване в DataGridView

Me.DataGridView1.DataSource = ds.Tables(0)
Me.Refresh()

Стартирайте приложението (F5) и натиснете бутона “Импорт”. Таблицата от Excel ще се покаже в DataGridView.