Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / из Access в Excel / 25 сообщений из 31, страница 1 из 2
  1  все
30.06.2004, 17:28:11
    #32583931
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Знаю точно, что кто-нибудь да писал такой код.
Необходимо таблу из Акса поместить в Ексел, подкиньте кода, очень нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.06.2004, 17:29:18
    #32583935
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
http://www.sql.ru/forum/actualsearch.aspx?search=%FD%EA%F1%EF%EE%F0%F2+Excel&a=&ma=0&bid=4&dt=-1&s=1&so=1

типа поиск
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.06.2004, 17:38:38
    #32583959
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
/topic/102838&pg=2

только что делал!

ты видно не Прога а Сплюха
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 12:37:37
    #32584952
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
to shuhard:
Посмотрел базу прикольно, только вопрос такой, а можно ли сделать, чтобы суммарные значения (поля жирным текстом) считались не в Аксе, а в Ексе (например: поле имеет значение СУмм(E1:e100)) и самое интересное, как это сделать.
С нетерпением жду ответа.
P.S. Начальник- урод, видите ли ему не нравится расчёт суммы в Аксе с передачей готовой таблицы в Ексел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 12:54:32
    #32584998
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Progato shuhard:
Посмотрел базу прикольно, только вопрос такой, а можно ли сделать, чтобы суммарные значения (поля жирным текстом) считались не в Аксе, а в Ексе (например: поле имеет значение СУмм(E1:e100)) и самое интересное, как это сделать.
С нетерпением жду ответа.
P.S. Начальник- урод, видите ли ему не нравится расчёт суммы в Аксе с передачей готовой таблицы в Ексел.

а макрос в Excel писать ты конечно не умеешь ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Макрос3()
 '
 
 ' Макрос3 Макрос
 
 ' Макрос записан 01.07.2004 (Inna)
 
 '
 
 '
 
    Range("F7").Select
    ActiveCell.Formula = "=$C$4+$C$10"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 12:56:23
    #32585005
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
в догон сумма по диапазону будет соответственно
Код: plaintext
1.
2.
3.
Range("F7").Select
    ActiveCell.Formula = "=SUM($C$4:$C$10)"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 13:40:36
    #32585171
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Я в Excel-е чайник, можно по конкретнее
куда нада добавить
Код: plaintext
1.
2.
Range("F7").Select
    ActiveCell.Formula = "=SUM($C$4:$C$10)"
в
Код: plaintext
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.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
Private Sub B_Format_Click()
Dim myOlApp As Object
Dim MyWo As excel.Workbook
Dim mysheet As excel.Worksheet
Dim MyCel As Variant
Dim MyRst As ADODB.Recordset
Dim ct As Long
DoCmd.OutputTo acOutputQuery, "ZFin", acFormatXLS, "c:\inna.xls", False
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("c:\inna.xls")
Set mysheet = MyWo.Worksheets("ZFin")
 '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
Rows("1:1").Select
With Selection
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation =  90 
        .AddIndent = False
        .IndentLevel =  0 
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Rows.AutoFit
 '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
Set MyRst = New ADODB.Recordset
MyRst.Open "select * from UZ7", CurrentProject.Connection, adOpenStatic, adLockReadOnly
ct =  2 
Do Until MyRst.EOF
   If MyRst![Rang_Id] <=  0  Then
     Cells(ct,  1 ).Select
    Selection.Font.Bold = True
    Selection.Font.Italic = True
   End If
ct = ct +  1 
MyRst.MoveNext
Loop
MyRst.Close
Set MyRst = Nothing
 '++++++++++++++++++++++++
 
MyWo.Save
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing
Application.Quit
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 13:47:12
    #32585191
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
автор
Я в Excel-е чайник, можно по конкретнее
куда нада добавить
Range("F7").Select
ActiveCell.Formula = "=SUM($C$4:$C$10)"

на каждую суммы надо добавить по 1(одной) строчке вышепреведённого типа

вставить надо в любое место текста
после
Set mysheet = MyWo.Worksheets("ZFin")

Range("F1").Select
ActiveCell.Formula = "=SUM($A$1:$C$1)"
Range("F2").Select
ActiveCell.Formula = "=SUM($A$2:$C$2)"
...
.
.
.
и до
MyWo.Save

соответственно я НЕ МОГУ предугадать :
- в каких ячейках нужна сумма;
- какие ячейки она(сумма) в себя включает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 13:51:03
    #32585207
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Огромное спасибо, буду пробовать!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 14:06:56
    #32585253
