In Microsoft Excel, ottenere informazioni da una cartella di lavoro chiusa è uno dei modi più rapidi per ottenere dati accurati utilizzando il codice VBA. In questo articolo impareremo come leggere le informazioni da una cartella di lavoro chiusa utilizzando VBA in Microsoft Excel.
Se stai ricevendo più file tramite e-mail o qualsiasi altra fonte e desideri ottenere informazioni memorizzate in una cella particolare, dovresti leggere questo tutorial.
Per comprendere questo esempio, dobbiamo creare alcuni file di esempio in un percorso che utilizzeremo nel codice VBA; qui, abbiamo salvato un paio di file (file Nord e Ovest) nel percorso "D:\testing".
Per estrarre i dati da tutti i file excel in una cartella, dobbiamo seguire i passaggi seguenti per avviare l'editor VB:
- Fare clic sulla scheda Sviluppatore
- Dal gruppo Codice seleziona Visual Basic
- Copia il codice sottostante nel modulo standard
Sub ReadDataFromAllWorkbooksInFolder() Dim FolderName As String, wbName As String, r As Long, cValue As Variant Dim wbList() As String, wbCount As Integer, i As Integer FolderName = "D:\testing" 'crea un elenco di cartelle di lavoro in foldername' --- Comment wbCount = 0 wbName = Dir(FolderName & "\" & "*.xls") Mentre wbName "" wbCount = wbCount + 1 ReDim Preserve wbList(1 To wbCount) wbList(wbCount) = wbName wbName = Dir Wend If wbCount = 0 Then Exit Sub ' ottieni valori da ogni cartella di lavoro' --- Comment r = 0 Workbooks.Add For i = 1 To wbCount r = r + 1 cValue = GetInfoFromClosedFile(FolderName, wbList(i), "Sheet1", "A1") Cells(r, 1).Formula = wbList(i) Cells(r, 2).Formula = cValue Next i End Sub Private Function GetInfoFromClosedFile(ByVal wbPath As String, _ wbName As String, wsName As String, cellRef As String) As Variant Dim arg As String GetInfoFromClosedFile = "" If Right(wbPath, 1) "\" Then wbPath = wbPath & "\" If Dir(wbPath & "\" & wbName) = "" Then Exit Function arg = "'" & wbPath & "[" & wb Nome & "]" & _ wsNome & "'!" & Range(cellRef).Address(True, True, xlR1C1) In caso di errore Riprendi successivo GetInfoFromClosedFile = ExecuteExcel4Macro(arg) End Function
Dobbiamo eseguire la macro e la seguente sarà l'istantanea del risultato:
Conclusione: Usando il codice sopra, possiamo ottenere dati dalla cartella di lavoro chiusa da una cella specifica.
Nota: la cella A1 viene utilizzata come esempio; se vuoi recuperare i dati da qualsiasi altra cella, devi semplicemente menzionare quella cella.
Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica