16. december 2019 - 13:46 Der er 1 kommentar og
1 løsning

VBA - Åbn ark i modificeret mappesti

Jeg har en mappesti som følger til en mappe. Denne mappe indeholder et opsamlingsark og en ny mappe med underark.

Hvordan kan jeg ved at brug :ThisWorkbook.Patch, få excel til at åbne alle arkene i undermappen ved at følge Opsamlingsarkets sti + næste mappe?
Altså en form for tilføjelse af mappe i den allerede eksisterende sti?

Håber det giver mening
16. december 2019 - 13:50 #1
Nuværende kode, med sti til ændring:

Sub Hent_Data()

Dim strF As String, strP As String
Dim wb As Workbook
Dim ws As Worksheet

Application.ScreenUpdating = False

'Mappe Stien'
strP = ThisWorkbook.Patch & "\Underark"


strF = Dir(strP & "\*.xlsm")

Do While strF <> vbNullString
   
    On Error GoTo Førslut
   
        Set wb = Workbooks.Open(strP & "\" & strF)'
        Set ws = wb.Sheets(1)
        wb.Close True
   
    strF = Dir()
Loop

Førslut: 'Ingentings-handling'
Application.ScreenUpdating = True

End Sub
17. december 2019 - 08:11 #2
Den virker faktisk hvis man kan stave...
*strP = ThisWorkbook.Path***
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester