Перемещение данных из MS Access в MS Excel

Question

У меня есть следующий код, который будет принимать информацию из формы в Access и заполнять строки в файле Excel под соответствующим заголовком. Мой вопрос в том, есть ли лучший способ закодировать это тогда, как у меня есть? Я заметил, что каждый раз, когда он открывается, он переходит к следующей строке, что хорошо. Но если мне пришлось отказаться от Excel и изменить информацию из формы, она все равно перейдет к следующей строке. Также есть некоторый код, который я мог бы добавить для обновления/удаления моего файла Excel после заполнения 30 строк?

Private Sub Command73_Click() 
Set objXLApp = CreateObject("Excel.Application") 
Set objXLBook = objXLApp.Workbooks.Open("Y:\123files\Edmond\Hotel Reservation Daily.xls") 
objXLApp.Application.Visible = True 

i = i + 1 

objXLBook.ActiveSheet.Cells(i + 1, 1).Value = Me.GuestFirstName & " " & GuestLastName 
objXLBook.ActiveSheet.Cells(i + 1, 2).Value = Me.PhoneNumber 
objXLBook.ActiveSheet.Cells(i + 1, 3).Value = Me.cboCheckInDate 
objXLBook.ActiveSheet.Cells(i + 1, 4).Value = Me.cboCheckOutDate 
objXLBook.ActiveSheet.Cells(i + 1, 5).Value = Me.GuestNo 
objXLBook.ActiveSheet.Cells(i + 1, 6).Value = Me.RoomType 
objXLBook.ActiveSheet.Cells(i + 1, 7).Value = Me.RoomNumber 
objXLBook.ActiveSheet.Cells(i + 1, 8).Value = Date 
objXLBook.ActiveSheet.Cells(i + 1, 9).Value = Me.Employee 
End Sub 

Answer 1

Посмотрите на TransferSpreadsheet.

Answer 2

Как насчет того, что вы просто добавляете значения в таблицу в Access и имеете файл Excel, просто связанный с таблицей?

и 30 записей.

• если у вас есть скрипт для удаления таблицы, когда он достигает 30 записей
• или просто держать все записи и Excel, связанные с ТОП 30 Items ???

И наконец, если вы используете Access для ТОЛЬКО заполняете Excel этими 30 значениями и, скажем, перезаписываете документы Excel, вы можете делать работу непосредственно в Excel и Excel загружать данные в Access.

• т.е. Создание шаблона Excel документ с правильными столбцами
• создать скрипт, который добавляет значения из каждой строки в таблицу Access