ник: час
Есть уменя шаблон болванка на листе ехеля
там заголовки стлбцов оглавления....
как бы мнетуда начиная с А5 например вставить данные из таблицы в базе access.
я тут вот нашёл совет, но в нём создаётся новый лист, а как с уже имеющимся листом и книгой работать?
Private Sub wefwefwewef()
Dim RecSet As DAO.Recordset
Dim xlApp As Object
Dim xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set RecSet = CurrentDb.OpenRecordset("tab_proba", dbOpenSnapshot)
xlApp.Visible = True
xlBook.Worksheets(1).Range("A4").CopyFromRecordset RecSet
RecSet.Close
Set RecSet = Nothing
End Sub
|
подскажите...
