将数据从MS Access移动到MS Excel

我有以下代码将从Access中的表单中获取信息并在相应的标题下填充Excel文件中的行。我的问题是，是否有更好的方法来编码，然后按照我的方式进行编码？我注意到每次打开它都会移到下一行，这很好。但是，如果我不得不退出Excel并从表单中更改信息，它仍然会转到下一行。还有一些代码可以添加到30行填充后刷新/删除我的Excel文件？将数据从MS Access移动到MS 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

来源

2011-01-26 Edmond

看看TransferSpreadsheet。

来源

2011-01-26 22:21:31 Fionnuala

如何将值添加到Access中的表格并让Excel文件与表格链接？

和30条记录。

如果你有删除表，当它到达30点的记录
或者只是把所有的记录，并已链接Excel到TOP 30项脚本???

最后，如果你正在使用Access与这30个值仅填充Excel和，比如说，有reoccuring的Excel文档，你可以直接做的工作在Excel中，并Excel中的数据泵入的访问。

即创建适当的列模板的Excel文档
创建一个脚本，将每行的值到您的Access表

来源

2011-01-26 22:23:21

将数据从MS Access移动到MS Excel

回答

相关问题