Inserimento tasti



  • Inserimento tasti
    di jhonny walker (utente non iscritto) data: 23/04/2014 11:06:24

    Ciao a tutti!
    Sapreste dirmi come faccio, cliccando un pulsante (es. cmdUno) in un form vb6 ad eseguire il comando (alt+1) sulla tastiera?
    Grazie anticipatamente



  • di paolomath data: 23/04/2014 14:20:35

    VBA o VB6 ?

    Comunque:

    SendKeys ("%1")

    Bye bye.


  • Inserimento tasti
    di jhonny walker (utente non iscritto) data: 26/04/2014 07:22:15

    Ciao mi ripropongo ancora, in VB6,
    ho inserito il codice: cliccando " cmdUno " pero' non mi salva il foglio "archivio " in excel,
    Sapreste aiutarmi? Grazie
     
    Private Sub Form_Load()
    Form1.Show
    cmdUno.SetFocus
    End Sub
    Private Sub cmdUno_Click()
    Set xlApp = CreateObject("Excel.Application")
    Set xls = xlApp.Workbooks.Open("C:\ARCHIVIO.xlsx") 'Percorso del file
    Set foglio = xls.Worksheets("ARCHIVIO")        'Nome del foglio
    SendKeys ("%1")
    xls.Close
    xlApp.Application.quit       'Chiude excel
    End Sub
    



  • di Zer0Kelvin data: 26/04/2014 16:07:30

    Ciao.
    Premesso che questo è un forum VBA, che non programmo in VB6, e che non posso garantire la validità di quanto segue: dall'help di VBA
    ___________________________________________________
    Istruzione SendKeys
    Invia alla finestra attiva una o più sequenze di tasti, come se queste fossero state immesse tramite tastiera.
    ___________________________________________________
    Molto probabilmente la finestra attiva non è quella di Excel, poi, se hai bisogno di eseguire delle operazioni su Excel ti conviene usare i metodi messi a disposizione da Excel stesso.
    Per evitare altri problemi dovresti distruggere gli oggetti creati prima di uscire dalla routine.


     
    'Per salvare:
    xls.Save
    'Per salvare con nome:
    xls.SaveAs "NomeDelFile


  • Inserimento tasti
    di jhonny walker (utente non iscritto) data: 02/05/2014 18:20:46

    Ciao a tutti,
    scusate ma ho ancora un problema con il salvataggio....
    ora spiego meglio, seguendo il consiglio di Zer0Kelvin ho inserito "xls.Save", ma il foglio non si salva.
    Inserendo xls.SaveAs "NomeDelFile mi salva il foglio la prima volta, ma se i dati nel foglio in Excel successivamente cambiano,x salvare nuovamente esce il mess di sovrascrittura del foglio ma poi non lo salva.
    Sapreste aiutarmi ancora ????
    Sapreste spiegarmi cosa intende dire con "dovresti distruggere gli oggetti creati prima di uscire dalla routine"
    grazie...