返回目录：excel表格制作
导入方来法如下：
1、打开access软件，新建空白桌面数据库。
2、在【外部数据】面板中点击EXCEL。自
3、在【选择数据源】面板的【文件名】中选择目标文件，并在下方选择【将数据源导入当前数据库的新表中知】，确定。
4、接下来选择【现实工作表】，显示整个工作表，然后下一步。
5、选择【第一行道包含标题】，这样EXCEL表格的第一行成了标题行，相当于筛选栏，下一步。
6、可以选中某列，设置该列的名称，下一步。
7、可以选择自己的主键，这里选择手机品牌为主键，下一步。
8、下面一直下一步，完成后可以看到EXCEL插入access中。
材料/工具：Excel2003
1、首先启动access，执行新建-空数据库命令，输入名称保存在一个合适的位置上。抄
2、在数据库对话框中点击新建命令，调出新建表对话框，选择导入表选项，点击确定按钮。
3、在导入对话框中找到需要导入的数据表知格，选中后点击导入按钮，出现导入数据表向导对话框。
4、接着根据向导提示点击下一步，在“请选择数据的保存位置”中勾选新表中。
5、在字段道选项中采用默认即可，点击下一步，接着选择设置主键为“字段2”。
6、直到出现完成按钮，并点击完成后，在数据库中就会出现sheet1表，双击打开即可，接着可以进行必要的处理了。
对于ACCESS2007版本，打开你的ACCESS数据库，点【外部数据】然后点第三copy个快捷按钮（如下图），弹出窗口中：
点【浏览】按钮，新弹出窗口中找到要导入的表格后确定，
如果ACCESS中的表格已经建立选“向表中百追加度一份记录的副本”，然后指定表格名称；如果没有建立表格选“将源数据导入到新表”，
下一步，接着根据提示选择工作簿知中的工作表，直至导入结束。
重复以上操作，导入其他EXCEL表的数据（这时候一定要选“向表中追加一份记录的道副本”，不然你的数据会导入到不同的表中）。
Excel数据导入到Access、Sql Server中示例代码
将Excel中的数据导入到Access中，前提是在Access中的表已经建好。
dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"
sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext
wend
conn.close
set conn = nothing
conn2.close
set conn2 = nothing
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function
导入到Sql Server数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用Excel中的第一行数据做为表的字段名）e68a84e8a2ade799bee5baa6330：
dim conn
set conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:\book1.xls"";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] "
conn.execute(sql)
conn.close
set conn = nothing