如何用VBA把这个表格 新增到SQL SERVER数据库里的员工总表了，只要这9行的？

大约后面再添上以下语句，注意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

把下面的过程放到任何一个模块中PublicSubCreateTabel(rstAsDAO.Recordset,TabelNameAsString)DimTSAsTableDefsDimTAsTableDefDimFAsDAO.FieldSetTS=CurrentDb.TableDefsSetT=NewTableDefrst.MoveFirstForEachFInrst.FieldsT.Fields.AppendT.CreateField(F.Name,F.Type,F.Size)NextT.Name=TabelNameTS.AppendTSetTS=NothingSetT=NothingSetF=NothingEndSub具体的调用方式就是CreateTabel　recorset对象,表名就可以在当前数据库中生成一个新表了结构和recorset相同但没有数据，如果你要复制数据，一行SQL就搞定了

---