Chiudere la finestra

Hai un problema con Excel?

Nuova discussione

Chiudere la finestra
di paolo (utente non iscritto) data: 25/09/2014 13:41:41
Ciao a tutti,
ho realizzato un'applicazione in vb6 che importa dati da un foglio di Excel, pero' ogni volta che importo nell' applicazione i dati mi esce la finestra di avviso x salvare oppure no il foglio di Excel e finchè non confermo si blocca tutto.
sapreste dirmi se c'è un codice in vb6 che permette di chiudere la finestra di avviso senza salvare il foglio di excell ?
grazie in anticipo chi potra' aiutarmi o consigliare
ciao paolo.

di scossa data: 25/09/2014 15:05:23
Ciao,

forse se mostri il codice utilizzato si può riuscire ad aiutarti.

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno.
Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

Chiudere la finestra
di paolo (utente non iscritto) data: 26/09/2014 07:13:26
Ciao,
il fatto è, che come scrivere il codice non ne ho idea, chiedevo se è possibile interagire dall' interno del codice dell'applicazione vb6 verso un avviso fatto da Excel che compare a schermo...
Ho pensato partendo dal fatto che il focus è sul pulsante "Salva", inserendo un comando sul tasto Tab si sposta il focus sul pulsante "non salvare", poi si comanda il tasto invio.....pero' a parole è facile metterlo in codice non lo so fare.
Ho pensato anche magari è piu' semplice creare una macro, se si può fare. Qual'é il percorso piu' giusto da seguire secondo te????
Ciao Paolo
di scossa data: 26/09/2014 08:17:57
cit.: "ho realizzato un'applicazione in vb6 che importa dati da un foglio di Excel......"

Io intendevo il codice dell'applicazione VB6 ...... senza vederlo (meglio ancora se alleghi un file ripulito dai dati sensibili) difficile risponderti.

Chiudere la finestra
di Paolo (utente non iscritto) data: 26/09/2014 09:49:03
Scusa hai ragione,
...come vedrai parte il timer, poi scarica i dati in alcune textbox ma prima di iniziare il confronto excel mi da l'avviso di salvataggio è qui che dovrei inserire il comando per annullare il salvataggio e chiudere l'avviso.
Puoi darmi qualche consiglio.....
ciao paolo.

Private Sub Timer1_Timer()
Timer1.Interval = 20000       'controllo timer che avvia il primo scaricamento dati
cmdScarica_Click
Timer1.Enabled = False
End Sub
Private Sub cmdScarica_Click()
Set xlApp = CreateObject("Excel.Application")
Set xls = xlApp.Workbooks.Open("C:DocumentiPROGRAMMA DATI.xlsm") 'Percorso del file
Set foglio = xls.Worksheets("DATI PULITI")                 'Nome del foglio di excel
strTxt = foglio.Cells(2, 1)
txtNome(0).Text = strTxt    'Textbox dove scrivere i dati
strTxt = foglio.Cells(2, 2)
txtPq(0).Text = strTxt
strTxt = foglio.Cells(3, 1)
txtNome(1).Text = strTxt
strTxt = foglio.Cells(3, 2)
txtPq(1).Text = strTxt
strTxt = foglio.Cells(4, 1)
txtNome(2).Text = strTxt
strTxt = foglio.Cells(4, 2)
txtPq(2).Text = strTxt
strTxt = foglio.Cells(5, 1)
txtNome(3).Text = strTxt
strTxt = foglio.Cells(5, 2)
txtPq(3).Text = strTxt
cmdConfronta_Click
End Sub
Private Sub cmdConfronta_Click()
If txtVTA2.Text > txtVTA.Text Then    ' elaborazione dei dati
txtNuomax.Text = txtVTA2.Text
........

di Zer0Kelvin data: 26/09/2014 19:50:39
Ciao.
Dopo aver creato l'applicazione, è sufficiente aggiungere (come faresti in VBA)
Set xlApp = CreateObject("Excel.Application") xlApp.displayalerts = False '<==
Chiudere la finestra
di Paolo (utente non iscritto) data: 27/09/2014 17:59:27
Ciao,
grazie Zer0Kelvin ho provato e funziona, come sempre le soluzioni piu' semplici sono quelle migliori.
Io avevo pensato chissa' a quali acrobazie di programmazione avrei dovuto ricorrere, pero' fortunatamente ci siete voi di excelvba.it a salvare noi principianti.
Grazie ancora e alla prossima,
paolo.
Chiudere la finestra
di Paolo (utente non iscritto) data: 27/09/2014 18:01:01
Scusate ho dimenticato di spuntare se risolta.

Vuoi Approfondire?