ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли задать шрифт в выгружаемом EXCEL файле
18 сообщений из 18, страница 1 из 1
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063606
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
При выгрузке запроса в EXCEL, возможно ли как то предусмотреть, что бы шрифт листа
был Arial, например. То есть задать шрифт по умолчанию.

Код: vbnet
1.
 DoCmd.TransferSpreadsheet acExport, , "Мой_Запрос", STR_TEMP_PATCH, True, ""


А то там "MS Sans Serif получается". Не очень читабелен он.

------------------------------------------------------------------------
Спасибо за ответ.
...
Рейтинг: 0 / 0
18.04.2021, 18:57
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063645
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Вариант выберите сами:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub cmb_Click()
Dim objExcel As Object, wb As Workbook, ws As Worksheet
DoCmd.TransferSpreadsheet acExport, 8, "клиенты", "D:\F.xls"
Set objExcel = New Excel.Application
objExcel.Visible = False 'в фоновом режиме,true активирует окно,убрать последнюю строку кода
Set wb = objExcel.Workbooks.Open("D:\F.xls")
Set ws = wb.ActiveSheet
ws.Cells.Font.Name = "arial" 'или блок with(если меняете много свойств)
ws.Cells.Font.Size = 10
ws.Cells.Font.Bold = False '"умолчательно"-не писать
wb.Close (True)
End Sub

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub cmb1_Click()
Dim xlApp As Excel.Application, wb As Workbook, ws As Worksheet
DoCmd.TransferSpreadsheet acExport, 8, "клиенты", "D:\F.xls"
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set wb = xlApp.Workbooks.Open("D:\F.xls")
Set ws = wb.ActiveSheet
ws.Cells.Font.Name = "tahoma"
ws.Cells.Font.Size = 8
ws.Cells.Font.Bold = True
wb.Close (True)
End Sub

не забудьте библиотеку Excel
...
Рейтинг: 0 / 0
18.04.2021, 22:07
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063652
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
sdku,
Спасибо большое.
Но в таком случае, программка будет зависеть от версии установленного EXCEL_я
То есть ссылку я прикреплю на одну версию офиса, а на другой машине оно работать не станет?
...
Рейтинг: 0 / 0
18.04.2021, 22:25
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063653
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
час58,
А Вы попробуйте(о какой версии Ёкселя офиса речь-времен царя Гороха?)
...
Рейтинг: 0 / 0
18.04.2021, 22:35
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063655
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Может ошибаюсь(не помню)но этот пример валялся в "помойке" и делался в офисе 2007-в 2010 все работает-а насчет наоборот не знаю
...
Рейтинг: 0 / 0
18.04.2021, 22:45
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063789
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
час58, объявите переменные как Object и отключите библиотеку Excel.
...
Рейтинг: 0 / 0
19.04.2021, 12:25
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063878
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Кривцов Анатолий,
Да. Точно!
...
Рейтинг: 0 / 0
19.04.2021, 14:37
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063879
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
sdku
час58,
А Вы попробуйте(о какой версии Ёкселя офиса речь-времен царя Гороха?)

В любом случае - Спасибо!
...
Рейтинг: 0 / 0
19.04.2021, 14:38
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063936
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
После выполнения этой функции, процесс EXCEl остаётся висеть.
Появляется резервная копия файла
Код: html
1.
Резервная копия Мой_Запрос.xlk



И дальнейшие работы с файлом не возможны,пока через диспетчер задач, не удалить процесс вручную.
Какая причина может быть?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Function ZADATb_FONT(STR_PATCH As String)

  Dim objExcelApp As Object
  Dim wb As Object
  Dim ws As Object
  
     Set objExcelApp = CreateObject("Excel.Application")
     Set wb = objExcelApp.Workbooks.Open(STR_PATCH)
     Set ws = wb.Sheets(1)
     
    ws.Cells.Font.Name = "Arial"
    ws.Cells.Font.Size = 10
    ws.Cells.Font.Bold = False

     wb.Save
     wb.Close False
     Set wb = Nothing
     objExcelApp.Quit
     Set objExcelApp = Nothing

