求助,关于excel导入access问题

Question

我有一个excel表格,所有代码已经写好,如果excel里面的格式与vb listview的格式一致的话,不会出现任何问题,但是问题来了,如果我把excel的数据删除,表头也删除,这时导入vb就会出错.
我现在求助高手,帮我把如何判断excel记录是否为空,格式与listview格式是否一致的代码
我来这里不久,也没有什么分,希望高手可以帮助我
Call Openconn '将Excel数据导入access数据库
  SQL = "select * into " & Me.Text1(1).Text & " from [Excel 8.0;DATABASE=" & Me.Text1(0).Text & ";].[" & Me.Combo1.Text & "$]')" '将Excel数据导入Access数据库
  rs.Open SQL, cn
  MsgBox "" & Combo1.Text & "的数据已成功导入 " & Me.Text1(1).Text & "", 64, 
  Call CloseConn
以上是我将excel导入到access的代码,总觉得太过于简单,不知道在那里加判断语句

Answer 1

试试：SQL = "select * from [Excel 8.0;DATABASE=" & Me.Text1(0).Text & ";].[" & Me.Combo1 & "$]')" rs.Open SQL, cn If Not rs.EOF Then
SQL = "select * into " & Me.Text1(1).Text & " from [Excel 8.0;DATABASE=" & Me.Text1(0).Text & ";].[" & Me.Combo1.Text & "$]')" '将Excel数据导入Access数据库 cn.Execute SQL

Answer 2

if not excelapplication.ActiveSheet.UsedRange is nothing thenend if