把excel带表头导入到listview

[wine2015]

如题，不知道怎么弄，请大家帮忙，最好同时也放到SQL SERVER里。万分感谢。

[「已注销」]

        Set Conn_qc = Server.CreateObject("ADODB.Connection")
	Driver = "Provider=Microsoft.Jet.OLEDB.4.0;"
	DBParm = "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
	DBPath = "Data Source=" & tmpfilename & ";" 
	Conn_qc.Open Driver & DBPath & DBParm
	
	Set rst=Conn_qc.OpenSchema(20)
	TableName = rst("Table_name")
	rst.Close
	
	Sql="Select * From [" & TableName & "]"
	
	
	rst.open sql, Conn_qc, 1, 1 
	if rst.recordcount<>0 then
	
		for j=0 to rst.recordcount-1

							
				sql="insert into tbltest(Code,Name) values('"& rst(1) &"','"& rst(5) &"') "
				conn.execute(sql)


				end if	
			end if
			rst.movenext
		next
	end if
	rst.close
	set rst=nothing
	Conn_qc.close

[wine2015]

大哥，你的代码给个注解行吗？看得不懂啊。

[wine2015]

语法也有错误。实在不知道。谢谢