Excel 怎样用VBA将数据导入到SQL数据库

sub test()

Set cnn = CreateObject("ADODB.Connection")  

Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledbServer=R9HDET7Database=dbnameUid=usernamePwd=password"

    cnn.Open strCn   

    SQL = ""

     cnn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn

    rs.Open SQL , cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中    

    cnn.Close

    Set cnn = Nothing

end sub

请参考

连接数据库后，通过写SQL语句实现增删改查

大约后面再添上以下语句，注意WHERE开始是条件可以不要，7列字段名按我格式一个个填上去

cn.Open strCn

strSQL = "Select 表名.姓名,表名.性别 from 表名 where 表名.条件列名=条件"

rs.Open strSQL, cn, 1, 3

Sheet1.Range("A1", "Z65000").Clear

Sheet1.Range("A1").CopyFromRecordset rs

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

---