Data importeren

[Roeland035]

Beste forumleden,

Ik heb er naar gezocht, maar alle "scripts" die ik heb gevonden wouden maar niet werken.
Ik heb omloopsnelheid lijsten (regels aan artikelen met de afzet etc.) die ik in een bepaalde sheet moet zetten. Momenteel doe ik dit handmatig, door de omloopsnelheid lijsten te openen, de regels te kopiëren en vervolgens te plakken.

Nu zou ik graag in mijn bestand op een import knop willen klikken, zodat ik een map kan selecteren waarvan hij uit elk bestand in die folder de data importeert. Van de eerste file van wie hij de data gaat importeren moet de kolomtitels worden meegenomen. Deze titels moeten op rij 4 komen en vanaf rij 5 moet vervolgens alle data worden geïmporteerd van alle bestanden in die folder.

Kan iemand mij hiermee helpen?

Sheet waar het in geïmporteerd moet worden:
Bekijk bijlage Input omloopsnelheidlijst.rar
Bestanden van de data die geïmporteerd moet worden
Bekijk bijlage 137 omloop.xls
Bekijk bijlage 138 omloop.xls

 

[edmoor]

De link doet het niet. Daarnaast zal je niet alleen het Excel document moeten plaatsen maar ook 2 bestanden die geïmporteerd dienen te worden.

 

[Roeland035]

Bestanden zijn bijgevoegd.

 

[snb]

Alleen nog niet in dit forum. Gebruik de faciliteit om bestanden op dit forum te plaatsen.

 

[Roeland035]

Alleen nog niet in dit forum. Gebruik de facilitieit om bestanden op dit forum te plaatsen.

De bestanden zijn groter dan 100kb en dus kon het niet via het forum

 

[snb]

Ter illustratie van een vraag heb je zelden grote bestanden nodig. Zeker niet als je ze gezipt opstuurt.

 

[Roeland035]

Ter illustratie van een vraag heb je zelden grote bestanden nodig. Zeker niet als je ze gezipt opstuurt.

Ik heb wat kleinere bestanden gepakt en mijn basis bestand ingepakt

 

[Roeland035]

Bump

 

[Roeland035]

Momenteel heb ik dit. (Het is incompleet)

Sub Importeer_omloop()

Dim wb As Workbook
Dim myPath As String
Dim myFile As String
Dim myExtension As String
Dim FldrPicker As FileDialog
     
'Retrieve Target Folder Path From User
  Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)

    With FldrPicker
      .Title = "Select A Target Folder"
      .AllowMultiSelect = False
        If .Show <> -1 Then GoTo NextCode
        myPath = .SelectedItems(1) & "\"
    End With

'In Case of Cancel
NextCode:
  myPath = myPath
  If myPath = "" Then GoTo ResetSettings
  
  'Target File Extension (must include wildcard "*")
  myExtension = "*.xls"

'Target Path with Ending Extention
  myFile = Dir(myPath & myExtension)
  
  'Loop through each Excel file in folder
  Do While myFile <> ""
    'Set variable equal to opened workbook
      Set wb = Workbooks.Open(filename:=myPath & myFile, Local:=True)
      
            Range("a1:aj1").Select
            Selection.Copy
            
            'Return to target workbook
            Application.DisplayAlerts = False
            ActiveWorkbook.Close
            Application.DisplayAlerts = True
            
            Sheets("Input omloopsnelheidlijst").Select
            Range("A4").Select
            ActiveSheet.Paste
        wb.Close True

    'Get next file name
      myFile = Dir
  Loop

'Message Box when tasks are completed
  MsgBox "Task Complete!"

ResetSettings:
  'Reset Macro Optimization Settings
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub