Если еще нет файла, данные равны нулю

[valerij]

Тогда в моем случае так:

Sub test()
    Application.ScreenUpdating = False
    Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls"
    With Workbooks.Open(Filename, , True)
        .Worksheets(3).[B3:B35].Cells.Copy ThisWorkbook.Worksheets(1).[B3] ' копируем содержимое листа
        .Close False
    End With
End Sub

Да, копирует, но почему-то в строке формул, если курсор на В3:В35, такое

='F:\Заявки\2009\Июль\[На 01.07.09.xls]№ 2'!H5+
'F:\Заявки\2009\Июль\[На 01.07.09.xls]№ 2'!F26+'F:\Заявки\2009\Июль\[На 01.07.09.xls]№ 2'!I54

[valerij]

Три листа исписал, профи, ау-у!!!
Уж и так, не помогает

Sub test()
    Application.ScreenUpdating = False
    Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls"
    With Workbooks.Open(Filename, , True)
        .Worksheets(3).[B3:B35].Cells.Value = ThisWorkbook.Worksheets(1).[B3].Value 
        .Close False
    End With
End Sub

[EducatedFool]

Три листа исписал, профи, ау-у!!!
Уж и так, не помогает

Может, хватит уже переписывать чужой код, и пора наконец взяться за учебник?

Ты понимаешь, что делает этот макрос?
Что означает точка перед .Worksheets(3).[B3:B35].Cells.Value ?
Что означает False в строке .Close False

Sub test()
    Application.ScreenUpdating = False
    Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls"
    With Workbooks.Open(Filename, , True)
        .Worksheets(3).[B3:B35].Cells.Value = ThisWorkbook.Worksheets(1).[B3].Value 
        .Close False
    End With
End Sub

Этот макрос если и заработает, пользы от него не будет никакой.
Ибо он уничтожит все сделанные им изменения в файле.

Изучи объектную модель Excel, а потом уже пиши все эти макросы...

[valerij]

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

и пора наконец взяться за учебник?.

Нет у меня ТАКИХ учебников и в продаже их нет.
А учусь, пытаюсь учится, по чужим кодам, где практически нет комметов.
Не можете помочь, ну и ладно...

Ибо он уничтожит все сделанные им изменения в файле.

Ни чего он не уничтожает, только выводит в строке формул......

[valerij]

Методом тыка:

Sub test()
Dim nn As Byte
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls"
    With Workbooks.Open(Filename, , True)
    For nn = 3 To 35
        ThisWorkbook.Worksheets(1).Cells(nn, 2) = .Worksheets(3).Cells(nn, 2)
        Next
        .Close False
    End With
    Application.EnableEvents = True
End Sub

Может подскажите, как листать
Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls"
Если бы не было нуля перед 1(1.07.09.xls), ясно, а так:

For dat = 1 to 31
Filename = "F:\Заявки\2009\Июль\На " & dat & ".07.09.xls"
next

Не удалось найти 'F:\Заявки\2009\Июль\На 1.07.09.xls'. Проверьте задание имени и местоположения файла.

[EducatedFool]

Sub test()
    For dat = 1 To 31
        Filename = "F:\Заявки\2009\Июль\На " & Format(dat, "00") & ".07.09.xls"
        Debug.Print Filename
    Next
End Sub

[valerij]

Игорь, так как прописать в макросе:
Если нет такой Книги перейти на метку

With Workbooks.Open(Filename, , True)
If нет Книги then GoTo 1

[EducatedFool]

Вот тебе 4 варианта:

Sub test1()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls"
    On Error Resume Next
    With Workbooks.Open(Filename, , True)
        If Err.Number = 0 Then    ' если книга открылась
            For nn = 3 To 35
                ThisWorkbook.Worksheets(1).Cells(nn, 2) = .Worksheets(3).Cells(nn, 2)
            Next
            .Close False
        End If
        Err.Clear    ' сброс ошибки
    End With
    Application.EnableEvents = True
