0 / 0 / 0
Регистрация: 09.04.2019
Сообщений: 7
1

Работа с колонтитулами Excel

09.04.2019, 19:11. Показов 661. Ответов 4
Метки нет (Все метки)

Всем привет.

Создаю программу.
Необходимо, чтобы она вписывала в колонтитул файлов excel определенную информацию.
Как заставить программу это сделать? Какими средствами подобраться к колонтитулу? Библиотека?
Может кто-то знает как на другом языке это сделать?

Умные люди, отзовитесь!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2019, 19:11
Ответы с готовыми решениями:

Работа с колонтитулами на VBA
Доброго времени суток! Подскажите, пожалуйста, как решить следующую задачку: Задача:...

Работа с колонтитулами в Word
Добрый день! Подскажите пожалуйста как изменить шрифт и размер для номеров страницы в документе...

Ворд: работа с колонтитулами
Как программно можно получить номер раздела документа по текущему положению курсора? С уважением

Работа с колонтитулами в документе MS Word
Доброго времени суток! Возможно, эта тема поднималась, и не раз, но я либо туплю, либо плохо гуглю...

4
Модератор
Эксперт функциональных языков программированияЭксперт Python
29585 / 16149 / 3226
Регистрация: 12.02.2012
Сообщений: 26,710
Записей в блоге: 5
10.04.2019, 07:59 2
Когда хочется запрограммировать нечто, а не знаешь, как это сделать - используй макрорекордер. Вот создание на активной странице верхнего колонтитула:

Visual Basic
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
    With ActiveSheet.PageSetup
        .LeftHeader = "aaa"                    '!!!
        .CenterHeader = "mmm"             '!!!
        .RightHeader = "lll"                     '!!!
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
Полагаю, важны только три строки, помеченные (!!!). Остальное можно безболезненно убрать. Но я не проверял.

Добавлено через 59 секунд
И да: а при чем здесь Фортран?
0
0 / 0 / 0
Регистрация: 09.04.2019
Сообщений: 7
10.04.2019, 09:02  [ТС] 3
Спасибо за ответ.
Мне нужно это не через макрос это сделать.

Извиняюсь, если я Вас не поняла, но
у меня в итоге должна быть внешняя программа .exe с отдельной функцией ввода данных в колонтитул.
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
29585 / 16149 / 3226
Регистрация: 12.02.2012
Сообщений: 26,710
Записей в блоге: 5
10.04.2019, 10:22 4
Если вы используете достаточно новый офис, то в нем файлы - это xml-ки, упакованные zip-ом. Можно распаковать, добавить нужные тэги и запаковать. Кстати, а как ваша программа на Фортране строит excel-файл?
0
0 / 0 / 0
Регистрация: 09.04.2019
Сообщений: 7
10.04.2019, 10:29  [ТС] 5
Я пока рассматриваю и другие языки. Пока не могу найти библиотеку, которая бы позволила к колонтитулу подобраться.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2019, 10:29

Работа с колонтитулами docx через Open XML
Добрый день, уважаемые форумчане ! Появилась необходимость найти и заменить некоторые слова в...

Работа с колонтитулами: анализ групп объектов, подсчет количества фигур
Добрый день. На странице word имеется группа объектов (линии, текстовые блоки). Как обратиться к...

Глюк с колонтитулами!
Всем привет, такая проблема - когда копировал с 1 документа в другой, заглючили размера нижнего...

Поиск word документов с колонтитулами
help! Нужно организовать поиск word документам , которые содержат колонтитулы. Т.е. прошерстить...

Как вставить нумерацию страниц, осложнено колонтитулами
Здравствуйте, дорогие форумчане, в полном отчаянии прошу помощи у гуру. Подскажите пожалуйста,...

Работа с документами Excel без Microsoft.Office.Interop.Excel
всем добрый день все дело в том что для своих программ я использую БД Excel но! однако не все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.