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 Items ???

最后，如果您使用Access仅使用这30个值填充Excel，并且比如重新安装Excel文档，则可以直接在Excel中完成工作并让Excel将数据泵入Access。

即。使用适当的列
创建一个脚本，将每行的值添加到Access表中

将数据从MS Access移动到MS Excel

2 个答案: