Однотипное форматирование нескольких документов

[tibhar940]

Сообщение от kuklp

Sub PaketnayaObrabotka()
'On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemO bject")
Set folder = Fso.GetFolder("C:\Documents and Settings\1")
MsgBox folder.Name
For Each File In folder.Files
With Workbooks.Open(File.Path).Worksheets(1)
.[a1].Value = "Слова слова слова"
.[a3].Value = " "
with .PageSetup
.RightHeader = " &""Arial,полужирный""Колонтитул"
ActiveSheet.Name = "Лейбл" ' это не понял, мы работаем с Worksheets(1)
end with
.Parent.Parent.Close -1
End With
Next
End Sub

>> Как вставлять в тело сообщения на форуме код с подсветкой?
tibhar940, пожалуйста, пользуйтесь тегами оформления кода. Это знак диез(решетка) над окном редактирования:-)
PS писал с коленки, не проверял.

Пробовал вчера так. Ругается на

.Parent.Parent.Close -1

[DiemonStar]

Пробовал вчера так. Ругается на

.Parent.Parent.Close -1

а вы поместите его в блок With и оно заработает...

...
With Workbooks.Open(File.Path).Worksheets(1)
.[a1].Value = "Слова слова слова"
.[a3].Value = " "
.PageSetup.RightHeader = " &""Arial,полужирный""Колонтитул"
.Name = "Лейбл" ' это можно так сделать
.Parent.Close -1
End With

[kuklp]

Гы) Да замените на
.Parent.Close -1
и будет Вам СЧАСТЬЕ!

[tibhar940]

Сообщение от kuklp

Гы) Да замените на
.Parent.Close -1
и будет Вам СЧАСТЬЕ!

Шикарно, всё получается. Кроме некоторых аспектов.
Не пойму как переделать 3 элемента кода вставив их в тело With.

1)

With Workbooks.Open(File.Path).Worksheets(1).PageSetup
Columns("D:D").Delete
Columns("O:O").Delete
Columns("Q:Q").Select
Selection.Interior.ColorIndex = xlNone
.Parent.Parent.Close -1
End With

2)

With Workbooks.Open(File.Path).Worksheets(1).[a2]
.Replace What:="за период", Replacement:="в течение периода", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
.Parent.Parent.Close -1
End With

3)

With Workbooks.Open(File.Path).Worksheets(1).PageSetup
If instrumentik <> "" Then
Range("A1").Select
ActiveCell.Replace What:="INSTRUMENT", Replacement:=instrumentik, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
End If
.Parent.Parent.Close -1
End With

[kuklp]

Да, вроде как, очевидно:

.Range("D:D,p:P").Delete
.[p:p].Interior.ColorIndex = xlNone
.[a2].Replace "за период", "в течение периода", xlPart
.PageSetup
If instrumentik <> "" Then
.Range("A1").Replace "INSTRUMENT", instrumentik, xlPart
End If

:-) Писалось с коленки, мож где че подправить придется.

[tibhar940]

Сообщение от kuklp

Да, вроде как, очевидно:

.Range("D:D,p:P").Delete
.[p:p].Interior.ColorIndex = xlNone
.[a2].Replace "за период", "в течение периода", xlPart
.PageSetup
If instrumentik <> "" Then
.Range("A1").Replace "INSTRUMENT", instrumentik, xlPart
End If

:-) Писалось с коленки, мож где че подправить придется.

Ну на самом деле пока не очевидно) Просто я начал это дело изучать исходя из анализа записанных макросов, потом еще немного почитал по ресурсам. И к форматированию в рамках макроса у меня вопросов вообще не возникает. Но вот с телом With несколько иначе и сразу перестроиться и осмыслить не получается. Опять же извиняюсь, если выражаюсь технически не совсем грамотно.

Спасибо большое!

[tibhar940]

Сообщение от kuklp

Да, вроде как, очевидно:

.Range("D:D,p:P").Delete
.[p:p].Interior.ColorIndex = xlNone
.[a2].Replace "за период", "в течение периода", xlPart
.PageSetup
If instrumentik <> "" Then
.Range("A1").Replace "INSTRUMENT", instrumentik, xlPart
End If

:-) Писалось с коленки, мож где че подправить придется.

Что-то ругается на:

[a2].Replace "за период", "в течение периода", xlPart

runtime error 424 object required

[kuklp]

Возможно, Вам легче будет понять метод With, убрав его декларацию и проставить префикс With в каждое выражение внутри With. Т.е., например:

set w=Workbooks.Open(File.Path).Worksheets(1)
w.Range("D:D,p:P").Delete
w.[p:p].Interior.ColorIndex = xlNone
w.[a2].Replace "за период", "в течение периода", xlPart
w.PageSetup
If instrumentik <> "" Then
w.Range("A1").Replace "INSTRUMENT", instrumentik, xlPart
End If

Вот чтоб в каждой строке(обращении) не указывать родительский объект, мы вычисляем его один(!) раз и все последующие ссылки на него обозначаем точкой:

.Range("D:D,p:P").Delete

так понятней?:-)

[kuklp]

>> Что-то ругается на:...
Ну выложите пример, где ругается. Посмотрим, подправим.

[tibhar940]

Сообщение от kuklp

Возможно, Вам легче будет понять метод With, убрав его декларацию и проставить префикс With в каждое выражение внутри With. Т.е., например:

set w=Workbooks.Open(File.Path).Worksheets(1)
w.Range("D:D,p:P").Delete
w.[p:p].Interior.ColorIndex = xlNone
w.[a2].Replace "за период", "в течение периода", xlPart
w.PageSetup
If instrumentik <> "" Then
w.Range("A1").Replace "INSTRUMENT", instrumentik, xlPart
End If

Вот чтоб в каждой строке(обращении) не указывать родительский объект, мы вычисляем его один(!) раз и все последующие ссылки на него обозначаем точкой:

.Range("D:D,p:P").Delete

так понятней?:-)

ОЙ, извините!! я закрыл файлы экселевские ( .Parent.Close -1) и там нечему было оперировать)