ник: Промка
ПО моему замыслу эта програмка должна из-под Ассеss в excel в указанной книге добавить лист в начало.т.е размножить лист. но на этапе выполнения выдается сообщение , что не подддерживается св-во или метод Может моя идея вообще не осуществима? далее я хотела в размноженные листы вставлять информацию из access Это не проблема Помоготе пожалуйста с 1 -ым этапом
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка5_Click
'Для EХЕL
Dim xlaProd As Excel.Application
Dim xlwProd, xlwProd1 As Excel.Workbook
Dim xlsProd, xlsProd1 As Excel.Worksheet
'Ддя Ассеss
Set xlwProd = GetObject("c:\эталон.xls", "Excel.Sheet")
Set xlsProd = xlwProd.Worksheet(1)
xlsProd.Sheets("Лист2").Select на этом операторе
xlsProd.Sheets("Лист2").Copy Before:=Sheets(1)
xlwProd.Close
xlaProd.Quit
Set xlsProd = Nothing
Set xlwProd = Nothing
Set xlaProd = Nothing