程序如下：
Private Sub Command1_Click()
Screen.MousePointer = vbHourglass
Dim cellvalue As String
Dim excelapp As Excel.Application
Dim excelbook As Excel.Workbook
Dim excelsheet As Excel.Worksheet
Dim excelquerytable As Excel.QueryTable
Set excelapp = CreateObject("excel.application")
Set excelbook = excelapp.Workbooks().add("d:\共享\sap6818.xls")
excelapp.Visible = True
Set excelsheet = excelapp.ActiveSheet
For i = 1 To excelsheet.Rows
For j = 1 To excelsheet.Columns
cellvalue = Trim(excelsheet.Cells(i, j))
' 插入数据库
。。。。。
。。。。。。。
Next j
Next i
excelapp.Quit
Set excelapp = Nothing
Set excelbook = Nothing
Set excelsheet = Nothing
Screen.MousePointer = vbDefault
MsgBox "成功！"
End Sub
问题：
1.运行提示“内存溢出”
问题是否出在这里： For i = 1 To excelsheet.Rows，For j = 1 To excelsheet.Columns
此rows，columns非有效数据行和列
2.每次只读一个cell值，插入数据库就要一个一个列的插入，速度慢，sql语句多，
能否使用数组一次读出一行或所有数据，如果可以该怎样写代码。
（注意：表中有空值）
3.怎样把excel中的一列拆分成多列插入数据库

[此贴子已经被作者于2006-12-7 14:30:00编辑过]

1、没问题的，但你可以用打印预览来看一下你的数据情况，有时会因为你在比较大的行列中操作过而让EXCEL判断为有数据的情况，虽然那一行或列中是没有数据的。你的溢出应该是其它原因吧。
2、可以用循环读到数组中，看起来循环是没有减少，但因为循环中的操作减少了，也可以节省很多的资源和增加效率。
3、不明白你说的一列拆分成多列是什么意思

你去看看ASP.NET版有EXCEL导入到SQLSERVER的例子,非常不错!
我怎么感觉你思路根本就没理清!!!!!!!!!!!!!!!!!!!!!!!!!!!!