如何使用Excel VBA将date循环到此sql表中
我有一个4列表，这是目前与以下列设置：
保险公司/包销商，代理，日，预算_Amount，
保险公司/保险公司将有12个同一保险人入场，但他们将被分配到不同的月份，并有不同的预算金额
保险公司/承销商，代理人专栏和预算金额从第78行到第375行。保险公司和代理人有一个条目，但是对于预算金额，每月有12个专栏
第77行有一年中的12个月，我需要的是一个循环，将date放在相关条目中
这是我目前的代码，它是填充保险公司，代理和月份 – 这是通过重复行范围11次，以提供一整年的条目，但date不显示
StartColumn = 26，
MaxColumn = 37
For CurrentColumn = StartColumn To MaxColumn StartRow = 78 EndRow = 375 For CurrentRow = StartRow To EndRow Insurer_Underwriter = Sheet8.Cells(CurrentRow, 2) Agent = Sheet8.Cells(CurrentRow, 3) Day = Sheet8.Cells(CurrentRow) Day = Format(Day, "dd-MM-YYYY") Budgeted_Amount = Sheet8.Cells(CurrentRow, CurrentColumn + 10) sSQL = "INSERT INTO [C3 Forecast].Budget_Data_Dan VALUES ('" & Insurer_Underwriter & _ "','" & Agent & "','" & Day & "','" & Budgeted_Amount & "')" Cn.Execute sSQL 请有人指出在哪里放置循环，以获得第77行，第36至第47行的date。
谢谢丹
这是答案是：
Day = Sheet8.Cells(CurrentColumn + 10)
谢谢，丹