关于用vba调用SQL的问题

darwinruc

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

zhangjimfu

用SQL语句查询也可以实现

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

复制代码

darwinruc

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

zhangjimfu

简单一点的代码

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

复制代码

复杂一点的代码

1. Sub UploadCF(mth As String, myPath As String)
   
2.     Dim cnn, rst, sql$
   
3. 
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     Set rst = CreateObject("ADODB.Recordset")
   
6.     sql = "Select * From[Help$o3:w105] Where Balance<>0"
   
7.     DoCmd.SetWarnings False
   
8. 
   
9.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & myPath
   
10.     Set rst = cnn.Execute(sql)
    
11.     While Not rst.EOF
    
12.         sql = "Update tblCFValues Set " & mth & "=" & rst("Balance") & " Where StoreNumber='" & _
    
13.                 rst("StoreNumber") & "' And AccountSubject='" & rst("AccountSubject") & _
    
14.                 "' And ReportKind='" & rst("ReportKind") & "' And FinYear=" & rst("FinYear") & _
    
15.                 " And StoreBrand='" & rst("StoreBrand") & "' And BudgetOrFact='" & rst("BudgetOrFact") & "'"
    
16.         DoCmd.RunSQL sql
    
17.         rst.MoveNext
    
18.     Wend
    
19.     cnn.Close
    
20.    
    
21.     Set cnn = Nothing
    
22.     Set rst = Nothing
    
23.     DoCmd.SetWarnings True
    
24. End Sub

复制代码

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

weizhuzhu

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

zhangjimfu

Help是Excel文档中的工作表

darwinruc

你好，简单代码中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

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

供参考!

zhangjimfu

mth指的是月份

darwinruc

嗯，我最后用的代码是这样的：
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 功能的开启


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