Я очень извиняюсь, что нарушил правила (великоват формат фото).
Обещаю внимательно читать правила.
Однако в связи с тем, что тема закрыта вынужден открыть эту с соблюдением всех требований.
Суть моей предыдущей темы следующая:
Добрый вечер, господа профи.
Я очень и очень прошу помощи в следующем:
В книге "Report_D" есть 3 листа:"Отчет 1","Отчет 2","Отчет 3"
На листе "Отчет 1" есть кнопка "ИМПОРТ ДАННЫХ"
В "Отчет 1" с определенным интервалом времени различные операторы вносят информацию.
Нужно чтобы внеся данные на лист оператор нажал на кнопку "ИМПОРТ ДАННЫХ" и все данные что он внес импортировались на D:\speech\Reports\Report_2012 в лист "Direct"
Проблема также в том, чтобы при нажатии на кнопку "ИМПОРТ ДАННЫХ" данные экспортировались друг под другом в листе "Direct".
Большое Вам спасибо.
На что уважаемым , R Dmitry был предоставлен макрос:
Sub AddRecord()
'=========================================================== ===================
'* Автор R Dmitry (Дмитрий Русак dg_rusak@mail.ru skype: RDG_Dmitry) |
'* WM:_R269866874234 U144446690328 |
'=========================================================== ===================
Dim cn As Object, cmd As Object
Set cn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=no"";"
With cmd
.ActiveConnection = cn
.CommandText = "insert INTO [Direct] in 'D:\Report 2012.xls' [Excel 8.0;] select * FROM [Отчет 1$]"
.Execute
End With
cn.Close
Set cn = Nothing
Set cmd = Nothing
End Sub
Однако при полной проверке путей, наименований все время выбивает ошибку:
«Обьект «Direct» не найден ядром базы данных Microsoft Jet. Проверьте существование обьекта и правильность имени и пути.
и выбивает ошибку желтым на: .Execute
Большое Вам спасибо за помощь.
Обещаю внимательно читать правила.
Однако в связи с тем, что тема закрыта вынужден открыть эту с соблюдением всех требований.
Суть моей предыдущей темы следующая:
Добрый вечер, господа профи.
Я очень и очень прошу помощи в следующем:
В книге "Report_D" есть 3 листа:"Отчет 1","Отчет 2","Отчет 3"
На листе "Отчет 1" есть кнопка "ИМПОРТ ДАННЫХ"
В "Отчет 1" с определенным интервалом времени различные операторы вносят информацию.
Нужно чтобы внеся данные на лист оператор нажал на кнопку "ИМПОРТ ДАННЫХ" и все данные что он внес импортировались на D:\speech\Reports\Report_2012 в лист "Direct"
Проблема также в том, чтобы при нажатии на кнопку "ИМПОРТ ДАННЫХ" данные экспортировались друг под другом в листе "Direct".
Большое Вам спасибо.
На что уважаемым , R Dmitry был предоставлен макрос:
Sub AddRecord()
'===========================================================
'* Автор R Dmitry (Дмитрий Русак dg_rusak@mail.ru skype: RDG_Dmitry) |
'* WM:_R269866874234 U144446690328 |
'===========================================================
Dim cn As Object, cmd As Object
Set cn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=no"";"
With cmd
.ActiveConnection = cn
.CommandText = "insert INTO [Direct] in 'D:\Report 2012.xls' [Excel 8.0;] select * FROM [Отчет 1$]"
.Execute
End With
cn.Close
Set cn = Nothing
Set cmd = Nothing
End Sub
Однако при полной проверке путей, наименований все время выбивает ошибку:
«Обьект «Direct» не найден ядром базы данных Microsoft Jet. Проверьте существование обьекта и правильность имени и пути.
и выбивает ошибку желтым на: .Execute
Большое Вам спасибо за помощь.