189 8069 5689
将Excel中的数据导入到Access中，前提是在Access中的表已经建好。
创新互联建站-专业网站定制、快速模板网站建设、高性价比湖里网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式湖里网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖湖里地区。费用合理售后完善，十多年实体公司更值得信赖。
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中的第一行数据做为表的字段名）：
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
最近在安装SQL Server 2005企业版的分析服务时候，不管是64位的还是32位的，通过Excel和其他客户端连接分析服务器一直联系不上。不知道是什么原因，希望能帮忙看看。
安装的时候，甚至都是默认的，连接选择的是本地系统。补丁时SQL Server 2005 SP3。安装完成后，在SSAS属性的安全选项里面添加属于管理员组的用户。在客户端安装了MSOLEDB for Analysis Services 9.0。连接时候选择了这个 (如图：数据链接-1)，在接下来的页面填好相关信息后，提示连接失败（提示OLE DB访问接口中存在错误。无法连接到重定向程序。请确保服务器上正在运行SQLBrowser服务。）。服务器上SQL浏览器已经启动，TCP的2382端口和UDP的1434端口侦听状态，防火墙关闭。连接命名实例的数据库引擎成功，同时通过（IP地址：端口号）的方式也能正常连接。就是通过（IP地址\实例名）的方法始终失败。
按照MSDN上介绍的命令行的方法启动SQL浏览器，好像都是到开始启动OLAP重定向服务的时候就不动了（SQLBrowser：Starting up OLAP redirection service）。
打开EXCEL,新建一个空白工作表，点击【数据】菜单页面中的【自其他来源】，在下拉菜单中选项【来自SQL Server】选项。
请点击输入图片描述
在弹出的数据连接向导中输入SQL Server服务器的名称或IP地址，并在登录凭证中输入正确的用户名和密码。并点击下一步按钮。
请点击输入图片描述
在选择数据库和表页面中选择要连接的数据，下方选择要显示的数据表名称，再点击下一步按钮。本例中我们选择CC数据库的SFC工作表。
请点击输入图片描述
在保持数据连接文件并完成这个步骤中，EXCEL会将连接信息保存在一个扩展名为ODC的文件中，并将其默认保存在电脑中我的文档下的我的数据源文件中。
请点击输入图片描述
最后一步就是将导入数据以什么方式显示以及保存在什么位置，本例中选择以表的方式保存在现有工作表并以A1单元格作为起始位置。点击确定完成连接导入。
请点击输入图片描述
稍等片刻后我们要连接的SFCr数据表就显示在我们指定的位置上了，整个过程完成。
请点击输入图片描述
Excel程序自带的外部数据连接功能，可以连接SQL服务器。具体步骤为：
1、选择【数据】选项卡，在【获取外部数据】分组，找到【自其他来源】。
2、单击【自其他来源】按钮，打开【选择来源】下拉菜单。
3、选择【来自SQL Server】打开【数据连接向导】对话框。
4、填写服务器名称、登录的用户名及密码等信息，即可成功连接。
1、选中表格后单击右键选择“定义名称”。
2、单击后，出现命名对话框。
3、这里将表1和表2分别命名为Table1和Table2。
4、选择上方的“数据”选项卡，选择“自其他来源”下的“来自Microsoft Query ”选项。
5、在弹出的对话框中选择Excel Files*那一项，并且把对话框下面的“使用“查询向导”创建/编辑查询”勾掉。
6、点击“确定”，便出现“选择工作簿”的对话框，这里选择包含表1和表2的工作表xxx.xlsx。
7、点击确定后之后弹出添加表的对话框。
8、点击确定后之后弹出添加表的对话框。
9、输入SQL语句的按钮，弹出输入SQL语句的对话框 输入SQL，看到筛选出来的数据表。
10、将筛选出来的数据表再返回至Excel工作表当中，选择菜单中的“文件”——“将数据返回Microsoft Excel”。
On Error GoTo MyErr
'这里是代码，如果运行出错，跳到myErr标签行后继续运行。
MyErr:
’这里是代码。
'或者用：
On Error Resume Next
'忽略所有错误。