Создать отчет в Word из Excel

[seergy]

Т.е. в ваш макрос добавить

Worksheets("Лист1").Visible = True
'Ваша процедура
Worksheets("Лист1").Visible = False
А по поповоду вставки на определённый лист - не реально.
С увжением...

[VictorM]

seergy,

А по поповоду вставки на определённый лист - не реально.

почему же, скорее всего реально.
Просто я не знаток Word VBA, может кто подскажет.

[seergy]

Т.е. в ваши коды для копирования вставить Worksheets("Лист1").Visible = True
'Ваша процедура
Worksheets("Лист1").Visible = False

[VictorM]

seergy,

Т.е. в ваши коды для копирования

не важно какие коды.
Worksheets("Лист1").Visible = True
помещаете в начало процедуры, сразу после Sub для того, чтобы отобразить скрытый лист. Затем Ваши действия т.е. код. В самом конце процедуры, перед End Sub помещаете строку Worksheets("Лист1").Visible = False т.е. опять скрываете лист. Все
кстати, если не хотите, чтобы в процессе выполнения кода пользователь видел Ваш скрытый лист поместите вот такую строчку
Application.ScreenUpdating = False
только не забудьте в конце процедуры поместить
Application.ScreenUpdating =True
Вот теперь точно все.

[seergy]

Здорово, в книгах и справках научная трактовка. А вы объясняете простым языком.
Хоть для вас это элементарные вещи, как для меня расчёт выброса от ИЗА... собственно которые и модифицирую в эксель..
С уважением..

[VictorM]

Зато я не знаю как делают

расчёт выброса от ИЗА

да и что это такое - тоже
С уважением Виктор.

[seergy]

Источник загрязнения атмосферы - я инженер по охоане окружающей среды... и много считаю в эксель...
С уважением....

[evgenius_b]

Подскажите, пожалуйста, как вставлять в Word картинки (файлы .bmp), чтобы они масштабировались по ширине страницы. А то у меня вылазят за пределы:

Sub TypeParf()
Dim appWD As Word.Application
Dim ActDoc As Word.Document
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.Documents.Add
Set ActDoc = appWD.Application.ActiveDocument
PictureMy = "C:\Documents and Settings\evgeny.bobrov\My Documents\VBA\Work\Applications\Autofilling_Report\Files\Pics_4162\4162_ServCI.bmp"
appWD.Selection.TypeText "Отчет о внутренней приемке"
appWD.Selection.Style = appWD.Application.ActiveDocument.Styles("Заголовок 1")
appWD.Selection.TypeParagraph
appWD.Selection.TypeParagraph
statisticsFile = Application.GetOpenFilename("ФАЙЛ (*.xls), *.xls", 1, "Укажите путь к файлу со статистикой")
Workbooks.Open statisticsFile

ActiveWorkbook.Sheets(1).Range("B90").Select
Selection.Copy
appWD.Activate
ActiveDocument.Pictures.Insert(PictureMy).Select

End Sub

[Aldrun]

Можно ли сделать макрос который будет обновлять все сводные таблицы в данном файле при обновлении одной сводной таблицы в данном файле??? И как он будет выглядеть?

[VictorM]

Aldrun,

Можно ли сделать макрос который будет обновлять все сводные таблицы в данном файле при обновлении одной сводной таблицы в данном файле???

Это Вы о чем? Обратите внимание на название темы.