Question

这是我必须将数据导出到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()

我可以创建并保存excel文件，但我无法更新内容。我该怎么办？

感谢。

Answer 1

您尝试将Range设置为某个值，我认为您需要将Range设置为可以包含值的数组，或者您需要设置一个值Cell为单个值。

此链接显示如何执行以下操作：

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

Answer 2

我想你想要：

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

选择“添加”时，您将创建一个新工作簿。

如果您确信没有差距，这样的事情可能适合：

''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来确定最后一个单元格。

用VB导出到Excel并更新文件

2 个答案: