“SQL for Excel 学习”资料

shirf · 发表于 2019-5-16 14:16

谢谢分享，下载学习了！

leon3131 · 发表于 2019-5-21 10:59

感谢楼主分享！！！

zhougencai · 发表于 2019-7-20 07:31

感谢楼主分享！！！

lenhun · 发表于 2020-2-21 08:10

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

ning84 · 发表于 2023-4-16 17:45

好好学习内联接，外联接

ning84 · 发表于 2023-4-18 18:20

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

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

Sub ll()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Sql
Set Cn = New ADODB.Connection
Set Rs = New Recordset
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
Sql = " select a.学号,b.期中成绩,c.期末 from ([a$]a left join [b$]bon a.学号=b.学号) left join [c$]con a.学号=c.学号"
Sql = " select a.学号,b.期中成绩 from ([a$]a left join [b$]b on a.学号=b.学号) " 'left join [c$]con a.学号=c.学号"
Debug.Print Sql
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.学号"
Debug.Print Sql
Set Rs = Cn.Execute(Sql)
Sheet4.Cells(2, 10).CopyFromRecordset Rs
Stop
End Sub

复制代码

lowenng · 发表于 2024-2-28 10:54

太用心了，学习整理

yanglinzi · 发表于 2024-3-1 10:03

谢谢楼主分享

ph378 · 发表于 2024-5-7 22:50

学习学习了

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

[分享] “SQL for Excel 学习”资料