|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 wang93915066 于 2024-7-10 09:49 编辑
let
// 从Excel工作表加载数据
Source = Excel.CurrentWorkbook(){[Name="查询日期"]}[Content],
// 确保"Date"列的标题在Excel中是第一行,并且数据从第二行开始
// 直接获取"Date"列的第一行和第二行的值
ValueFromA1 = Text.From(Source{[Row=1]}{[Column=0]}), // 第一行的数据
ValueFromA2 = Text.From(Source{[Row=2]}{[Column=0]}), // 第二行的数据
// 创建数据库连接记录
DatabaseInfo = {
Server = "192.168.0.254",
Database = "testDB",
User = "sa",
Password ="111111"
},
// 构建SQL查询
query = "SELECT COPTG.TG006, SUM(TH037+TH038) AS Total " &
"FROM COPTH LEFT JOIN COPTG ON TG001 = COPTH.TH001 AND TG002 = COPTH.TH002 " &
"WHERE COPTG.TG023 = 'Y' AND TG003 BETWEEN '" & ValueFromA1 & "' AND '" & ValueFromA2 & "' " &
"AND COPTG.TG004 = '1207' " &
"GROUP BY COPTG.TG006",
// 使用Sql.Database函数执行SQL查询
Results = Sql.Database(DatabaseInfo, query)
in
Results
|
|