Открытие из Excel базы данных и считывание данных из ее таблицы в ячейки листа

 

Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.

 

Dim WS As Workspace

Dim DB As Database

Dim RS As Recordset

Dim strSQL As String

Dim strDBPath As String

Dim i As Integer

 

strDBPath = "C:\Program Files\Microsoft Visual _ Studio\VB98\Biblio.mdb"'Путь к Базе Данных

'Открываем рабочую область:

Set WS = DBEngine.Workspaces(0)

'Открываем БД, где strDBPath – полный путь к БД (у вас он 'может быть чуть иным), False – означает, что мы открываем 'БД не в режиме Exclusive (False), и для Read\Write

'(False)

Set DB = WS.OpenDatabase(strDBPath, False, False)

'Открываем таблицу Publishers, записываем в стринговую переменню SQL запрос и передаем Рекордсету

strSQL = "SELECT PubID, Name, Address, City, Telephone FROM Publishers"

Set RS = DB.OpenRecordset(strSQL)

'Производим в цикле запись из БД согласно SQL запросу на

'лист Excel

i = 2

While RS.EOF = False

Sheets("sheet1").Range("a" + LTrim(Str(i))) = _ RS.Fields(0)

Sheets("sheet1").Range("b" + LTrim(Str(i))) = _ RS.Fields(1)

Sheets("sheet1").Range("c" + LTrim(Str(i))) = _ RS.Fields(2)

Sheets("sheet1").Range("d" + LTrim(Str(i))) = _ RS.Fields(3)

Sheets("sheet1").Range("e" + LTrim(Str(i))) = _ RS.Fields(4)

i = i + 1

RS.MoveNext

Wend

MsgBox "ГОТОВО"

Создание нового файла Excel

 

Код создает новый файл и новый лист.

Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.

 

Set objExcel = New Excel.Application

objExcel.Visible = False

Set objWB = objExcel.Workbooks.Add

Set objSH = objExcel.Worksheets.Add

objExcel.ActiveWorkbook.SaveAs "Путь и имя файла"

objExcel.Quit

Set objExcel = Nothing

MsgBox "Файл " & "Путь и имя файла" & " создан", vbInformation, Tit

 

 

Добавление в ячейку данных через Visual Basic

 

Код открывает файл не отображая его, добавляет в ячейку А2 текст «Visual Basic», сохраняет и закрывает файл.

Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.

 

Dim Ex As New Excel.Application

 

Ex.Workbooks.Open <путь к Файлу>

Ex.Visible = False

'В ячейку "A2" добавляем "Visual Basic"

Ex.ActiveWorkbook.Sheets.Application.Range("A2") = "Visual_ Basic"

Ex.ActiveWorkbook.Save

Ex.ActiveWorkbook.Close

 

 

Вставка рисунка на лист

 

Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.

 

XL.Range("A1").Select 'установить курсор в ячейку А1

XL.ActiveSheet.Pictures.Insert("C:\Picture.jpg").Select _ 'вставить рисунок в выбранную ячейку

 

 

Вырезание, копирование и вставка копированием

 

Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.

 

Private Sub UserForm_Initialize()

TextBox1.Text = "Cut This text and Paste in Textbox2"

CommandButton1.Caption = "Cut and Paste"

CommandButton1.AutoSize = True

End Sub

 

Private Sub CommandButton1_Click()

TextBox1.SelStart = 0

TextBox1.SelLength = TextBox1.TextLength

TextBox1.Cut

'TextBox1.Copy

TextBox2.SetFocus

TextBox2.SelStart = 0

TextBox2.Paste

TextBox2.SelStart = 0

End Sub

 

 

Подсчет суммы в заданных ячейках

 

Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.

 

Dim Ex As New Excel.Application

Ex.Workbooks.Open "Путь к файлу"

Ex.Visible = False

Ex.ActiveWorkbook.Sheets.Application.Range("B1:B14").Select

Ex.ActiveWorkbook.Sheets.Application.Range("B14").Activate

Ex.ActiveWorkbook.Sheets.Application.ActiveCell.FormulaR1C1 = "=SUM(R[-13]C:R[-1]C)"

Ex.ActiveWorkbook.Sheets.Application.Range("B14").Select

Text1.Text = _ Ex.ActiveWorkbook.Sheets.Application.Range("B14")

Ex.ActiveWorkbook.Save

Ex.ActiveWorkbook.Close

 

[1] Адрес ссылки