VBA passaggio da un file ad un altro

ciao a tutti,
ho sviluppato questo codice:

Sub Esporta_Dati() 'Esporta la configurazione nel file archivio

'nomefile_2 = "98 - Archivio configurazioni macchine.xlsx"
'indirizzo = "G:\operation\Private\03 - Servizi Tecnici Fabbrica\01 - Industrializzazione\02 - Cicli Macchine\"


Dim erw As Integer
Dim rpwr As Integer
Dim nomefile As String
Dim nomefile2 As String
Dim colonnafoglio2 As Integer
Dim IDcommessa As Integer
Dim IDriga As Integer

erw = Foglio2.Cells(2, 6).CurrentRegion.Rows.Count
Rprw = Foglio4.Cells(1, 1).CurrentRegion.Rows.Count + 1

IDriga = 1

For Row = 6 To erw


For Coloumn = 2 To 15

Foglio4.Cells(Rprw, Coloumn + 3) = Foglio2.Cells(Row, Coloumn)
Foglio4.Cells(Rprw, 3) = Foglio2.Cells(4, 2)
Foglio4.Cells(Rprw, 4) = Foglio2.Cells(4, 1)

Next

Foglio4.Cells(Rprw, 2) = IDriga

IDriga = IDriga + 1

Rprw = Rprw + 1


Next

End Sub



Lo scopo è quello di archiviare man mano i dati presenti in un foglio (che possono avere lunghezza variabile) in un altro foglio. Sono riuscita a farlo tra 2 fogli, come da file allegato, il mio obiettivo però è riuscire a farlo tra 2 fogli di 2 file diversi.

Secondo voi qual è la soluzione migliore in questo caso? Volevo provare utilizzando gli oggetti, quindi idealmente file.foglio.range etc...ma non riesco a trovare una sintassi del genere


Grazie!

Nessuno riesce ad aiutarmi?

Valeria89182, 11/01/2018 23.14:

---

Nessuno riesce ad aiutarmi?

---

Ciao.
Questo è un forum tecnico, non una chat-room; non puoi aspettarti una risposta appena poni un quesito.
Per allegare del codice, inseriscilo fra i tag CODE in questo modo risulta molto più leggibile e non si perde l'indentazione (se c'è).

Riguardo al quesito, supponendo che il codice che hai allegato funzioni, puoi usare qualcosa del genere

ciao, grazie mille per la tua risposta!
ho provato a modificare il mio codice ma mi dà errore alla riga:

CODE
Erw = Wk1.Foglio2.Cells(2, 6).CurrentRegion.Rows.Count
CODE

"errore run-time 438 Proprietà o metodo non supportati dall'oggetto"

Il codice che ho messo inizialmente io funziona correttamente.

Sto sbagliando qualcosa?

Grazie,
Valeria

temo che CurrentRegion funzioni soltanto sul Documento attivo e non voglia il riferimento a wk1 wk2, occorre determinare il numero di righe in altro modo, magari con

Ciao Patel, credo che l'errore sia dovuto al riferimento
VBA non riconosce foglio2 come appartenente a Wk1; sostituendo Foglio2 con Sheets("Nome che dovrebbe avere il foglio") oppure con Sheets(Numero del foglio) l'errore dovrebbe scomparire.
Mi ero già scontrato con questa incongruenza di VBA in passato e tuttora non me la spiego.
Infatti, se nell'editor scrivi Wk1., i fogli non compaiono nell'elenco delle proprietà disponibili per il Worksheet.
Difatti l'istruzione
non provoca errore.

grazie mille!!
utilizzando sheets() funziona correttamente!

Valeria