用VB导出到Excel并更新文件

这是我必须将数据导出到Excel的代码。

Dim oExcel As Object Dim oBook As Object Dim oSheet As Object oExcel = CreateObject("Excel.Application") oBook = oExcel.Workbooks.Add oSheet = oBook.Worksheets(1) oSheet.Range("A1").Value = "ID" oSheet.Range("B1").Value = " Nome" oSheet.Range("A1:B1").Font.Bold = True oSheet.Range("A2").Value = CStr(Request("ID")) oSheet.Range("B2").Value = "John" oBook.SaveAs("C:\Book1.xlsx") oExcel.Quit() 

我可以创build并保存excel文件,但是我无法更新内容。 我该怎么做?

谢谢。

你正在尝试将Range设置为一个值,我想你要么将Range设置为一个可以包含该值的数组,要么将单个Cell设置为一个值。

这个链接显示了如何做:

http://support.microsoft.com/kb/301982

我想你想要:

  oBook = oExcel.Workbooks.Open ("C:\Book1.xlsx") 

当您select添加时,您正在创build一个新的工作簿。

如果你有信心没有差距,这样的事情可能适合:

 ''Last cell in column A, or first gap oSheet.Range("a1").End(xlDown).Select ''A+1 row oSheet.ActiveCell.Offset(1) = "a" ''A + 1 row + 1 col oSheet.ActiveCell.Offset(1, 1) = "b" ''A + 1 row + 2 col oSheet.ActiveCell.Offset(1, 2) = "c" 

否则,您可能需要http://support.microsoft.com/kb/142526来确定最后一个单元格。