作者:乔山办公网日期:
返回目录:excel表格制作
这是一个连接吧? 可以的话,另外建一个就可以了。
将excel数据e799bee5baa6e78988e69d83333导入access
Sub Excel2access()
Dim conn As ADODB.Connection
Dim WN As String
Dim TableName As String
Dim sSql As String
Dim tStr As String
'数据库名,请自行修改,路径与当前工作簿在同一目录
WN = "进销存表.mdb"
'数据库的表名与当前工作表名一致
TableName = ActiveSheet.Name
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source=" & ThisWorkbook.Path & "\" & ActiveWorkbook.Name
conn.Open
If conn.State = adStateOpen Then
sSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Select * From [" & ActiveSheet.Name & "$]"
conn.Execute sSql
MsgBox "成功把数据插入到“" & TableName & "”中!", , "http://excelba.com"
conn.Close
End If
Set conn = Nothing
End Sub
1、首先打开SQL Server数据库,准备一个要导入的数据表,如下百图所示,数据表中插入一些数据
2、接下来打开Excel软件,点击数据菜单,然后选度择其他来源下面的来自SQL Server选项
3、然后会弹出数据库连接向导界面,在输入知框里面输入服务器名称,也就是道计算机名
4、接下来就会出现导入内容的具体设置界面了,我们选择要导入表,并且选择一内个空白单元格位置作为数据的导入位置
5、最后点击确定按钮,我们就可容以看到SQL Server中的数据就导入进Excel里了
将excel的数据导入到新度建的临时表,再批量更新
没有加内where 条件,所以Halemp表全部更新了,用下面的语句试试容
update Halemp set sbjs =b.sbjs ,gjjjs =b.gjjjs from Halemp a, excel b
where a.ecode = b.ecode