Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли задать шрифт в выгружаемом EXCEL файле / 18 сообщений из 18, страница 1 из 1
18.04.2021, 18:57
    #40063606
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
При выгрузке запроса в EXCEL, возможно ли как то предусмотреть, что бы шрифт листа
был Arial, например. То есть задать шрифт по умолчанию.

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


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

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

В любом случае - Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2021, 16:07
    #40063936
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
После выполнения этой функции, процесс 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:18
    #40063938
booby
booby
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
час58,

добавьте перед очисткой переменной wb
Set ws = Nothing
и уберите objExcelApp.Quit - это лишнее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2021, 17:33
    #40063957
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
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, 20:56
    #40064012
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
час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, 21:10
    #40064018
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
вдогонку: у Вас в 22310599 пропущен второй аргумент,который по умолчанию 0-а это Excel3-может здесь "собака порылась"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2021, 21:51
    #40064024
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
sdku,
Попробую.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2021, 21:52
    #40064025
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
sdku
вдогонку: у Вас в 22310599 пропущен второй аргумент,который по умолчанию 0-а это Excel3-может здесь "собака порылась"

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


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

Файлы XLK также могут создаваться при экспорте информации из Microsoft Access в Microsoft Excel.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2021, 05:32
    #40064050
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
час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, 10:48
    #40064101
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли задать шрифт в выгружаемом EXCEL файле
Спасибо Панург,
Классно оформлена функция!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли задать шрифт в выгружаемом EXCEL файле / 18 сообщений из 18, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 219ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1609710]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 124ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 12ms
total:  219ms
x
x
Закрыть


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