本地EXCEL文件导入远程sql

[jenny0513]

想把本地的EXCEL文件导入到远程已存在的表中，本机导入没有问题，远程要怎么导入呢？
下面是我的代码
Dim a As String
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;Data Source=" & strServerName & ";" & _
"Initial Catalog=123;User ID=sa;Password=sa"
strSQL = " insert into B1_Order ([cInvName],[dDate1],[cOrder],[cCustomer],[cfabric) select [规格],[接单日期],[订单号],[客户],[规格] FROM OpenDataSource('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=" & Text1.Text & ";')...[sheet1$] "
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print "Records affected: " & lngRecsAff
MsgBox "导入" & lngRecsAff & "条记录成功!"
cn.Close
Set cn = Nothing

[IEEE_China]

先将本地excel文件上传到 服务器，然后再导入。

[jenny0513]

引用 1 楼 Imaor 的回复:

先将本地excel文件上传到 服务器，然后再导入。

还是希望直接在本地就可以导，把文件上传到服务器有点麻烦了

[victorLDB]

SQL 自帶一個匯入匯出的工具

[IEEE_China]

不想上传到服务器，那就用 DTSWizard

[jenny0513]

引用 4 楼 Imaor 的回复:

不想上传到服务器，那就用 DTSWizard

DTSWizard？能具体说明下吗？谢谢！

[feisheng512]

用odbc 网上有资料 不用SQL带的那个