End Function
...
Рейтинг: 0 / 0
19.04.2021, 16:07
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063938
booby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
booby
Участник
час58,

добавьте перед очисткой переменной wb
Set ws = Nothing
и уберите objExcelApp.Quit - это лишнее
...
Рейтинг: 0 / 0
19.04.2021, 16:18
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40063957
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
booby,
Сделал так
Код: vbnet
1.
2.
3.
4.
5.
6.
  
    Set ws = Nothing
     wb.Save
     wb.Close False
    Set wb = Nothing
    Set objExcelApp = Nothing



Процесс перестал виснуть.

Появляется резервная копия файла
Резервная копия Мой_Запрос.xlk
...
Рейтинг: 0 / 0
19.04.2021, 17:33
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40064012
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
час58,
А так все работает корректно (без библиотеки Ёксель):
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub cmb_Click()
Dim objExcel As Object, wb As Object, ws As Object
DoCmd.TransferSpreadsheet acExport, 8, "клиенты", "D:\F.xls"
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False 'в фоновом режиме,true активирует окно-заремить wb.Close
Set wb = objExcel.Workbooks.Open("D:\F.xls")
Set ws = wb.ActiveSheet
ws.Cells.Font.Name = "arial" 'или блок with
ws.Cells.Font.Size = 10
ws.Cells.Font.Bold = False
wb.Close (True)
End Sub
...
Рейтинг: 0 / 0
19.04.2021, 20:56
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40064018
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
вдогонку: у Вас в 22310599 пропущен второй аргумент,который по умолчанию 0-а это Excel3-может здесь "собака порылась"
...
Рейтинг: 0 / 0
19.04.2021, 21:10
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40064024
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
sdku,
Попробую.
...
Рейтинг: 0 / 0
19.04.2021, 21:51
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40064025
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
sdku
вдогонку: у Вас в 22310599 пропущен второй аргумент,который по умолчанию 0-а это Excel3-может здесь "собака порылась"

Если аргумент пропущен, то используется тот EXCEL , что установлен на компутере.
Я так понял.
...
Рейтинг: 0 / 0
19.04.2021, 21:52
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40064027
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
sdku,
Вообще я сделал так
Появляется резервная копия файла
Код: html
1.
Резервная копия Мой_Запрос.xlk


Просто, тупо удаляю этот навязчивый файл. Потому как причину его появления не знаю.
--------------------------------------------------------
Код: html
1.
2.
3.
Файл XLK — это просто резервная копия текущего файла XLS , который редактируется. Excel создает эти файлы автоматически в случае, если что-то идет не так с документом Excel. Если, например, файл поврежден до такой степени, что его нельзя использовать больше, файл XLK действует как файл восстановления.

Файлы XLK также могут создаваться при экспорте информации из Microsoft Access в Microsoft Excel.
...
Рейтинг: 0 / 0
19.04.2021, 21:54
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40064050
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
час58,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Function ZADATb_FONT(STR_PATCH As String,  strTableName As String)

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strTableName, STR_PATCH, 1
    If Len(Dir$(STR_PATCH)) > 0 Then
        With GetObject(STR_PATCH)
                With .Worksheets(strTableName).Cells.Font
                    .Name = "Arial"
                End With
            .Windows(1).Visible = True
            .Close True
        End With
    End If
End Function
...
Рейтинг: 0 / 0
20.04.2021, 05:32
| Ответить | Цитировать | Написать  
Можно ли задать шрифт в выгружаемом EXCEL файле
    #40064101
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Спасибо Панург,
Классно оформлена функция!
...
Рейтинг: 0 / 0
20.04.2021, 10:48
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли задать шрифт в выгружаемом EXCEL файле
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=40063645&tid=1609710]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 181ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 13ms
total:  296ms
созд. / загр.: 296ms
x
x
Закрыть


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