Отказ от ответственности: это 'Прошло несколько лет с тех пор, как я (много) работал с VBA, поэтому это может быть проблемой, вызванной путаницей с тем, что по сути очень отличается от языка, с которым я обычно имею дело.

Так; Я'у нас есть рабочая книга (Excel 2010) с несколькими листами (20+), большинство из которых многостраничные. Чтобы упростить процесс печати, я хочу добавить некоторые заголовки, относящиеся к конкретному листу, в том числе имя листа, количество страниц и т. Д.

Мы написали крошечную функцию, которая должна (теоретически) сделать это для меня, итерируя по всем листам, устанавливая заголовок. Однако по какой-то причине это работает, только если заголовок пуст; если оно уже имеет значение, оно отказывается перезаписывать по неизвестной причине.

Dim sheetIndex, numsheets As Integer
sheetIndex = 1
numsheets = Sheets.Count

' Loop through each sheet, but don't set any of them to active
While sheetIndex