MS AccessからMS Excelへのデータの移動

Question

Accessのフォームから情報を取得し、Excelファイルの行を対応するヘッダーの下に挿入するコードを作成しました。私の質問は、これを私が持っている方法でコード化するより良い方法があるということです。私はそれが開かれるたびに次の行に移動することに気付きました。これは良いことです。しかし、私がExcelから抜け出してフォームから情報を変更しなければならない場合、それはまだ次の行に行きます。また、30行にデータが移入された後、Excelファイルを更新/削除するために追加できるコードはありますか？

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がTOP 30アイテムにリンクされているに達したときに、テーブルを削除するためのスクリプトを持っている場合は？

最後に、これらの30個の値をExcelに読み込み、Excelドキュメントを再作成するだけの場合は、Excelで直接作業を行い、ExcelにデータをAccessに渡すことができます。

• すなわち、適切な列を持つテンプレートのExcelドキュメントを作成します
• あなたのAccessテーブルに各行から値を追加するスクリプトを作成