Перед работой в 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] Адрес ссылки
