Еще раз об экспорте документа в Exel / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Еще раз об экспорте документа в Exel

7 сообщений из 32, страница 2 из 2

все

Еще раз об экспорте документа в Exel

#39689828

Joss

Участник

Откуда: г. Минск

Сообщения: 5 036

Рейтинг: 0 / 0

Используется функция Format ищите справку там всё подробно расписано

Пример

Код: vbnet

1.
2.

MyTime = #17:04:23#
MyStr = Format(MyTime, "hh:mm:ss")    ' Returns "17:04:23"

...

Рейтинг:

0 / 0

18.08.2018, 19:10

| Ответить | Цитировать | Написать

Еще раз об экспорте документа в Exel

#39689829

wladimirrr

Гость

JossВдогонку. Есть такой сайт "Лидер Access" - leadersoft.ru Я на нём в своё время очень пасся. Там есть куча примеров, в том числе и заполнение книги Excel - посмотри здесь тут всё что тебе надо.
Спасибо! Очень полезный ресурс!

...

Рейтинг:

0 / 0

18.08.2018, 19:30

| Ответить | Цитировать | Написать

Еще раз об экспорте документа в Exel

#39689831

wladimirrr

Гость

JossИспользуется функция Format ищите справку там всё подробно расписано

Пример

Код: vbnet

1.
2.

MyTime = #17:04:23#
MyStr = Format(MyTime, "hh:mm:ss")    ' Returns "17:04:23"

Поставил Format в запросе
SELECT Склады.Наименование, СкладРасход.Дата, Format([Время_прибытия],"Short Time") AS Вр , ....
и заработало!
Спасибо!

...

Рейтинг:

0 / 0

18.08.2018, 19:43

| Ответить | Цитировать | Написать

Еще раз об экспорте документа в Exel

#39689832

Joss

Участник

Откуда: г. Минск

Сообщения: 5 036

Рейтинг: 0 / 0

Пожалуйста!

...

Рейтинг:

0 / 0

18.08.2018, 19:53

| Ответить | Цитировать | Написать

Еще раз об экспорте документа в Exel

#39689919

wladimirrr

Гость

Остался последний вопрос по этой операции. Файл Ексель создается, открывается и тут-же закрывается.
Что надо поменять в коде, что-бы он не закрывался, а оставался открытым?

Код: vbnet

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.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.

Private Sub &#202;&#237;&#238;&#239;&#234;&#224;180_Click()
Dim XL As Object
Dim rs As DAO.Recordset
Dim sql As String


