Здравствуйте!
Ошибка, ничего не могу сделать, помогите
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Sub SaveAsTest()
Dim FPath As Variant
FPath = "C:\my.xls"
Dim oWbk As Workbook
Set oWbk = Application.Workbooks.Add
oWbk.SaveAs (FPath)
Windows("Данные.xls").Activate
Sheets("Главная").Select
Range("A10:C12").Select
Selection.Copy
Windows(FPath).Activate '<======= вот тут ошибка вкралась... (Выдаёт: Subscript out of range)
oWbk.Sheets("Лист1").Select
oWbk.Sheets("Лист1").Range("A1").Select
oWbk.Sheets("Лист1").Paste
oWbk.Sheets("Лист1").Range("A4").Select
oWbk.Save
oWbk.Close
End Sub
Файл C:\my.xls на диске создается, доступ есть, сохраняется, но пустой.
