Как избежать ошибку 1004?

[Серёга0629]

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

причина почему не работает - неправильно написан код.
причина почему Вам не могут помочь - никто не понимает что надо сделать.
повторюсь: не нужен а данном случае Ваш код, нужно словесное описание того, что должно происходить с данными при открытии книги.

Есть 3 файла, в каждом из них по 2 листа, в каждом из этих листов ищется максимум по диопазону A1:A300 и записывается в четвёртый файл(Проба) на Лист1., так же(вы мне вчера в этом помогали) есть оператор уловия который проверяет есть ли даные файла(эти 3 штуки) в данной папке, если есть выполняется действие, если их нет, то действие с участием этого файла он пропускает.
ВСЁ работает на (Лист1, Лист2 в модулях и т.д.)
Не работает только в разделе "Эта книга"


что-то с буфером обмена, ставятся последнее скопированое значение, хотя буфер я уже отчищаю в самом начале проги

Данные при открытии книги должны автоматически вносится в указаные ячейки

[IgorGO]

файл проба и три исходных в одной папке находятся?
"записывается на лист1" - это куда? на листе много ячеек, куда записать данные?
с какого файла в какую ячеку листа1 файла проба должны попасть данные? или ячейки можно выбрать случайным образом и записать куда-нибудь?
вам не важно с какого файла где расположилось максимальное значение? на листе1 не надо предварительно данные очистить?
или если нет файла что, куда записать?

Вы не партизан на допросе в гестапо, хотите получить ответ - потрудитесь описать задачу.

[Серёга0629]

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

файл проба и три исходных в одной папке находятся?
"записывается на лист1" - это куда? на листе много ячеек, куда записать данные?
с какого файла в какую ячеку листа1 файла проба должны попасть данные? или ячейки можно выбрать случайным образом и записать куда-нибудь?
вам не важно с какого файла где расположилось максимальное значение? на листе1 не надо предварительно данные очистить?
или если нет файла что, куда записать?

Вы не партизан на допросе в гестапо, хотите получить ответ - потрудитесь описать задачу.

Файлы находятся в одной папке(Вид 130 131 132 125 апрель - 1-й файл, Вид 130 131 132 125 март - 2-й, ffffffffffffffff - 3-й и Проба канечный файл),
""записывается на лист1" - это куда?" - из 3-х файлов, в котых в свою очередь идёт поиск максимума по 2-м листам каждого из них и всё это записывается Проба.xls Лист1 ячейки: A1,A2 от первого файла, B1,B2 C1,C2 - от 2-го и 3-го соответственно.
максимальное значение ищится во всех 3-х файла(в каждом из 2-х листов(B131,B132)) в диапазоне A1:A300
очищать не чего не надо
если файла нет, то действие с этим файлом не выполняется(ячейки на Лист1 остаются пустыми)

[Серёга0629]

ещё вопросик всплыл, чтоб обойти проблему выше!
как в разделе "Эта книга" запустить макрос который находится в разделе Лист1 ???
искал пробовал не получается((((((

Private Sub Workbook_Open()
Call моя_процедура
End Sub

Sub моя_процедура()
ggg
End Sub

ggg - это мой макрос .

[IgorGO]

Private Sub Workbook_Open()
  Лист1.моя_процедура
End Sub

[Серёга0629]

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

Private Sub Workbook_Open()
  Лист1.моя_процедура
End Sub

ОООО!!!!!!! то что надо))) одно слово, блин! а я весь день мучаюсь)))

СПАСИБО )))))))))))))))))))))

[IgorGO]

и еще несколько слов...
пробуйте это

Sub GetMaxFrom()
  Dim pt As String, fn(3) As String, f As Long, sh(2) As String, s As Long
  fn(1) = "Вид 130 131 132 125 апрель.xls"
  fn(2) = "Вид 130 131 132 125 март.xls"
  fn(3) = "ffffffffffffffff.xls"
  sh(1) = "B131"
  sh(2) = "B132"
  pt = ThisWorkbook.Path
  On Error Resume Next
  For f = 1 To 3
    Workbooks.Open pt & Application.PathSeparator & fn(f)
    If Err.Number = 0 Then
      For s = 1 To 2
        ThisWorkbook.Sheets(1).Cells(f, s) = WorksheetFunction.Max(Sheets(sh(s)).Range("A1:A300"))
      Next
      Workbooks(Workbooks.Count).Close False
    Else
      Err.Clear
    End If
  Next
  On Error GoTo 0
End Sub

[Серёга0629]

останавливается на марте, и документ "Вид.....март" остаётся открытым
и в файле Проба не чего не записывается

[IgorGO]

а так:

Sub GetMaxFrom()
  Dim pt As String, fn(3) As String, f As Long, sh(2) As String, s As Long
  fn(1) = "Вид 130 131 132 125 апрель.xls"
  fn(2) = "Вид 130 131 132 125 март.xls"
  fn(3) = "ffffffffffffffff.xls"
  sh(1) = "В131"
  sh(2) = "В132"
  pt = ThisWorkbook.Path
  On Error Resume Next
  For f = 1 To 3
    Workbooks.Open pt & Application.PathSeparator & fn(f)
    If Err.Number = 0 Then
      For s = 1 To 2
        ThisWorkbook.Sheets(1).Cells(s, f) = _
        WorksheetFunction.Max(Workbooks(Workbooks.Count).Sheets(sh(s)).Range("A1:A300"))
      Next
      Workbooks(Workbooks.Count).Close False
    Else
      Err.Clear
    End If
  Next
  On Error GoTo 0
End Sub

я не знаю как там листы называются с латинской В (би) или с кириллической В (вэ)

[Серёга0629]

так работает)) но возник вопрос: где в коде прописывать имена ячеек в которые будут записываться результаты, это же у меня черновик, в читовике надо будт ссылатся на конкретные ячейки