有个很急的问题请大家帮忙："(

[wubala]

我写了一个程序，里面用到了把datagird表导入到excel(为excel 2003),打完包后，在别的机子上装程序完后,导入excel时,出现"未经对象引用设置到对象的实例"提示框,不知道如何改?

[singlepine]

"未经对象引用设置到对象的实例"是因为你的程序中出错的那一行,左边或右边的实体不存在,比如int类型的i本来是=1的,结果成了null等情况,贴出出错的代码行,帮你检查

[CMIC]

你开发用的office的版本和别的机子上的不一样。

[wubala]

用的都是2003版本的，在我的机子上能使（代码应该没错吧？），换一台就成那个错了

[xiaobao3638]

我想问题是你的数据库引擎不对吧

[AntingZ]

如果你的程序在其它机器上能正常运行的话,那就一定是这台电脑的系统出了点问题.

这个问题刚好是我碰到过,而且发生在我的电脑上:
同样的程序,在我的机器上(win2003+excel2003)就出现"未经对象引用设置到对象的实例"的错误提示,然后是打不开Excel ,但是在其它电脑上却是一点问题都没有.有问题的电脑是我办公室的电脑,
至于原因我没有细查(我怀疑是我在联系做Office Add-in的时候出了问题),
我这几天出差在外,等回去以后好好查差.

不过我使用的是晚期绑定,可能和你的有点区别.

[huangya0]

对方的机子上的DCOM里没有给EXCEL权限,我遇到相关问题,在运行中打入dcomcnfg给ExcelApplication分配一个everyone的权限看看

[wubala]

代码如下:
Public Function ExportToExcel(ByVal FName As String, ByVal DTable As DataTable) As Boolean
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim rowIndex, colIndex As Integer
Dim i, count, j As Integer
On Error GoTo HandleErr
rowIndex = 1
colIndex = 0
xlBook = xlApp.Workbooks().Add
xlSheet = xlBook.Worksheets("sheet1")

'jasf;lkad
xlApp.Cells.Select()
xlApp.Selection.NumberFormatLocal = "@"
'kajsfa
For i = 1 To DTable.Columns.Count

xlApp.Cells(rowIndex, i) = DTable.Columns(i - 1).Caption
Next
count = DTable.Rows.Count
If count > 0 Then
For j = 0 To count - 1
rowIndex = rowIndex + 1
For i = 1 To DTable.Columns.Count


xlApp.Cells(rowIndex, i) = DTable.Rows(j)(i - 1)
Next i
Next j
xlBook.SaveAs(FileName:=FName)
xlApp.Quit()
Else
MsgBox("没有数据，无法导出")
End If
Return True
Exit Function
HandleErr:
MsgBox(Err.Description)
Return False
End Function

[wubala]

谢谢你们，我试一试！感谢:)

[水如烟]

这个问题如果解决了,你可能提交FAQ,问题就叫做
EXCEL,出现"未经对象引用设置到对象的实例"提示框

提交FAQ审核通过后有分奖的,特别是信誉分.

[wubala]

我把那台除错的机子重装了，再试就行了！谢谢大家，如何 AntingZ(夕惕若) 知道原因请告知：）