ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отчеты, отображение данных о клиенте\предприятии???
22 сообщений из 72, страница 3 из 3
  3  все
Отчеты, отображение данных о клиенте\предприятии???
    #32620212
(c)VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(c)VIG
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 '.................
 
    mysheet.Range("a" & URang & ":" & "a" & URang1).Select  ' Вроде выделил
 
    With myOlApp.Selection
        .VerticalAlignment = xlJustify  ' Операции -?
 
        .MergeCells = True
     End With
     mysheet.Range("a" & URang )=somevalue
'.................
...
Рейтинг: 0 / 0
25.07.2004, 09:27:22
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620223
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
перед слиянием - почистим(Clear) ячейки со строки +1 граница
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("c:\madg.xls")
Set mysheet = MyWo.Worksheets("Лист1")
    Range(Cells( 7 ,  2 ), Cells( 12 ,  2 )).Clear
    Range(Cells( 6 ,  2 ), Cells( 12 ,  2 )).VerticalAlignment = xlJustify
    Range(Cells( 6 ,  2 ), Cells( 12 ,  2 )).MergeCells = True
MyWo.Save
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing
Set myOlApp = Nothing
...
Рейтинг: 0 / 0
25.07.2004, 10:39:41
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620230
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Shuhard вот спасибо, теперь оно вопросов не задает !!!!Ура!!! :)

