Как да вмъкнете електронна таблица в Excel във формат VB
Стъпка 1
Отворете Microsoft Excel и въведете "A" в "A1", "B" в "B1", "Колона А" в "A2" и "Колона Б" в "B2". Запазете електронната си таблица в "C: \" като "ExcelFile.xlsx".
Стъпка 2
Отворете Microsoft Visual Basic 2010 Express, кликнете върху менюто "Файл" и изберете "Нов проект". Кликнете върху "Инсталирани шаблони", изберете "Windows Forms Application" и кликнете върху "OK".
Стъпка 3
Натиснете "Ctrl" + "Alt" + "X", за да отворите прозореца "Toolbox". Щракнете двукратно върху "DataGridView", за да добавите нов контролен контролен панел за данни към "Form1". Щракнете двукратно върху "Бутон" в "Toolbox", за да добавите нов бутон към "Form1".
Стъпка 4
Щракнете двукратно върху "Button1", за да отворите модула "Form1.vb". Въведете следното за "Public Class Form1":
Импортиране на System.Data.OleDb
Стъпка 5
Въведете следното в "Private Sub Button1_Click", за да декларирате "DataSet" и да определите връзката с Excel:
Dim ds As New DataSet () Размер на връзката DimString As String = "Provider = Microsoft.ACE.OLEDB.12.0;" & _ "Източник на данните = C: \ ExcelFile.xlsx;" & _ "Разширени свойства = Excel 12.0;"
Стъпка 6
Въведете следното, за да се свържете към файла "ExceFile.xlsx" и да завършите "DataSet":
Размерете excelData като нов OleDbDataAdapter ("SELECT * FROM [Sheet1 $]", connectionString) ExcelData.TableMappings.Add ("Таблица", "ExcelSheet") excelData.Fill (ds)
Стъпка 7
Въведете следното, за да покажете електронната таблица в изгледа на таблицата с данни:
Me.DataGridView1.DataSource = ds.Таблици (0) Me.Refresh ()
Натиснете "F5", за да стартирате програмата и натиснете "Бутон1", за да импортирате електронната таблица в Excel.