Excel单元格SQL公式

qsxz

DLL开发环境 ：编写工具VB6 ,win7 32位
我的使用环境：WIN7 32位+officel32位；win8 64位+office32位
其他环境没有试过能否正常使用。
主要是每天要做复杂的报表，数据不多，但是数据源很多，格式固定，用VBA+SQL也有不方便的地方，所以就写了这个DLL，可以当excel公式直接调用,如果报表格式变了，用excel公式就很好处理。

qsxz

用法：
1、SQLData()可以从文本、Excel、Access源文件查询，且返回一个值。  
从文本中查询时公式为：=SQLSum("Select Sum(成交金额) From 今日销售",2,"D:\每日销售\今日销售.Txt")。该公式如果涉及日期需要转换日期格式:
=SQLSum("Select Sum(成交金额) From [Sheet1$A:M] Where 日期='" & TEXT("2023-3-11","yyyy-mm-dd") & "'",2,"D:\每日销售\今日销售.xls")。TEXT("2023-3-11","yyyy-mm-dd")是Excel自带公式。

2、Get_Tqday()，按照星期对比取同期日期，比如计算2023/3/12:
去年同期:=Get_Tqday(“2023-3-12”,-1)，结果为2022-03-13，前年同期：=Get_Tqday(”2023-3-12”,-2)结果为2021-3-14都是星期天。Excel的同期公式只有Edate(),只能按照日期同比。