Экспорт данных из Access в Excel через VB 6.0

@Runiza · Регистрация: 01.05.2013

Студворк — интернет-сервис помощи студентам

Есть программа на vb 6.0 c БД access, нужно передать данные в excel шаблон через кнопку

@Alex77755 · 11.12.2013, 13:44

По работе с ексел на форуме куча примеров!
Искать по форуму не пробовал?
Вот, например:
Экспорт из DataGrid в Excel
Просто в строке поиска по форуму набери ексел хотя бы. Или Excel
И раздел соответствующий. Найдётся куча страниц с разными примерами и решениями

@Runiza · 11.12.2013, 15:56 **[ТС]**

я уже все изучила...
вот попробовала выходит ошика

@Alex77755 · 11.12.2013, 18:16

Какие данные хочешь (надо) передать в ексел?

Добавлено через 32 минуты
как вариант можно так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub DoCmd_Click()
Dim Ex As Object
Dim R, C, j, M(), Z()
Dim R0, C0
With Me.Adodc1.Recordset
R0 = .RecordCount
C0 = .Fields.Count
If R0 * C0 = 0 Then Exit Sub
    ReDim Z(R0, C0)
     .MoveLast
     .MoveFirst
        For R = 0 To R0 - 1
            For C = 0 To C0 - 1
                       Z(R, C) = .Fields(C)
            Next
            .MoveNext
        Next
Set Ex = CreateObject("Excel.Application")
Ex.Workbooks.Open App.Path & "\x.xls"
Ex.Visible = True
End With
 
With Ex.sheets(1)
    .Select
    .range(.cells(1, 1), .cells(R0, C0)) = Z
End With
 
End Sub

grdDataGrid тебе нухен для чего-то? для передачи данных в ексел он не нужен

@Runiza · 18.12.2013, 08:53 **[ТС]**

Alex77755, как можно в определенные только ячейки вставить данные
vba знаю можно:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim app As Excel.Application
Dim strDOT As String
Set app = New Excel.Application
app.Visible = True
app.Workbooks.Add strDOT
    With Application.CurrentProject
    strDOT = .Path & "\" & "Приход.xlt"
    End With    
With app.ActiveWorkbook.Sheets(1)
'Вставка в ячейку А1 Номера прихода с формы  
.[А1] = Forms![Приход]![Номер прихода]
'и т.д.
End With

как vb 6 так сделать можно????

@Alex77755 · 18.12.2013, 10:14

А что не так в примере выше?
открывается файл x.xls находящийся рядом с программой.
В range(.cells(1, 1), .cells(R0, C0)) вставляется массив из рекордсета.
Ну встасвляй в нужные ячейки нужные данные.

Visual Basic
1
.cells(1, 1) = "Вася"

в ячейке А1 будет Вася
Также можно обратиться к этой ячейке и как .Range("A1") и как .[a1]

@Runiza · 18.12.2013, 10:35 **[ТС]**

Alex77755, Спасибо)))
можно еще вопрос не по теме
как можно поменять цвет фона или текста строки Data Grid если нет данных в поле в данной строке или подскажите другие функции как можно сделать так???

@Alex77755 · 18.12.2013, 16:05

Насколько я знаю в этом контроле Data Grid это невозможно
Юзай MSFlexGrid или MSHFlexGrid.
Там это можно

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	11.12.2013, 13:44
	По работе с ексел на форуме куча примеров! Искать по форуму не пробовал? Вот, например: Экспорт из DataGrid в Excel Просто в строке поиска по форуму набери ексел хотя бы. Или Excel И раздел соответствующий. Найдётся куча страниц с разными примерами и решениями 0

@Runiza 0 / 0 / 0 Регистрация: 01.05.2013 Сообщений: 14
	18.12.2013, 10:35 [ТС]
	Alex77755, Спасибо))) можно еще вопрос не по теме как можно поменять цвет фона или текста строки Data Grid если нет данных в поле в данной строке или подскажите другие функции как можно сделать так??? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.12.2013, 16:05
	Насколько я знаю в этом контроле Data Grid это невозможно Юзай MSFlexGrid или MSHFlexGrid. Там это можно 0

Экспорт данных из Access в Excel через VB 6.0

Решение