首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

excel导入代码出错解决方法

2012-01-09 
excel导入代码出错我用excel的数据导入到表格中DimobjExcelAsNewExcel.Application,objWorkBookAsExcel.Wo

excel导入代码出错
我用excel的数据导入到表格中
  Dim   objExcel   As   New   Excel.Application,   objWorkBook   As   Excel.Workbook,   objSeet   As   Excel.Worksheet
Set   objWorkBook   =   objExcel.Workbooks.Open(App.Path   &   "\yourData.xls ")       '把   App.Path   &   "\yourData.xls "   改为你的excel文件路径
Set   objSeet   =   objWorkBook.Sheets( "Sheet1 ")
for   i=objseet.rows
for   j=objseet.columns
    gird1.textmatrix(i,j)=objseet.cells(i,j)
objWorkBook.Close
Set   objExcel   =   Nothing
可是这样会出错




[解决办法]
你这个是VB代码么??基础很重要哦


for i=1 to objseet.rows
for j= 1 to objseet.columns
gird1.textmatrix(i,j)=objseet.cells(i,j)
next
next
[解决办法]
waiwai1015,你好,请问是什么错误呢?
顺便说一下,赋值的时候最好使用Cells.Value, 不要直接用cells这个object
gird1.textmatrix(i,j)=objseet.cells(i,j).Value
[解决办法]
dim i as long ,j as long
for i=1 to objseet.rows.Count
for j= 1 to objseet.columns.Count
gird1.textmatrix(i,j)=objseet.cells(i,j).value
next j
next i

[解决办法]

热点排行