Un ciao a tutti.
Anche se il topic non è stato aperto da me e siccome potrebbe interessarmi/vi in futuro, ho provato a dare un'occhiata in giro ed ho trovato questo:
- Codice: Seleziona tutto
Sub ImportaDati()
Dim percorso As String
percorso = ThisWorkbook.Path & "\"
Dim nomeFile As String
Dim WB As Workbook
Dim WS As Worksheet
nomeFile = Dir(percorso)
Do While nomeFile <> ""
If nomeFile <> ThisWorkbook.Name Then
Set WB = Application.Workbooks.Open(percorso & nomeFile)
Set WS = WB.Worksheets(1)
WS.Name = "Importa Dati"
WS.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
WB.Close False
End If
nomeFile = Dir
Loop
MsgBox "Fogli Importati.", vbInformation, "OK"
End Sub
Importa dati da diversi files di excel su un solo file excel.
Il problema è che mi copia e mi crea altri fogli e non li copia su un'unico foglio in sequenza.
Come si potrebbe modificare questa macro in modo che mi metta in seguenza tutti i fogli escludendo la riga A1 perchè è vuota e che formatta la cella con testo tradizionale tipo Arial 10, allineamento a sinistra, testo a capo e formato righe/colonne con un valore predefinito su un'unico foglio?
Grazie per le risposte.