Set XL = CreateObject("excel.application")
XL.Visible = True '&#236;&#238;&#230;&#237;&#238; &#239;&#238;&#242;&#238;&#236; False
XL.Workbooks.Open FileName:=CurrentProject.Path & "\&#209;&#243;&#242;&#238;&#247;&#237;&#224;&#255;&#194;&#229;&#228;&#238;&#236;&#238;&#241;&#242;&#252;&#216;.xlt" ' &#238;&#242;&#234;&#240;&#251;&#242;&#232;&#229; &#244;&#224;&#233;&#235;&#224; &#248;&#224;&#225;&#235;&#238;&#237;&#224;

            XL.Worksheets(1).Cells(3, 6) = &#196;&#224;&#242;&#224;&#209; ' &#231;&#224;&#237;&#238;&#241;&#232;&#236; &#231;&#237;&#224;&#247;&#229;&#237;&#232;&#229; &#226; &#255;&#247;&#229;&#233;&#234;&#243;
            XL.Worksheets(1).Cells(3, 7) = &#196;&#224;&#242;&#224;&#196;&#238;
            XL.Worksheets(1).Cells(3, 8) = &#194;&#240;&#229;&#236;&#255;&#209;
            XL.Worksheets(1).Cells(3, 9) = &#194;&#240;&#229;&#236;&#255;&#196;&#238;
            XL.Worksheets(1).Cells(3, 10) = &#194;&#232;&#228;_&#242;&#238;&#239;&#235;&#232;&#226;&#224;
            XL.Worksheets(1).Cells(8, 5) = &#194;_a&#226;&#242;&#238;&#246;&#232;&#241;&#242;&#229;&#240;&#237;&#224;x
            XL.Worksheets(1).Cells(9, 5) = &#198;&#196;_&#246;&#232;&#241;&#242;&#229;&#240;&#237;&#224;x
            XL.Worksheets(1).Cells(10, 5) = &#207;&#229;&#240;&#229;&#228;&#224;&#247;&#224;_&#236;&#229;&#230;&#228;&#243;_&#241;&#234;&#235;&#224;&#228;&#224;&#236;&#232;
            XL.Worksheets(1).Cells(11, 5) = B&#238;&#231;&#226;&#240;&#224;&#242;
            XL.Worksheets(1).Cells(12, 5) = &#206;&#239;&#240;&#232;&#245;&#238;&#228;&#238;&#226;&#224;&#237;&#238;
            XL.Worksheets(1).Cells(8, 6) = &#194;_a&#226;&#242;&#238;&#246;&#232;&#241;&#242;&#229;&#240;&#237;&#224;x_&#234;&#227;
            XL.Worksheets(1).Cells(9, 6) = &#198;&#196;_&#246;&#232;&#241;&#242;&#229;&#240;&#237;&#224;x_&#234;&#227;
            XL.Worksheets(1).Cells(10, 6) = &#207;&#229;&#240;&#229;&#228;&#224;&#247;&#224;_&#236;&#229;&#230;&#228;&#243;_&#241;&#234;&#235;&#224;&#228;&#224;&#236;&#232;_&#234;&#227;
            XL.Worksheets(1).Cells(11, 6) = B&#238;&#231;&#226;&#240;&#224;&#242;_&#234;&#227;
            XL.Worksheets(1).Cells(12, 6) = &#206;&#239;&#240;&#232;&#245;&#238;&#228;&#238;&#226;&#224;&#237;&#238;_&#234;&#227;
            XL.Worksheets(1).Cells(13, 6) = O&#225;&#249;&#232;&#233;_&#239;&#240;&#232;&#245;&#238;&#228;
            XL.Worksheets(1).Cells(14, 6) = &#207;&#240;&#229;&#228;&#251;&#228;&#243;&#249;&#232;&#233;_&#238;&#241;&#242;&#224;&#242;&#238;&#234;
            XL.Worksheets(1).Cells(8, 9) = &#207;&#224;&#241;&#241;&#224;&#230;&#232;&#240;&#241;&#234;&#232;&#229;
            XL.Worksheets(1).Cells(9, 9) = &#195;&#240;&#243;&#231;&#238;&#226;&#251;&#229;
            XL.Worksheets(1).Cells(10, 9) = &#204;&#224;&#237;&#229;&#226;&#240;&#238;&#226;&#251;&#229;
            XL.Worksheets(1).Cells(11, 9) = &#210;&#238;&#235;&#234;&#224;&#247;
            XL.Worksheets(1).Cells(12, 9) = &#200;&#242;&#238;&#227;
            XL.Worksheets(1).Cells(8, 12) = &#207;&#229;&#240;&#229;&#228;&#224;&#247;&#224;&#204;&#209;
            XL.Worksheets(1).Cells(9, 12) = &#208;&#229;&#236;&#238;&#237;&#242;
            XL.Worksheets(1).Cells(10, 12) = &#213;&#238;&#231;&#240;&#224;&#225;&#238;&#242;&#224;
            XL.Worksheets(1).Cells(11, 12) = &#192;&#226;&#242;&#238;&#242;&#240;&#224;&#237;&#241;&#239;&#238;&#240;&#242;
            XL.Worksheets(1).Cells(12, 12) = &#200;&#242;&#238;&#227;&#207;&#240;&#208;&#224;&#241;&#245;
            XL.Worksheets(1).Cells(8, 13) = &#207;&#229;&#240;&#229;&#228;&#224;&#247;&#224;&#204;&#209;2
            XL.Worksheets(1).Cells(9, 13) = &#208;&#229;&#236;&#238;&#237;&#242;2
            XL.Worksheets(1).Cells(10, 13) = &#213;&#238;&#231;&#240;&#224;&#225;&#238;&#242;&#224;2
            XL.Worksheets(1).Cells(11, 13) = &#192;&#226;&#242;&#238;&#242;&#240;&#224;&#237;&#241;&#239;&#238;&#240;&#242;2
            XL.Worksheets(1).Cells(12, 13) = &#200;&#242;&#238;&#227;&#207;&#240;&#208;&#224;&#241;&#245;2
            XL.Worksheets(1).Cells(13, 13) = &#206;&#225;&#249;&#232;&#233;_&#240;&#224;&#241;&#245;&#238;&#228;
            XL.Worksheets(1).Cells(14, 13) = &#207;&#229;&#240;&#229;&#245;&#238;&#228;&#255;&#249;&#232;&#233;_&#238;&#241;&#242;&#224;&#242;&#238;&#234;
            XL.Worksheets(1).Cells(9, 14) = &#196;&#238;&#209;&#237;&#224;&#225;&#230;&#198;&#196;
            XL.Worksheets(1).Cells(11, 14) = &#207;&#238;&#241;&#235;&#229;&#209;&#237;&#224;&#225;&#230;&#198;&#196;
            XL.Worksheets(1).Cells(13, 14) = &#200;&#242;&#238;&#227;&#238;&#203;&#232;&#242;&#240;&#251;&#198;&#196;
            XL.Worksheets(1).Cells(9, 15) = &#196;&#238;&#209;&#237;&#224;&#225;&#230;&#192;&#226;&#242;&#238;
            XL.Worksheets(1).Cells(11, 15) = &#207;&#238;&#241;&#235;&#229;&#209;&#237;&#224;&#225;&#230;&#192;&#226;&#242;&#238;
            XL.Worksheets(1).Cells(13, 15) = &#200;&#242;&#238;&#227;&#238;&#203;&#232;&#242;&#240;&#251;&#192;&#226;&#242;&#238;
            XL.Worksheets(1).Cells(7, 16) = &#207;&#240;&#232;&#236;&#229;&#247;&#224;&#237;&#232;&#229;
            
            sql = "&#199;&#224;&#239;&#240;&#238;&#241;&#209;&#243;&#242;&#194;&#229;&#228;&#208;&#224;&#241;&#245;&#238;&#228;2"  ' &#231;&#224;&#239;&#240;&#238;&#241; &#237;&#224; &#226;&#251;&#225;&#238;&#240;&#234;&#243;

            Set rs = CurrentDb.OpenRecordset(sql) ' &#238;&#242;&#234;&#240;&#251;&#226;&#224;&#229;&#236; &#240;&#229;&#234;&#238;&#240;&#228;&#241;&#229;&#242;

            XL.Worksheets(1).Cells(18, 1).CopyFromRecordset rs ' &#239;&#238;&#236;&#229;&#249;&#224;&#229;&#236; &#226;&#251;&#225;&#238;&#240;&#234;&#243; &#237;&#224;&#247;&#232;&#237;&#224;&#255; &#241; 18 &#241;&#242;&#240;&#238;&#234;&#232; &#241; 1 &#241;&#242;&#238;&#235;&#225;&#246;&#224;

            XL.ActiveWorkbook.SaveAs FileName:=CurrentProject.Path & "\" & "&#209;&#243;&#242;&#238;&#247;&#237;&#224;&#255;&#194;&#229;&#228;&#238;&#236;&#238;&#241;&#242;&#252;" & [&#196;&#224;&#242;&#224;&#209;] & ".xls" ' &#239;&#243;&#242;&#252; &#232; &#232;&#236;&#255; &#226;&#251;&#245;&#238;&#228;&#237;&#238;&#227;&#238; &#244;&#224;&#233;&#235;&#224;
            XL.ActiveWindow.Close

  rs.Close
  Set rs = Nothing
  
  XL.Quit
  Set XL = Nothing
End Sub

...

Рейтинг:

0 / 0

19.08.2018, 11:51

| Ответить | Цитировать | Написать

Еще раз об экспорте документа в Exel

#39689925

wladimirrr

Гость

Блин, в предварительном просмотре все нормально отображалось(.
Так надежнее.

...

Рейтинг:

0 / 0

19.08.2018, 11:59

| Ответить | Цитировать | Написать

Еще раз об экспорте документа в Exel

#39690094

Joss

Участник

Откуда: г. Минск

Сообщения: 5 036

Рейтинг: 0 / 0

А зачем? Файл создаётся, а потом его закрывать вручную?

Честно говоря, не помню, как это делается. Попробуйте закомментировать

Код: vbnet

            XL.ActiveWindow.Close

...

Рейтинг:

0 / 0

19.08.2018, 21:20

| Ответить | Цитировать | Написать

7 сообщений из 32, страница 2 из 2

все

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Еще раз об экспорте документа в Exel

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&gotonew=1&tid=1611234]:	0ms
get settings:	8ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	54ms
get topic data:	10ms
get first new msg:	6ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	1ms
others:	12ms

total:	150ms