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

[tibhar940]

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

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

Вроде бы понимание начало ко мне приходить. Кое что подправил, поменял местами и заработало!

Вот что получилось в итоге:

Sub PaketnayaObrabotkaKON()
'On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemObject")
Set folder = Fso.GetFolder("C:\Documents and Settings\1")
MsgBox "Ну что, поехали?"
Dim chelovek As Variant
chelovek = InputBox("Выберите", "CHEL", "")
Dim instrumentik As Variant
instrumentik = InputBox("Выберите", "ИНСТРУМЕНТ", "")

For Each File In folder.Files
With Workbooks.Open(File.Path).Worksheets(1)
.[a1].Value = "CHEL с INSTRUMENT"
.[a3].Value = " "
.PageSetup.RightHeader = " &""Arial,полужирный""Колонтитул"
.Name = "Страничка" 
.Range("A2").Replace "за период", "в течение периода"
.Range("D:D,O:O").Delete
.[Q:Q].Interior.ColorIndex = xlNone
If chelovek <> "" Then
.Range("A1").Replace "CHEL", chelovek, xlPart
End If
If instrumentik <> "" Then
.Range("A1").Replace "INSTRUMENT", instrumentik, xlPart
End If
.Parent.Close -1
End With
Next
End Sub

Спасибо большое! Без вашей помощи у меня бы ничего не вышло.

[tibhar940]

А подскажите еще один момент?
Допустим мне нужно применить разное форматирование к 8 типам файлов. И я хочу это делать несколькими простыми манипуляциями с запуском одного макроса.
1)Я создал файлик где напротив нужного типа файлов пишу цифру 1 если нужно чтобы этот тип файлов форматировало.
2)Я подготовил 8 макросов.
3)Сделал макрос, который инициирует запуск нужного макроса в случае если в нужной ячейке находится значение "1".

Однако значения инпутбоксов для всех 8 типов данных одинаковые. И мне хотелось бы вписывать их один раз. По идее тогда эти инпутбоксы нужно перенести в макрос из пункта 3. Но как использовать вписанные в инпутбокс данные в других макросах?

В принципе я подумал как можно было бы это сделать. Но у меня очень глупый код выходит:

Sub a()
Dim Slovo As Variant
Slovo = InputBox("", "Окошко", "")
Range("d1") = Slovo
If Range("b1") = "1" Then
Application.Run "b"
End If
End Sub

Sub b()
If Range("d1") <> " " Then
Range("f1").Replace "11", Range("d1"), xlPart
End If
End Sub

Но этот код применим к одному файлу. А в моём случае нужно будет вытаскивать значение Range("f1") из другого (но заранее определённого файла). Как это можно сделать? Я так понимаю через ту же функцию гет фолдер и прочее?

З.Ы. - кстати почему из заполненной ячейки можно сделать пустую с помощью " "? а заменить " " на значение нельзя? По крайней мере у меня таким макаром это не работает)

[kuklp]

Модеры, я прошу прощения за оффтоп. Удалите мой ответ, когда сочтете нужным.
Sub a()
Dim Slovo As Variant
tibhar940, эти строки всего лишь стоило поменять местами:-) И еще, в правилах любого подобного форума есть постулат: Один вопрос - одна тема. Модеры этого форума мои друзья. Поэтому если и вжарят, то надеюсь, небольно:-) И прекращаем оффтопить в теме.

[tibhar940]

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

Модеры, я прошу прощения за оффтоп. Удалите мой ответ, когда сочтете нужным.
Sub a()
Dim Slovo As Variant
tibhar940, эти строки всего лишь стоило поменять местами:-) И еще, в правилах любого подобного форума есть постулат: Один вопрос - одна тема. Модеры этого форума мои друзья. Поэтому если и вжарят, то надеюсь, небольно:-) И прекращаем оффтопить в теме.

Спасибо. Больше никакого оффтопа. Обещаю! Не буду впредь нарушать правила этого замечательнейшего форума.