VB中操作EXCEL,单元格赋值失败的问题,谁有办法解决?

Question

VB中操作EXCEL,单元格赋值失败的问题,谁有办法解决?使用如下的方法:Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet 
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值,就是这句.
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象大家注意以下的这句:xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值,就是这句.正常情况下,在值很小的时候,可以正常赋值,但是如果值很大,例如为1000字节的时候,赋值就会失败.谁有办法解决?????

Answer 1

樓主,用你的代碼測試過沒有問題呀, 我的環境是XP+VB6+OFFICE2003Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\fun\桌面\book1.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表'做一個長一點兒的字符串
For I = 1 To 10000
 Str1 = Str1 & "aa"
Next IxlSheet.Cells(1, 2) = Str1 '沒問題呀.xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象

Answer 2

也不成啊~~本来应该出现数据的地方出现了一个 "#Value!"的错误提示~

Answer 3

我用的是 Microsoft Excel 9.0 Object Library,失败.

Answer 4

是不是你的EXCEL文件的格式設置的問題?你新建一個空白的EXCEL文件試一下~

Answer 5

应该先设置那一列为文本吧，否则Excel不支持那么大的数据。前面加上这个看看：xlSheet.Columns(2).NumberFormatLocal = "@"