Samenvoegen van bestanden

Status
Niet open voor verdere reacties.

Jonathan1

Gebruiker
Lid geworden
23 jul 2020
Berichten
49
Beste,

Ik loop tegen het volgende probleem aan:
Ik wil via een macro gegevens uit een andere werkboek halen. Het probleem zit erin dat het basis bestand elke dag van naam veranderd waardoor een verwijzing naar 1 bestand niet mogelijk is.
Dit hen ik proberen om te lossen met een pad in de code te zetten met daarin een verwijzing het samenvoegen van locatie en naam. Toch krijg ik iedere keer de foutmelding dat het bestand niet te vinden is.
Wat zie ik over het hoofd?

Code:
Dim pad As String
Dim WB1 As Workbook
Dim Bestandsnaam1 As String
Sub Importeren()


'Locatie bestand, veranderen als de mappen wijzigen
pad = "G:\HUP " & Vloer & " \Logboek\" & Jaar & "\" & Maand & "\" & "HUPHUP " & Vloer & " "

'lokatie en volledige naam worden samengevoegd.
Bestandsnaam1 = pad & Dag & "-" & Maand1 & "-" & Jaar & ".xlsm"

Application.ScreenUpdating = False

Set WB1 = Workbooks.Open(Bestandsnaam1)

'hier worden de selecties gekopieerd, bestemming = bron
ThisWorkbook.Sheets("Hup 0A").Range("C15:AP78") = WB1.Sheets("Hup " & Vloer & "A").Range("C15:AP78").Value



WB1.Close SaveChanges:=False


Application.ScreenUpdating = True

MsgBox "Alles is geïmporteerd.", , "Klaar"

End Sub
 
Weinig van te zeggen zo.
Waarschijnlijk omdat je een "\" achter pad vergeet.
Waarom eindig je pad met een spatie?
 
Laatst bewerkt:
De gegevens hadden nooit geplitst moeten worden in afzonderlijke bestanden.
Ze horen allemaal in 1 werkblad thuis.

De code is een rare mengelnng van tekst en lege variabelen.
 
Er wordt enkel in het hoofdbestand gewerkt. Die gegevens wil ik om de 4 uur automatisch in het bestemmingsbestand kopieren.
De code die ik nu heb komt van een formulier. In dat formulier dien je de dag, maand jaar en vloer in te geven. Daarna haalt hij uit het bronbestand de juiste gegevens van het juiste tabblad op.
Is een code voor een userform anders dan voor een macro?
 
Een macro-opname geeft altijd andere code. Verder geef je geen informatie en vergeet je op vragen/opmerkingen te reageren.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan