Jak wstawić arkusz kalkulacyjny Excel do formularza VB
Krok 1
Otwórz Microsoft Excel i wpisz "A" w "A1", "B" w "B1", "Kolumna A" w "A2" i "Kolumna B" w "B2". Zapisz arkusz kalkulacyjny w "C: \" jako "ExcelFile.xlsx".
Krok 2
Otwórz Microsoft Visual Basic 2010 Express, kliknij menu "Plik" i wybierz "Nowy projekt". Kliknij "Zainstalowane szablony", wybierz "Windows Forms Application" i kliknij "OK".
Krok 3
Naciśnij "Ctrl" + "Alt" + "X", aby otworzyć okno "Toolbox". Kliknij dwukrotnie "DataGridView", aby dodać nową kontrolkę widoku danych siatki do "Form1". Kliknij dwukrotnie "Button" w "Toolbox", aby dodać nowy przycisk do "Form1".
Krok 4
Kliknij dwukrotnie "Button1", aby otworzyć moduł "Form1.vb". Wprowadź następujące informacje o "Public Class Form1":
Importuje System.Data.OleDb
Krok 5
Wprowadź następujące polecenie w "Prywatny przycisk podrzędny1_Kliknij", aby zadeklarować "Zestaw danych" i zdefiniuj połączenie za pomocą programu Excel:
Dim ds As New DataSet () Dim connectionString As String = "Dostawca = Microsoft.ACE.OLEDB.12.0;" & _ "Źródło danych = C: \ ExcelFile.xlsx;" & _ "Właściwości rozszerzone = Excel 12.0;"
Krok 6
Wprowadź następujące dane, aby połączyć się z plikiem "ExceFile.xlsx" i uzupełnij "DataSet":
Dim excelData Jako nowy OleDbDataAdapter ("SELECT * FROM [Sheet1 $]", connectionString) excelData.TableMappings.Add ("Tabela", "ExcelSheet") excelData.Fill (ds)
Krok 7
Wprowadź poniższe informacje, aby wyświetlić arkusz kalkulacyjny w widoku siatki danych:
Me.DataGridView1.DataSource = ds.Tables (0) Me.Refresh ()
Naciśnij "F5", aby uruchomić program i naciśnij "Button1", aby zaimportować arkusz kalkulacyjny Excel.