关于用vba调用SQL的问题

darwinruc · 发表于 2011-7-20 13:55

1、如何用VBA代码将EXCEL的某张表导入SQL中?我看eh上帖子好多，为啥都不能用的呢...麻烦大虾能不能给个总结？
2、另外，调用SQL成功后，能不能一次执行多个语句啊？

zhangjimfu · 发表于 2011-7-20 14:04

用SQL语句查询也可以实现

Select StoreNumber,Balance
From [Help$A3:J245]
In "F:\门店会计工作规划\Store\分支\新建文件夹\20040南周口.xls" "Excel 8.0;"

复制代码

darwinruc · 发表于 2011-7-20 14:37

嗯，谢谢，不过我是想通过vba来实现导入SQL，目的是弄个宏绑定到某个摁键上，点击就能够导入...有在vba里面实现的方法吗？

zhangjimfu · 发表于 2011-7-20 16:26

简单一点的代码

Sub UpdatingExcel(myPath As String)
On Error Resume Next
DoCmd.TransferSpreadsheet acImport, 8, "tblTempUpload", myPath, True, "Help!B3:j141"
DoCmd.TransferSpreadsheet acImport, 8, "tblTempUpload", myPath, True, "Help!k3:s105"
DoCmd.TransferSpreadsheet acImport, 8, "tblTempUpload", myPath, True, "Help!B142:j246"
End Sub

复制代码

复杂一点的代码

Sub UploadCF(mth As String, myPath As String)
Dim cnn, rst, sql$
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
sql = "Select * From[Help$o3:w105] Where Balance<>0"
DoCmd.SetWarnings False
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & myPath
Set rst = cnn.Execute(sql)
While Not rst.EOF
sql = "Update tblCFValues Set " & mth & "=" & rst("Balance") & " Where StoreNumber='" & _
rst("StoreNumber") & "' And AccountSubject='" & rst("AccountSubject") & _
"' And ReportKind='" & rst("ReportKind") & "' And FinYear=" & rst("FinYear") & _
" And StoreBrand='" & rst("StoreBrand") & "' And BudgetOrFact='" & rst("BudgetOrFact") & "'"
DoCmd.RunSQL sql
rst.MoveNext
Wend
cnn.Close
Set cnn = Nothing
Set rst = Nothing
DoCmd.SetWarnings True
End Sub

复制代码

如果要多个Excel文档批量导入只需再引用FileSystemObject

weizhuzhu · 发表于 2011-7-20 19:44

请教 Help! 语句是啥意思，猜不出来

zhangjimfu · 发表于 2011-7-20 22:01

Help是Excel文档中的工作表

darwinruc · 发表于 2011-7-21 10:38

你好，简单代码中acImport报错未定义，指的是什么？是不是要引用什么？ Docmd这些命令都查不到

另外，复杂代码中 mth指的是什么？

原帖由 zhangjimfu 于 2011-7-20 16:26 发表
简单一点的代码Sub UpdatingExcel(myPath As String)
On Error Resume Next
DoCmd.TransferSpreadsheet acImport, 8, "tblTempUpload", myPath, True, "Help!B3:j141"
DoCmd.TransferSpreadsheet acI ...

zhangjimfu · 发表于 2011-7-21 12:21

http://club.excelhome.net/viewth ... =1032087#pid5052850

供参考!

zhangjimfu · 发表于 2011-7-21 12:40

mth指的是月份

darwinruc · 发表于 2011-7-21 13:22

嗯，我最后用的代码是这样的：
Sub Excel2SQL()
Dim cn As ADODB.Connection
Dim strSQL As String
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB; Data Source= CDQ-PC;Integrated Security=SSPI; Initial Catalog=TEST"

strSQL = "SELECT * INTO NewPortfolioAllocation FROM " & _
         "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
         "'Data source=E:\PortfolioAllocation.xls;" & _
         "Extended Properties=Excel 8.0')...[PortAlloc$]"

End Sub

然后遇到的问题是SQL Server里的ad hoc distributed queries未启用

在SQL中调用存储过程：
exec sp_configure 'show advanced options',1
reconfigure
exec sp_configure 'ad hoc distributed queries',1
reconfigure
可实现对ad hoc distributed queries 功能的开启

想问下，你的代码是怎么输入在那个窗口里的？

		自动登录	找回密码
密码			免费注册

[求助] 关于用vba调用SQL的问题

回复 2楼 zhangjimfu 的帖子

回复 5楼 weizhuzhu 的帖子

回复 7楼 darwinruc 的帖子

回复 7楼 darwinruc 的帖子

回复 8楼 zhangjimfu 的帖子