如何使用Excel将日期循环到此sql表中

Question

我有一个4列表，该表当前使用以下列设置：

保险人/承保人，代理人，日，Budgeted_Amount，

保险人/承保人将有同一保险人的12个分录，但它们将被分配到不同的月份，并有不同的预算金额。

保险人/承保人、代理人栏和预算金额从第78行到第375行。保险人和代理人有一个分录，但预算金额有12个月栏。

在第77行，有一年中的12个月，我需要的是一个循环，将日期放在相关条目中。

这是我当前的代码，它填充了保险公司、代理和月份-它通过重复行范围11次来给出一整年值的条目，但是日期没有显示出来。

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栏，循环的位置，以获取日期。

谢谢丹

Answer 1

答案是：

Day = Sheet8.Cells(CurrentColumn + 10)

谢谢你，丹