>HI,
>
>I want to export data to EXCEL,
>
>put some value into a AddTextbox.
>
>I have try below code :
>
>EXCEL_FILE.Application.Shapes.AddTextbox(msoTextOrientationHorizontal, 97.5, 28.5, 96.75 , 17.25).Font.CHARACTERS.Text = "ABC COMPANY"
>
>EXCEL_FILE.Application.Shapes.AddTextbox(1, 97.5, 28.5, 96.75 , 17.25).Font.CHARACTERS.Text = "ABC COMPANY"
>
>
>But that is wrong, what is the correct code ??

Try this:

With oExcel.ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 97.5, 28.5, 96.75 , 17.25)
   .Select
endwith
With oExcel.Selection
          .text="ABC COMPANY"
          .font.Size=8
....
endwith