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

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

Wend

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

Next

End If

Проверка наличия в книге искомого листа

End Sub

В книге ищется лист «Sheet1».

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

For Each sheet In Worksheets

If sheet.Name = "Sheet1" Then

MsgBox "Sheet1 существует"

Exit For

Перед работой в 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

MsgBox "ГОТОВО"

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

Перед работой в 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

Код открывает файл не отображая его, добавляет в ячейку А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

Дата добавления: 2014-11-07