Condividi:        

Codice per popolare un file su altra cartella di rete

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Codice per popolare un file su altra cartella di rete

Postdi Marco75CT » 03/12/15 13:01

Ciao a tutti,
devo copiare dei valori presenti in TextBox1 di una UserForm del WorkBook A il cui percorso è Z:\mionome\cartella_A, sul Foglio 2 del WorkBook B il cui percorso è Z:\altronome\cartella_B.
Uso MS Office 2010.
Qualche aiuto?
Grazie
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54

Sponsor
 

Re: Codice per popolare un file su altra cartella di rete

Postdi Anthony47 » 03/12/15 13:19

Vediamo...
a) apri il file B
b) selezioni il foglio che interessa
c) copi i texbox nell'intervallo che ti interessa
d) salvi e chiudi il file B
Il codice per a), b) e d) lo puoi ottenere tramite macro autoregistrate; c) immagino che lo sai gia' fare.

Se non risolvi con questi spunti scrivi ancora spiegando dove sei arrivato e dove ti sei arenato...

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Codice per popolare un file su altra cartella di rete

Postdi Marco75CT » 03/12/15 16:19

Ciao Anthony,
grazie per la risposta.
In realtà, ciò che mi occorre è far puntare la macro su un foglio presente all'interno di una cartella diversa da quella dov'è presente il file che contiene la userform.
Non so come spiegarmi meglio...
A titolo d'esempio, posto il codice che ho già creato per fare la stessa operazione su un foglio dello stesso file:

Codice: Seleziona tutto
Private Sub CommandButton1_Click()
Dim WS1 As Worksheet, UR As Long
        Set WS2 = Workbooks("workbookB.xlsm").Sheets("Foglio2")
        UR = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1
        WS2.Cells(UR, 1) = TextBox23.Value
        WS2.Cells(UR, 2) = TextBox1.Value
        WS2.Cells(UR, 3) = TextBox2.Value
        WS2.Cells(UR, 4) = TextBox3.Value
        WS2.Cells(UR, 5) = TextBox4.Value
        WS2.Cells(UR, 6) = TextBox5.Value
        WS2.Cells(UR, 7) = TextBox6.Value
        WS2.Cells(UR, 8) = TextBox24.Value
        WS2.Cells(UR, 9) = TextBox7.Value
        WS2.Cells(UR, 10) = TextBox8.Value
        WS2.Cells(UR, 11) = TextBox9.Value
        WS2.Cells(UR, 12) = TextBox10.Value
        WS2.Cells(UR, 13) = TextBox25.Value
        WS2.Cells(UR, 14) = TextBox11.Value
        WS2.Cells(UR, 15) = TextBox14.Value
        WS2.Cells(UR, 16) = TextBox17.Value
        WS2.Cells(UR, 17) = TextBox20.Value
        WS2.Cells(UR, 18) = TextBox12.Value
        WS2.Cells(UR, 19) = TextBox15.Value
        WS2.Cells(UR, 20) = TextBox18.Value
        WS2.Cells(UR, 21) = TextBox21.Value
        WS2.Cells(UR, 22) = TextBox13.Value
        WS2.Cells(UR, 23) = TextBox16.Value
        WS2.Cells(UR, 24) = TextBox19.Value
        WS2.Cells(UR, 25) = TextBox22.Value
End Sub

come faccio a fargli capire che il workbookB si trova nella "cartella_B" e che questa, a sua volta, su trova nella cartella "altronome"?
Grazie
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54

Re: Codice per popolare un file su altra cartella di rete

Postdi Anthony47 » 03/12/15 21:48

Per scrivere su un foglio il relativo file (workbook) deve essere aperto; nel momento in cui lo apri, automaticamente diventa il Workbook attivo e non e' obbligatorio indirizzarlo; idem se (come ti ho suggerito) selezioni anche il foglio target.
Per cui, seguendo i suggerimenti dati, avresti potuto lavorare senza preoccuparti del file e foglio.
Comunque a volte e' piu' lunga a suggerire come fare che fare la cosa direttamente...

Codice: Seleziona tutto
Private Sub CommandButton1_Click()
Dim UR As Long
        Workbooks.Open Filename:="Z:\altronome\cartella_B.xls"      '<<< Il vero nome file
        Sheets("Foglio2").Select
'        Set WS2 = Workbooks("workbookB.xlsm").Sheets("Foglio2")    ' si puo' eliminare
        UR = Cells(Rows.Count, 1).End(xlUp).Row + 1
        Cells(UR, 1) = TextBox23.Value
        Cells(UR, 2) = TextBox1.Value
'etc etc
'etc etc

        ActiveWorkbook.Close True
End sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Codice per popolare un file su altra cartella di rete

Postdi Marco75CT » 03/12/15 23:00

Grazie mille!
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54


Torna a Applicazioni Office Windows


Topic correlati a "Codice per popolare un file su altra cartella di rete":


Chi c’è in linea

Visitano il forum: Nessuno e 53 ospiti