循环直到要使用的最后一列（水平）

Question

I am working on Excel VBA. I am trying to loop through the columns horizontally in excel as until the last value in recordset. Below is my code. As I want it to start from column G and up to data in recordset. As in Below code I have represent last column as X . It may be BM/BN but can not predict at starting.

Please help me to get the desired solution.

Set RS = 'recordset is set

If Not RS.BOF And Not RS.EOF Then
RS.MoveFirst
Do While Not RS.BOF And Not RS.EOF

    Set xlApp = CreateObject("Excel.Application")
    Set xlWorkbook = xlApp.Workbooks.Open(ReportTemplateDirectory & TestExcel.xlsx")
    xlWorkbook.Sheets(2).Name = "Calculation"
    Set ShtReport = xlApp.Workbooks(1).Sheets("Calculation")

    xlApp.Workbooks(1).Sheets("Calculation").Range("G6").Value = "")
    .....
    ..... 'Loop until the last column to be used
    .....
    xlApp.Workbooks(1).Sheets("Calculation").Range("X").Value = "")

 RS.MoveNext
 Loop
 End If

Answer 1

You could accomplish this with a fairly straightforward loop. I added some inline comments to note some the changes made.

Set RS = 'recordset is set

' Not sure if you need/want the RS.BOF condition here...
If Not RS.BOF And Not RS.EOF Then
    RS.MoveFirst

    ' Initial Excel outside of the loop.
    ' Otherwise you create an instance for each record entry.
    Set xlApp = CreateObject("Excel.Application")
    Set xlWorkbook = xlApp.Workbooks.Open(ReportTemplateDirectory & "TestExcel.xlsx")
    Set ShtReport = xlWorkbook.Sheets(2)

    ShtReport.Name = "Calculation"

    Dim col As Integer
    col = 7 ' Start on column G.
    Do While Not RS.EOF
        ' All output will go to row 6.
        ShtReport.Cells(col, 6).Value = "?" ' Put value from RS here.

        RS.MoveNext
        col = col + 1
    Loop

    ' If you are done with Excel, release the resources here.

End If