Excel-Come aprire tutti i file di una cartella.

Question

ho un piccolo problema: ho cartella con circa 50 files xlsx. Come faccio ad aprirli tutti contemporaneamente ? grazie  a chi mi da una dritta-

---

NOTA. Titolo modificato dal moderatore. Per favore utilizza titoli che spieghino il contenuto della domanda, non *Salve a tutti*. E, sempre per favore, non postare la stessa cosa come Domanda e come Discussione. Grazie. M.G.

Answer 1

ho un piccolo problema: ho cartella con circa 50 files xlsx. Come faccio ad aprirli tutti contemporaneamente ? grazie  a chi mi da una dritta-

Un modo:

Public Sub m()

    Const MYFOLDER As String = "C:\Prova"

    Dim sFileName As String

    Dim wk As Workbook

    sFileName = Dir(MYFOLDER & "*.xls*")

    Do While (Len(sFileName) > 0)

         On Error Resume Next

         Set wk = Workbooks.Open(Filename:=MYFOLDER _

             & sFileName)

         Set wk = Nothing

         sFileName = Dir

     Loop

End Sub

Copia incolla la macro nel modulo di codice standard e modifica la parte in grassetto con la path della tua cartella. Se non hai mai utilizzato il vb di Excel, vedi:

• http://answers.microsoft.com/it-it/office/wiki/office_2013_release-excel/excel-dove-e-come-inserire-il-codice-visual-basic/ed29ee63-a537-4e5d-8631-76766cf40503

Answer 2

Ciao Quirico,

Aprire contemporaneamente più di 15 files xlsx

Perché?

===

Regards,

Norman

Answer 3

se clicco sul tasto "seleziona tutto"e poi "apri" me ne apre solo uno, Con win 7 ero riuscito a risolvere il problema (miracolosamente) cosi:HKCU\Software\Microsoft\Windows\C urrentVersion\Explorer

Name : MultipleInvokePromptMinimum

Type : DWORD

Default : 15 (decimal).   Con win 8.1 non funziona.  Chiedo suggerimenti semplici perchè non sono esperto. grazie.quirico

Answer 4

Leggo solo ora la risposta. Ringrazio per la disponibilità. La soluzione è troppo  complicata per le mie conoscenze informatiche. Con win 7  avevo risolto il problema in questo modo:HKCU\Software\Microsoft\Windows\C urrentVersion\Explorer

Name : MultipleInvokePromptMinimum

Type : DWORD

Default : 15 (decimal)                                                                                        Con win 8 la cosa non mi riesce. Perchè ci dobbiamo complicare la vita in questo modo?