Добрый день,

опять возникла проблема в прoцедуре при переходе на Офис 2007.
ceps_file = "CEPS_" & day & month & year & ".xls" состоит из 5-и закладок. Активной всегда была первая, а теперъ почему то 5-Я. И соответственно данные копируются не туда куда надо. Подскажите пожалуйста как обратиться не к активной а к "нужной" папке в документе.

Private Sub CopyTopic(path As String)
'Declaration
Dim ceps_file As String
Dim day
Dim month
Dim year

day = Right(Left(Date, 2), 2)
month = Right(Left(Date, 5), 2)
year = Right(Left(Date, 10), 4)
ceps_file = "CEPS_" & day & month & year & ".xls"

Workbooks.Open path & "topic.xls"
Workbooks.Open path & ceps_file
Workbooks("topic.xls").Activate
ActiveSheet.Rows("1:1").Select
Selection.Copy
Windows(ceps_file).Activate
ActiveSheet.Rows("1:1").Select
Selection.Insert Shift:=xlDown
ActiveSheet.Range("A1").Select
' nicht active Seite, sondern erste. Wie???
Windows("topic.xls").Close
Windows(ceps_file).Activate
ActiveSheet.Cells.Select
Selection.AutoFilter
ActiveSheet.Range("A2").Select
ActiveWindow.FreezePanes = True
ActiveSheet.Range("A1").Select
Windows(ceps_file).Close
End Sub

Никакой активности...
Пришлось думать самой...
Но переход на офис 2007 действует на нервы из за подобного рода мелочей


Private Sub CopyTopic(path As String)
'Declaration
Dim ceps_file As String
Dim day
Dim month
Dim year

day = Right(Left(Date, 2), 2)
month = Right(Left(Date, 5), 2)
year = Right(Left(Date, 10), 4)
ceps_file = "CEPS_" & day & month & year & ".xls"

Workbooks.Open path & "topic.xls"
Workbooks.Open path & ceps_file
Workbooks("topic.xls").Activate
ActiveSheet.Rows("1:1").Select
Selection.Copy
Windows(ceps_file).Activate
Worksheets("CEPS-Fehler").Activate ' Änderung
ActiveSheet.Rows("1:1").Select
Selection.Insert Shift:=xlDown
ActiveSheet.Range("A1").Select
Windows("topic.xls").Close
Windows(ceps_file).Activate
Worksheets("CEPS-Fehler").Activate ' Änderung
ActiveSheet.Cells.Select
Selection.AutoFilter
ActiveSheet.Range("A2").Select
ActiveWindow.FreezePanes = True
ActiveSheet.Range("A1").Select
Windows(ceps_file).Close
End Sub

Не то чтобы жить мне было тяжело, но с удовольствием выслушаю "рац. предложения" или скидочки по дугому варианту.
суть проста, надо данные из одного документа скопировать в опред. место в другом документе.
Ждю