Витал
Витал
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Советую не наворачивать лишнего кода.
Range("F1").Select
ActiveCell.Formula = "=SUM($A$1:$C$1)"
достаточно просто
Код: plaintext
Range("F1").Formula = "=SUM($A$1:$C$1)"
При этом если не известно количество строк в итоговой таблице, желательно их вычислить.
Если заголовки в первой строке, то:
Код: plaintext
1.
2.
Dim nRows As Long
nRows = Range("A1").CurrentRegion.Rows.Count
Range("F1").Formula = "=SUM($A$2:$A$" & nRows & ")"
В ячейку F1 будет вставлена функция суммирующая значения в диапазоне от ячейки A2 до А[номер последней строки].
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 14:14:00
    #32585284
Витал
Витал
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
То бишь выбирать ячейку (Select), чтобы присвоить ей значение (формулу), совершенно не обязательно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 14:15:24
    #32585289
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
спасибо Витал за CurrentRegion.Rows.Count - изящное решение проблемы !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 14:23:43
    #32585327
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Ребята, а вы гении!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 14:28:40
    #32585346
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
ProgaРебята, а вы гении!!!
а ты сомневался ?
у нас и значок есть!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 14:30:01
    #32585350
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
И орден за мужество в Выслушивании мне подобных
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 15:22:26
    #32585517
Витал
Витал
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
ProgaИ орден за мужество в Выслушивании мне подобных

Через месяц другой, если не забудешь про форум и не будешь бояться отвечать - можешь и сам вертеть дырку под орденок.

Кстати, напоминаю, что на этом форуме учреждены ордена "Знатный телепят", "Занятный телепят" и высший орден - "Лох Позорный" (1,2,3 степени) с гигабайтом в петлице. И еще какие то медальки... Председатель комиссии - Владимир Саныч, но он взятки берет только фруктовым сиропом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 13:05:49
    #32586982
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
to Shuhard:
Нашёл глюк не знаю как справиться!!!
Если В конце не писать
Код: plaintext
1.
application.exit
,
т.е. не закрывать Access, то при вторичном нажатии на кнопку экспорта выдаёт ошибку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 13:08:33
    #32586986
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
ВиталКстати, напоминаю, что на этом форуме учреждены ордена "Знатный телепят", "Занятный телепят" и высший орден - "Лох Позорный" (1,2,3 степени) с гигабайтом в петлице. И еще какие то медальки... Председатель комиссии - Владимир Саныч, но он взятки берет только фруктовым сиропом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 13:12:39
    #32586996
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Shuhard, АУ, ты очень нужен!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 13:20:40
    #32587017
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
нет не вы гении, я-гений, исправил глюк:

Код: plaintext
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.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
Private Sub B_Format_Click()
Dim myOlApp As excel.Application
Dim MyWo As excel.Workbook
Dim mysheet As excel.Worksheet
Dim MyCel As Variant
Dim MyRst As ADODB.Recordset
Dim ct As Long
DoCmd.OutputTo acOutputQuery, "ZFin", acFormatXLS, "c:\inna.xls", False
Set myOlApp = New excel.Application
Set MyWo = myOlApp.Workbooks.Open("c:\inna.xls")
Set mysheet = MyWo.Worksheets("ZFin")
 '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
Rows("1:1").Select
With Selection
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation =  90 
        .AddIndent = False
        .IndentLevel =  0 
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Rows.AutoFit
 '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
Set MyRst = New ADODB.Recordset
MyRst.Open "select * from UZ7", CurrentProject.Connection, adOpenStatic, adLockReadOnly
ct =  2 
Do Until MyRst.EOF
   If MyRst![Rang_Id] <=  0  Then
     Cells(ct,  1 ).Select
    Selection.Font.Bold = True
    Selection.Font.Italic = True
   End If
ct = ct +  1 
MyRst.MoveNext
Loop
MyRst.Close
Set MyRst = Nothing
 'CurrentRegion.Row.Count
 
 '++++++++++++++++++++++++
 
MyWo.Save
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing
myOlApp.Quit
Set myOlApp = Nothing
End Sub
Пример использования раннего и позднего связывания
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 13:35:00
    #32587062
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Опа, опять глючит зачит я тоже не гений.
Shuhard, ты где?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 13:37:03
    #32587068
Витал
Витал
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Делать подобные открытия на дню по 10-ку - обычная работа программера. Не скажу, что при этом не испытываю радость открытия... :о))

"О, сколько нам открытий чудных
Готовит просвещенья дух,
И опыт, сын ошибок трудных,
И гений, парадоксов друг,
И случай, Бог-изобретатель..."
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 13:38:23
    #32587072
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Витал, помог бы, ошибка глупая, но непонятная
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 13:39:58
    #32587078
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
Между прочим глючит именно
Код: plaintext
1.
nRows = Range("A1").CurrentRegion.Rows.Count
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 13:41:45
    #32587084
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Access в Excel
ProgaОпа, опять глючит зачит я тоже не гений.
Больной, рассказывайте, как глючит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / из Access в Excel / 25 сообщений из 31, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 481ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1673455]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 180ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 197ms
total:  481ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]