Экспорт данных из 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.
Там это можно

Новые блоги и статьи Все статьи Все блоги /
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@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

Решение