Ага, молча теперь данные объединяет, а ЯЧЕЙКИ нет :(

Ч то это заразе надо???
...
Рейтинг: 0 / 0
25.07.2004, 11:06:35
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620234
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
пакажи фрагмент кода - нет-ли ошибки в диапазонах
на картинке результат действия вышеописанного кода
Access/Excel/OS - XP
...
Рейтинг: 0 / 0
25.07.2004, 11:16:57
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620236
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Вот как раз хотел выкинуть вюю процедуру!!!
Она на три листа, посему кидаю в *.doc формате, что не занимать место...
Если это не првильно, скажите плиз....
...
Рейтинг: 0 / 0
25.07.2004, 11:22:54
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620239
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Shuhard это, как наверное заметил, твоя процедурка, в которую я внес немного идиотизма...:( или не все так плохо?

Это я к тому, что она прицепится к ZFin...
...
Рейтинг: 0 / 0
25.07.2004, 11:28:45
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620243
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
madgВот как раз хотел выкинуть вюю процедуру!!!
Она на три листа, посему кидаю в *.doc формате, что не занимать место...
Если это не првильно, скажите плиз....

всё смотреть не буду - выдели кусок занятый слияниями ячеек + сделай для него отдельный тестик - тогда будет дискуссия!
...
Рейтинг: 0 / 0
25.07.2004, 11:48:45
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620287
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Вынес полностью с переменными и т..д., проверил.
Работает.

Скопировал полностью с переменными и т.д. Вставил в нужное место в своем коде, не работает... :(

Остается выделенным последний диапазон, данные объединены, ячейки нет...
Ничего не пойму...
...
Рейтинг: 0 / 0
25.07.2004, 14:55:00
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620296
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Не совсем так...
Сохраняю своим кодом файл "inna.xls".
Смотрю чего там. Обрамление, курсивы, жирности отработаны.

Закрываю.

"Отдельным" кодом отрабатываю слияние.
Смотрю чего там. Нифига!!! Объединения нет.
Накрыло... Чего случайно изменил...
Выскочило сообщение с.м. рисунок.
Подтвердил.

Отработал "отдельным" кодом - РАБОТАЕ!Т!!
Проверил раз пять.

Неработает только если формат файла 5,0-95, если формат обновить все ОК.

Посему вопрос можно указать формат сохраняемого файла?
Сейчас конечно буду сам искать, но помощь вероятно понадобится :)
...
Рейтинг: 0 / 0
25.07.2004, 15:11:19
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620299
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Офис 2003
Версия файла Акса - 2000
...
Рейтинг: 0 / 0
25.07.2004, 15:21:52
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620303
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
во избежании такого казуса всегда можно сохранить в новый файл в конкретном формате
Код: plaintext
1.
ActiveWorkbook.SaveAs Filename:="C:\inna.xls", FileFormat:=xlExcel5

автор
xlExcel2FarEast
xlExcel4
xlAddIn
xlCSVMac
xlCSVWindows
xlDBF2
xlDBF4
xlExcel2
xlExcel3
xlExcel4Workbook
xlExcel5
xlExcel7
xlExcel9795
...
Рейтинг: 0 / 0
25.07.2004, 15:28:45
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620307
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
В макросе Екса записал сохранить как:
Код: plaintext
1.
2.
3.
    ActiveWorkbook.SaveAs Filename:="C:\inna_11.xls", FileFormat:=xlExcel9795, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Куда :FileFormat:=xlExcel9795: вставить в Ассесс? - снято ответом Шугард...
Пробую...
...
Рейтинг: 0 / 0
25.07.2004, 15:40:23
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620313
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
через запятушки с бланкированием ими-же
пора учиться F2!
...
Рейтинг: 0 / 0
25.07.2004, 16:09:43
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620316
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Учуся...
Все получается!!!
Все работает!!!

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

Для сохранения в файл использую вот:

Код: 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.
'===========
    
    WizHook.Key = 51488399
    
'==========Сохраняем в файл
    wzhwndOwner =  0 &
    wzAppName = ""
    wzDlgTitle = "Сохранить отчет"
    wzOpenTitle = "Сохранить"
    wzFile = String( 255 , Chr( 0 ))
    wzInitialDir = "c:\"
    wzFilter = "Excel file " _
    & "(*.xls)"
    wzFilterIndex =  1 
    wzView =  1 
    wzflags =  64 
    wzfOpen = False

    ret = WizHook.GetFileName(wzhwndOwner, _
    wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
    wzInitialDir, wzFilter, wzFilterIndex, _
    wzView, wzflags, wzfOpen)
    
'========== Проверка нажата ли кнопка ESC
    If ret <> -302 Then
    
'========== Если нет то:
    DoCmd.OutputTo acOutputQuery, "ZFin_O", acFormatXLS, wzFile, False
    Set myOlApp = New Excel.Application
        
    Set MyWo = myOlApp.Workbooks.Open(wzFile)
    myOlApp.ActiveWorkbook.SaveAs FileName:=wzFile, FileFormat:=xlExcel9795
    Set mysheet = MyWo.Worksheets("ZFin_O")

Может можно оптимизировать?
До этого допер сам, при помощи форума, как работает нифига не понимаю...

Довести до ума... ну дык если не понимаю...
...
Рейтинг: 0 / 0
25.07.2004, 16:24:32
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620317
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Блин, само сообщение забыл...
Вот:
...
Рейтинг: 0 / 0
25.07.2004, 16:27:50
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620332
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Код: plaintext
1.
2.
    Set MyWo = myOlApp.Workbooks.Open(wzFile)
    myOlApp.ActiveWorkbook.SaveAs FileName:=wzFile, FileFormat:=xlExcel9795
открываешь файл wzFile и сохраняешь в файл wzFile
т.е. файл ОДИН И ТОТ-ЖЕ на что Access и орёт.
надо сделать файлы РАЗНЫЕ и перед сохранением убивать оба(пару)

сделать имена разными легко - для этого сохранять во временный файлик

Код: plaintext
1.
2.
3.
4.
5.
6.
ON ERROR RESUME NEXT
Kill "c:\temp\titimiti.xls"
DoCmd.OutputTo acOutputQuery, "ZFin_O", acFormatXLS, "c:\temp\titimiti.xls", False
Kill wzFile
    Set MyWo = myOlApp.Workbooks.Open("c:\temp\titimiti.xls")
    myOlApp.ActiveWorkbook.SaveAs FileName:=wzFile, FileFormat:=xlExcel9795
...
Рейтинг: 0 / 0
25.07.2004, 17:27:14
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620337
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Заработало!!! (Кот матроскин)

Только вот как:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Kill "c:\titimiti.xls"
DoCmd.OutputTo acOutputQuery, "ZFin_O", acFormatXLS, "c:\titimiti.xls", False
Kill wzFile
[color=red]    Set myOlApp = New Excel.Application [/color]
    Set MyWo = myOlApp.Workbooks.Open("c:\titimiti.xls")
    myOlApp.ActiveWorkbook.SaveAs FileName:=wzFile, FileFormat:=xlExcel9795
    Set mysheet = MyWo.Worksheets("ZFin_O")
Kill "c:\titimiti.xls"

Пока допер...
...
Рейтинг: 0 / 0
25.07.2004, 18:11:45
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620339
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Кто нить подскажет, цвета в коде не работают? Поправьте, то как то некрасиво...

Shuhard спасибо!!!

удивительно терпеливый человек!!!
И конечно всем спасибо!!!
...
Рейтинг: 0 / 0
25.07.2004, 18:15:59
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620348
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Код: plaintext
1.
Set myOlApp = New Excel.Application
да виноват - потерял.впредь буду внимательние

Код: plaintext
1.
ON ERROR RESUME NEXT

я бы вернул - если файла нет Kill может ругнуться

P.S. madg - драйв от собственного роста чуешь!
Удачи. искренне за тебя рад!
...
Рейтинг: 0 / 0
25.07.2004, 18:49:35
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620353
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
А если в самом начале стоит:

Код: plaintext
1.
On Error GoTo Err_Кнопка32_Click

надо ли:
Код: plaintext
1.
ON ERROR RESUME NEXT

Мне казалось что нет... а вот если надо, конечно будет...
...
Рейтинг: 0 / 0
25.07.2004, 19:24:17
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620358
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
надо !RESUME NEXT означает что ошибка имеет право на существование
в нашем случае файла может не быть - это штатная ситуация и прерывать работу не надо.
...
Рейтинг: 0 / 0
25.07.2004, 19:42:29
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620366
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Логично...
Сделано!!!
...
Рейтинг: 0 / 0
25.07.2004, 20:34:05
| Ответить | Цитировать | Написать  
22 сообщений из 72, страница 3 из 3
  3  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отчеты, отображение данных о клиенте\предприятии???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32620243&tid=1672958]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 39ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 206ms
total:  316ms
созд. / загр.: 316ms
x
x
Закрыть


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