Dim ConnName,ConnStr
Set ConnName = Server.CreateObject("ADODB.Connection") ' 建立Connection对象
ConnStr = "Data Source ="&FileName&";Extended Properties=Excel 8.0"
ConnName.Provider = "Microsoft.Jet.OLEDB.4.0 "
ConnName.ConnectionString = ConnStr
ConnName.Open
要导入的excel文件应该是数据库结构的
温馨提示:答案为网友推荐,仅供参考