Home/ Questions/Q 852201
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-15T07:33:21+00:00

I have a form with 3 textboxes and 1 button. textbox1 has tab index

  • 0

I have a form with 3 textboxes and 1 button.

textbox1 has tab index 0, and it’s text = 1

textbox2 has tab index 1, and it’s text = 2

textbox3 has tab index 2, and it’s text = 3

I want to iterate thru the textboxes and place their values into cells so that…

range("A1").value = txtbox1.text (ie: A1 = "1")
range("A2").value = txtbox2.text (ie: A2 = "2")
range("A3").value = txtbox3.text (ie: A3 = "3")

but what I am getting is…

range("A1").value = txtbox1.text (ie: A1 = "3")
range("A2").value = txtbox2.text (ie: A2 = "2")
range("A3").value = txtbox3.text (ie: A3 = "1")

I have tried reversing the tab index for the text boxes, but it doesn’t change the "backwards iteration".

Is there something I can do to change this so that the loop runs from lowest tab index to highest?

Thanks!

Public Class Form1

   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim objExcel As New Microsoft.Office.Interop.Excel.Application 'Declaring the object.
      objExcel.Visible = True 'Setting Excel to visible.

      Dim cntrl As Control

      With objExcel
         .Workbooks.Add() 'Adding a workbook.
         .Range("A1").Select() 'Selecting cell A1.
      End With


      'Form contains 3 text boxes, with one number in each (1,2,3), and one button to fire the code in this sub.

      For Each cntrl In Me.Controls 'For every control on the form...
         If TypeOf (cntrl) Is TextBox Then 'If the control is a textbox, then...
            With objExcel
               .ActiveCell.Value = cntrl.Text 'place the control's text in the active cell and...
               .ActiveCell.Offset(1, 0).Activate() 'offset down one row.
            End With
         End If 'If the control is not a textbox (if it's the button), do nothing.
      Next 'Go to the next control.

      objExcel = Nothing 'Release the object.
      GC.Collect() 'Clean up.

   End Sub
End Class
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Sounds like it may be the way Excel is iterating over the controls. Have you tried this to see what the output is?

      Dim objExcel As New Microsoft.Office.Interop.Excel.Application 'Declaring the object.
  objExcel.Visible = True 'Setting Excel to visible.

  Dim cntrl As Control

  With objExcel
     .Workbooks.Add() 'Adding a workbook.
     .Range("A3").Select() 'Selecting cell A3.
  End With


  'Form contains 3 text boxes, with one number in each (1,2,3), and one button to fire the code in this sub.

  For Each cntrl In Me.Controls 'For every control on the form...
     If TypeOf (cntrl) Is TextBox Then 'If the control is a textbox, then...
        With objExcel
           .ActiveCell.Value = cntrl.Text 'place the control's text in the active cell and...
           .ActiveCell.Offset(-1, 0).Activate() 'offset up one row.
        End With
     End If 'If the control is not a textbox (if it's the button), do nothing.
  Next 'Go to the next control.

  objExcel = Nothing 'Release the object.
  GC.Collect() 'Clean up.
    • 0