2016-07-26 10 views
1

ich eine 4 Säulentisch haben, die mit den folgenden Spalten zur Zeit Setup ist:Wie kann ich Schleife das Datum in dieser SQL-Tabelle mit Excel VBA

Versicherer/Versicherer, Stelle, Tag, Budgeted_Amount,

der Versicherer/Konsortium wird 12 Einträge aus dem gleichen Versicherer haben, aber sie werden auf einen anderen Monat und haben einen anderen Budgetbetrag

der Versicherer/Emissionsbank, Agent Spalten und budgetierte Betrag von Zeile 78 laufen zugeordnet werden rudern 375. Es gibt einen Eintrag für die Ins urer und Mittel, aber dann gibt es 12 monatliche Kolumnen für den veranschlagten Betrag

Auf Zeile 77 gibt es die 12 Monate des Jahres, was ich brauche, ist eine Schleife von einer Art, die das Datum in dem entsprechenden Eintrag setzen wird

Dies ist mein aktueller Code, der den Versicherer, Agenten und Monate wird bevölkern - es tut dies durch den Zeilenbereich 11 mal wiederholt volle Jahre im wert von Einträgen zu geben, aber die Daten zeigen nicht

up = 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 

Bitte könnte jemand darauf hinweisen, wo die Schleife zu platzieren, die Daten auf Row abholen 77, Spalten 36 bis 47.

Dank Dan

Antwort

0

Das war die Antwort lautete:

Day = Sheet8.Cells(CurrentColumn + 10) 

Danke, Dan

Verwandte Themen