[vb6] intercettare caselle di testo excel

[cassano]

come posso scrivere dentro le caselle di testo create con excel ???

[cassano]

up

[Sir Board]

Ti inserisco questo breve esempio.
Ciao

'dichiarazioni
Dim xl As Object
Dim sheet_excel As Object
Dim excel_sheet As Object
Dim s As Integer


'dichiarazione dell'oggetto
Set xl = CreateObject("Excel.Application")
'xl.Visible = True 'vedi il foglio mentre si compone
Set sheet_excel = xl.Workbooks.Add  'aggiunge foglio EXCEL
'salvo il file
sheet_excel.SaveAs FileName:="c:\mq08.xls"
' Apre Excel spreadsheet.
xl.Workbooks.Open FileName:="c:\mq08.xls"
' Check dell'ultima versoine.
If Val(xl.Application.Version) >= 8 Then
    Set excel_sheet = xl.ActiveSheet
Else
    Set excel_sheet = xl
End If
    
xl.Range("A3").Value = "L W"        'scrive il testo nella cella(es pippo)
xl.Range("B3").NumberFormat = "@"   'format il testo in char
xl.Range("B3").Value = "Data"
xl.Range("C3").NumberFormat = "@"   'format il testo in char
xl.Range("C3").Value = "Part Number Family"
xl.Range("D3").Value = "C"
xl.Range("E3").Value = "E"
xl.Range("F3").Value = "A/C"
xl.Range("G3").Value = "POS"
xl.Range("H3").Value = "Data Scarico"

[cassano]

grazie mille ma io intendevo quelle caselle ti testo che crei con gli strumenti di disegno.

[Sir Board]

Sinceramente non ho capito, cosa intendi per caselle di testo create con excel?

[Luciano79]

ActiveSheet.Shapes(1).Select
Selection.Characters.Text = "Testo da inserire"

[cassano]

grazie era quello che mi serviva,ho anche scoperto un trucchetto,con le macro mi registro quello che voglio fare , e poi lui mi crea il codice vba che poi io adatto.

[simone1985]

in realtà non lo sapevo... ho fatto anch'io così

[cassano]

me lo potevi dire prima