以下是一个示例VBS脚本，它可以从数据库中提取50个变量的数据并创建一个报表，支持基于年月日的查询和数据库冗余。请注意，此脚本需要将数据库连接字符串和查询语句替换为您自己的代码。
[code]vb
'声明变量
Dim conn, rs, sql
Dim year, month, day
Dim var1, var2, var3, ..., var50
'根据需要添加更多变量
'获取当前日期
year = Year(Date)
month = Month(Date)
day = Day(Date)
'创建数据库连接
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=myServerAddress;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;" '替换为您自己的连接字符串
'查询数据
sql = "SELECT var1, var2, var3, ..., var50 FROM myTable WHERE year=" & year & " AND month=" & month & " AND day=" & day '替换为您自己的查询语句
Set rs = conn.Execute(sql)
'创建报表
Dim excelApp, workbook, worksheet
Set excelApp = CreateObject("Excel.Application")
Set workbook = excelApp.Workbooks.Add()
Set worksheet = workbook.Worksheets.Add()
'填充表头
worksheet.Cells(1, 1).Value = "Var1"
worksheet.Cells(1, 2).Value = "Var2"
worksheet.Cells(1, 3).Value = "Var3"
'根据需要添加更多列名
'填充数据
Dim row
row = 2
While Not rs.EOF
worksheet.Cells(row, 1).Value = rs("var1").Value
worksheet.Cells(row, 2).Value = rs("var2").Value
worksheet.Cells(row, 3).Value = rs("var3").Value
'根据需要添加更多列的值
row = row + 1
rs.MoveNext
Wend
'保存报表
workbook.SaveAs "C:\report.xlsx" '替换为您自己想要保存的文件路径
'关闭连接
rs.Close
conn.Close[/code]
请注意，这只是一个示例脚本，您需要根据自己的具体需求进行修改和定制化。 |
