vb 处理数据问题

我要处理数据，存储在excel表格中，有8列数据，没列有3-4万行数据，想画图分析，但是画图时会很慢，想知道有没有办法让图形很快画出来
我的程序：
  for j=1 to 
  for i=1 to 40000
  picture1.line (i,xapp.cell(i,j))-(i+1,xapp.cell(i+1,j))
  next i
  next j

没办法啊,EXCEL的读取耗时啊~~~

要不先将数据读到数组中,再画线