End Sub

Sub test2()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls"
    On Error GoTo 1
    With Workbooks.Open(Filename, , True)
        For nn = 3 To 35
            ThisWorkbook.Worksheets(1).Cells(nn, 2) = .Worksheets(3).Cells(nn, 2)
        Next
        .Close False
    End With
1:     Err.Clear    ' сброс ошибки
    Application.EnableEvents = True
End Sub

Sub test3()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls"
    On Error Resume Next
    With Workbooks.Open(Filename, , True)
        For nn = 3 To 35
            ThisWorkbook.Worksheets(1).Cells(nn, 2) = .Worksheets(3).Cells(nn, 2)
        Next
        .Close False
    End With
    Application.EnableEvents = True
End Sub

Sub test4()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls"
    If Dir(Filename) = "" Then GoTo 1    ' такого файла нет
    With Workbooks.Open(Filename, , True)
        For nn = 3 To 35
            ThisWorkbook.Worksheets(1).Cells(nn, 2) = .Worksheets(3).Cells(nn, 2)
        Next
        .Close False
    End With
1:     Application.EnableEvents = True
End Sub

[valerij]

Во, оно, выбрал 4, ближе к пониманию!

Sub test4()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    For dat = 1 To 31
    Filename = "F:\Заявки\2009\Июль\На " & Format(dat, "00") & ".07.09.xls"
    If Dir(Filename) = "" Then GoTo 1    ' такого файла нет
    With Workbooks.Open(Filename, , True)
        For nn = 3 To 35
            ThisWorkbook.Worksheets(1).Cells(nn, dat + 1) = .Worksheets(3).Cells(nn, 2)
        Next
        .Close False: GoTo 2
1:      For vv = 3 To 35
            ThisWorkbook.Worksheets(1).Cells(vv, dat + 1) = 0
        Next
2:    End With
    Next
Application.EnableEvents = True
End Sub

Два последних, ?, клянусь!!

1. че означает Dir(Filename) = "" ?
2. Здесь происходит открытие книг, падает скорость, так, а мона не открывать книг(я там не понял, как это сделать, SAS объяснял)?

[valerij]

SAS
В этом макросе очень низкая скорость, 12 сек., наверное из -за(красным)

Sub test4()
    Dim dat As Long, nn As Long, Filename As String, wb As Workbook
    Application.EnableEvents = False: Application.ScreenUpdating = False
    For dat = 1 To 31
        Filename = ThisWorkbook.Path & "\На " & Format(dat, "00") & ".07.09.xls"
        With ThisWorkbook.Sheets(1)
            If Dir(Filename) = "" Then
                .Range(.Cells(3, dat + 1), .Cells(35, dat + 1)) = 0
            Else
                Workbooks.Open Filename:=Filename
                Sheets(3).[B3:B35].Copy: .Cells(3, dat + 1).PasteSpecial Paste:=xlPasteValues
                ActiveWorkbook.Close False
            End If
        End With
    Next
    Application.EnableEvents = True
End Sub

А так, 3 сек

Sub рабочий_2()
Dim dat As Byte, nn As Byte, Filename As String
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    For dat = 1 To 31
    Filename = ThisWorkbook.Path & "\На " & Format(dat, "00") & ".07.09.xls"
     If Dir(Filename) = "" Then GoTo 2    ' такого файла нет
    With Workbooks.Open(Filename, , True)
        For nn = 3 To 35
            ThisWorkbook.Worksheets(1).Cells(nn, dat + 1) = Worksheets(3).Cells(nn, 2)
        Next
       .Close False
    End With
2:    Next
 Application.EnableEvents = True
End Sub

И что дало ThisWorkbook.Path, если файлы все равно открываются и "собирательный" файл должен лежать вместе с остальными, а так Filename = "F:\Заявки\2009\Июль\На 01.07.09.xls", может находится в любом месте?

А, Application.DisplayAlerts = False это то же самое, что и Application.ScreenUpdating = False ??