Не читает ячейку

[valerij]

Не читает ячейку, не выдает ошибку, тишина, а почему?

Sub ZXC()
    Dim s As String, месяц As String, i As Integer, a()
Application.ScreenUpdating = False
    месяц = "='H:\Док_Офис\Офисный Учет\2011\3_Квартал\[3_КВ.xls]ОБЩИЕ'!$A$1"
    If месяц = "Август" Then MsgBox 555
End Sub

Месяц, проверил в [3_КВ.xls]ОБЩИЕ'!$A$1, стоит Август

[Казанский]

Потому что месяц - это заданная строка, а не значение ячейки, адресом которой является эта строка.
Если файл открыт, то

месяц = ['H:\Док_Офис\Офисный Учет\2011\3_Квартал\[3_КВ.xls]ОБЩИЕ'!$A$1]
или
месяц = evaluate("='H:\Док_Офис\Офисный Учет\2011\3_Квартал\[3_КВ.xls]ОБЩИЕ'!$A$1")

Если файл закрыт - в поиск по "данные из закрытой книги".

[valerij]

Сообщение от Казанский

Если файл закрыт - в поиск по "данные из закрытой книги".

Если файл, 3_КВ.xls, закрыт, то так?

месяц = evaluate("='H:\Док_Офис\Офисный Учет\2011\3_Квартал\[3_КВ.xls]ОБЩИЕ'!$A$1")

выдает ошибку.

[Казанский]

Проще всего - ввести формулу в свободную ячейку и взять ее значение.
А вообще: http://www.google.ru/search?q=excel+...закрытой+книги

[valerij]

Сообщение от Казанский

Проще всего - ввести формулу в свободную ячейку и взять ее значение.

Тогда почему, так, все значения ячеек, читает из закрытой?
С открытым, 3_КВ.xls, файлом, все ОК.

Sub ZXC()
    Dim s As String, i As Integer, a(): Application.ScreenUpdating = False
    s = "='H:\Док_Офис\Офисный Учет\2011\3_Квартал\[3_КВ.xls]ОБЩИЕ'!"
    a = Array("R5C6", "R6C6", "R7C6", "R3C6", "R4C6", "R9C6", "R11C6")
    b = Array("R5C2", "R6C2", "R7C2", "R3C2", "R4C2", "R9C2", "R11C2")
    c = Array("R5C4", "R6C4", "R7C4", "R3C4", "R4C4", "R9C4", "R11C4") 
    d = Array("R5C5", "R6C5", "R7C5", "R3C5", "R4C5", "R9C5", "R11C5") 
    For i = 3 To 9: Cells(i, "N").FormulaR1C1 = s & a(i - 3): _
    Cells(i, "o").FormulaR1C1 = s & b(i - 3): Cells(i, "p").FormulaR1C1 = s & c(i - 3): _
    Cells(i, "q").FormulaR1C1 = s & d(i - 3)
    Next
End Sub

[IgorGO]

Валера, читай ответ выше.

Проще всего - ввести формулу в свободную ячейку и взять ее значение.

Русским языком обьясняют - одно дело прочитать значение из закрытой книги в переменную, другое - написать формулу в ячейку. механизм получения данных принципиально разный. Во втором варианте ты данные читаешь в ячейки.

[IgorGO]

Sub ZXC()
    Dim s As String, i As Integer, a()
    Application.ScreenUpdating = False
    s = "='H:\Док_Офис\Офисный Учет\2011\3_Квартал\[3_КВ.xls]ОБЩИЕ'!"
    a = Array("R5C", "R6C", "R7C", "R3C", "R4C", "R9C", "R11C")
    For i = 3 To 9
      Cells(i, "N").FormulaR1C1 = s & a(i - 3) & "6"
      Cells(i, "o").FormulaR1C1 = s & a(i - 3) & "2"
      Cells(i, "p").FormulaR1C1 = s & a(i - 3) & "4"
      Cells(i, "q").FormulaR1C1 = s & a(i - 3) & "5"
    Next
End Sub

[valerij]

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

Валера, читай ответ выше..

Я с этим ваще, никогда не сталкивался, поэтому темень, но ввел, так и все.

MyDate = #7/1/2011#: iMyDate = Date
     If Month(MyDate) <> Month(iMyDate) Then Exit Sub
  s = "='H:\Док_Офис\Офисный Учет\2011\3_Квартал\[3_КВ.xls]ОБЩИЕ'!"

[valerij]

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

Валера, читай ответ выше..

Все я понял, что куда, теперь все ОК.
Всем! Спасибо!!

Sub ZXC()
Dim s As String, i As Integer, a()
    Application.ScreenUpdating = False
        s = "='H:\Док_Офис\Офисный Учет\2011\3_Квартал\[3_КВ.xls]ОБЩИЕ'!"
            b = Array("R1C1"): Cells(1, "N").FormulaR1C1 = s & b(R1C1)
        If Cells(1, "N") <> "Июль" Then Exit Sub
            a = Array("R5C", "R6C", "R7C", "R3C", "R4C", "R9C", "R11C")
    For i = 3 To 9
      Cells(i, "N").FormulaR1C1 = s & a(i - 3) & "6"
        Cells(i, "o").FormulaR1C1 = s & a(i - 3) & "2"
        Cells(i, "p").FormulaR1C1 = s & a(i - 3) & "4"
      Cells(i, "q").FormulaR1C1 = s & a(i - 3) & "5"
    Next
    [N1].Value = [N1].Value: [N3:N9].Value = [N3:N9].Value: _
        [o3:o9].Value = [o3:o9].Value: [p3:p9].Value = [p3:p9].Value: _
    [q3:q9].Value = [q3:q9].Value
End Sub

[EducatedFool]

s = "='H:\Док_Офис\Офисный Учет\2011\3_Квартал\[3_КВ.xls]ОБЩИЕ'!"
            b = Array("R1C1"): Cells(1, "N").FormulaR1C1 = s & b(R1C1)
        If Cells(1, "N") <> "Июль" Then Exit Sub

В следующем месяце (и, тем более, квартале) - новые макросы?
Каждый месяц - код "с нуля"?