“SQL for Excel 学习”资料

shirf

谢谢分享，下载学习了！

leon3131

感谢楼主分享！！！

zhougencai

感谢楼主分享！！！

lenhun

必须等收藏，学习！感谢分享！

ning84

好好学习内联接，外联接

ning84

ning84 发表于 2023-4-16 17:45
好好学习内联接，外联接

跨工作薄和工作表的习题。

1. Sub ll()
   
2.     Dim Cn As ADODB.Connection
   
3.     Dim Rs As ADODB.Recordset
   
4.     Dim Sql
   
5.     Set Cn = New ADODB.Connection
   
6.     Set Rs = New Recordset
   
7.        Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
   
8.     Sql = "    select a.学号,b.期中成绩,c.期末 from ([a$]a  left join [b$]bon a.学号=b.学号) left join [c$]con a.学号=c.学号"
   
9.     Sql = "    select a.学号,b.期中成绩 from ([a$]a  left join [b$]b on a.学号=b.学号) " 'left join [c$]con a.学号=c.学号"
   
10.     Debug.Print Sql
    
11.     Sql = "select a.学号,b.期中成绩,c.期末 From ([D:\aaa.xlsm].[a$]a  left join [D:\aaa.xlsm].[b$]b on a.学号=b.学号) left join [D:\aaa.xlsm].[c$]c on a.学号=c.学号"
    
12.     Debug.Print Sql
    
13.     Set Rs = Cn.Execute(Sql)
    
14.    
    
15.     Sheet4.Cells(2, 10).CopyFromRecordset Rs
    
16.     Stop
    
17. End Sub
    

复制代码

lowenng

太用心了，学习整理

yanglinzi

谢谢楼主分享