esportazione dati da button

Hai un problema con Excel?

Nuova discussione

esportazione dati da button
di markez (utente non iscritto) data: 24/09/2014 11:09:53
Salve a tutti, vorrei chiedere se qualcuno può aiutarmi. Ho una form fatta con vb2008 expres dove ho creato un button che mi apre un foglio di excel e mi riporta il valore di una cella in una textbox. il mio intento sarebbe far caricare tramite button i dati di una colonna del foglio di excel (che sarebbero degli orari) per poi trasferirli in un'altro foglio di un'altra cartella di lavoro. Se troppo complicato almeno sapreste dirmi come faccio ad aprire tramite codice 2 cartelle di lavoro contemporaneamente da vba. grazie in anticipo. nell'esempio sotto apro solo il foglio di lavoro di una cartella e non di 2 differenti cartelle

Imports Microsoft.Office.Interop.Excel
Public Class Form1
    Dim programma As Application
    Dim cartella As Workbook
    Dim foglio As Worksheet
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        programma = CreateObject("excel.application")
        programma.Visible = True
        cartella = programma.Workbooks.Add("C:Usersm_buaDesktopTimbrature-01072014-31072014.xls")
        foglio = cartella.ActiveSheet
        foglio.Name = "foglio prova"
        Me.programma.ActiveWorkbook.Close(SaveChanges:=False)
        programma.Quit()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

Inserimento data
di Gigione57 (utente non iscritto) data: 24/09/2014 11:22:37
Buon giorno problema...... provo a spiegavi, In A3 ho una formula che mi riporta la data dell'ettichetta del foglio, in b3 ho la formula che mi riporta la data di " oggi " in E3 vorrei scrivere una formula che mi controlli la data odierna con la data dell' etichetta del foglio =se(b3=a3;a3;"attenta"). E fino a qui tutto ok, ma domani, quindi sul foglio successivo stesse formule .... Ma se vado a vedere il giorno precedente giustamente su E3 non mi rimane la data di ieri per effetto della formula "oggi" . Secondo me si dovrebbe continuare con il SE , ho fatto varie prove ma non riesco . Grazie per le risposte. Luigi
Inserimento data
di Gigione57 (utente non iscritto) data: 24/09/2014 11:24:37
Buon giorno problema...... provo a spiegavi, In A3 ho una formula che mi riporta la data dell'ettichetta del foglio, in b3 ho la formula che mi riporta la data di " oggi " in E3 vorrei scrivere una formula che mi controlli la data odierna con la data dell' etichetta del foglio =se(b3=a3;a3;"attenta"). E fino a qui tutto ok, ma domani, quindi sul foglio successivo stesse formule .... Ma se vado a vedere il giorno precedente giustamente su E3 non mi rimane la data di ieri per effetto della formula "oggi" . Secondo me si dovrebbe continuare con il SE , ho fatto varie prove ma non riesco . Grazie per le risposte. Luigi
Inserimento data
di Gigione57 (utente non iscritto) data: 24/09/2014 11:24:38
Buon giorno problema...... provo a spiegavi, In A3 ho una formula che mi riporta la data dell'ettichetta del foglio, in b3 ho la formula che mi riporta la data di " oggi " in E3 vorrei scrivere una formula che mi controlli la data odierna con la data dell' etichetta del foglio =se(b3=a3;a3;"attenta"). E fino a qui tutto ok, ma domani, quindi sul foglio successivo stesse formule .... Ma se vado a vedere il giorno precedente giustamente su E3 non mi rimane la data di ieri per effetto della formula "oggi" . Secondo me si dovrebbe continuare con il SE , ho fatto varie prove ma non riesco . Grazie per le risposte. Luigi
di Grograman (utente non iscritto) data: 24/09/2014 14:23:41
Markez mi trovi decisamente impreparato su VB normale, ma a naso potresti usare 2 variabili di tipo workbook, e verificherei se funziona il metodo "open" piuttosto che "Add":
cartella1 = programma.Workbooks.Open("C:Usersm_buaDesktopTimbrature-01072014-31072014.xls") cartella2 = programma.Workbooks.Open("C:Usersm_buaDesktopTimbrature-altraroba.xls")
grazie
di markez (utente non iscritto) data: 24/09/2014 15:16:45
grazie greg ho risolto ma ora devo trovare il modo di trasferire i valori di un'intervallo di celle dal foglio di una catella al foglio dell'altra.
di Zer0Kelvin data: 24/09/2014 20:47:39
Ciao.
Visto che in VB hai a disposizione gli stessi oggetti presenti in Excel, direi che un Range.Copy dovrebbe essere sufficiente.

Vuoi Approfondire?