Макрос на Visual Basic for Application для загрузки данных из Excel в Access

 

Sub LoadExcel()

 

Dim name As String

Dim oborot, pribil As Double

 

Dim Exc As Object

Set Exc = CreateObject("Excel.Application")

Exc.Visible = False

Exc.DisplayAlerts = False

Exc.Workbooks.Open "G:\TOP400.xls"

 

For i = 2 To 401 Step 1

   name = Trim(Exc.Worksheets("TOP400").Cells(i, 2).Value)

   oborot = CDbl(Exc.Worksheets("TOP400").Cells(i, 4).Value)

   pribil = CDbl(Exc.Worksheets("TOP400").Cells(i, 6).Value)

   sql = "INSERT INTO Corporation (Corporation_name,Country,Type1,Оборот,Прибыль) VALUES ('" + Trim(name) + "','1','12','" + Trim(CStr(oborot)) + "','" + Trim(CStr(pribil)) + "')"

   CurrentDb.Execute sql ' вставляем индикатор

 

Next i

Exc.Quit

Set Exc = Nothing

End Sub

 

 

 

Конструктор тестов из Экселя в Ворд (на VBA)
Макрос VBA из Excel в Access
Макрос VBA из RSS-ленты в Access
Макрос VBA из текстового файла в Access
Примеры макросов работы с Visio из под Access
Пример макроса для работы в Power Point
Главная (Апшеронск)


Рейтинг@Mail.ru

 
 
Разделы сайта:
Апшеронск Спорт VBA Форекс Сочи-2014 Нейросети Студентам
Связь с Администратором сайта, E-mail: apsheronka@mail.ru
Апшеронск, Краснодарский край

Размещение рекламы на сайте
Карта сайта

При перепечатке материалов сайта http://apsheronsk.bozo.ru - обязательная активная гиперссылка на сайт!