Thema Datum  Von Nutzer Rating
Antwort
05.11.2014 18:29:07 Tobias
NotSolved
Blau Inhalte aus verschiedenen Dateien in eine Datei zusammenfügen
 06.11.2014 09:10:50 Gast19165
NotSolved
07.11.2014 10:48:16 Gast50257
NotSolved

Ansicht des Beitrags:
Von:
Gast19165		 Datum:
06.11.2014 09:10:50		 Views:
1261		 Rating:
     
Antwort:
  Ja
Thema:
Inhalte aus verschiedenen Dateien in eine Datei zusammenfügen

Hallo,

null Problemo, in die neue Mappe in ein Standardmodul folgender Code:

Option Explicit

Public Sub prcReadInData()
   Const SHEET_NAME As String = "Auswertung"
   Const NUMBEROF_DATA As Long = 59
   Dim objFso As Object
   Dim objFolder As Object
   Dim objFile As Object
   Dim avntArray As Variant
   Dim ialngIndex As Long, ialngCount As Long
   Dim strPath As String
   strPath = "C:\Users\MyUser\Documents\Excel\testOrdner" 'hier Deinen Pfad anpassen...
   Set objFso = CreateObject("Scripting.FileSystemObject")
   Set objFolder = objFso.GetFolder(strPath)
   With objFolder
        ReDim avntArray(.Files.Count - 1, NUMBEROF_DATA - 1) As Variant
        For Each objFile In .Files
           ialngCount = ialngCount + 1
           For ialngIndex = 1 To UBound(avntArray, 2) + 1
              avntArray(ialngCount - 1, ialngIndex - 1) = ExecuteExcel4Macro( _
                "'" & strPath & "\[" & objFile.Name & "]" & SHEET_NAME & "'!" & _
                Cells(3, 1 + ialngIndex).Address(ReferenceStyle:=xlR1C1))
           Next
        Next
   End With
   ActiveSheet.Cells(3, 2).Resize(UBound(avntArray, 1) + 1, UBound(avntArray, 2) + 1) = avntArray
   Set objFso = Nothing
   Set objFolder = Nothing
   Set objFile = Nothing
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.11.2014 18:29:07 Tobias
NotSolved
Blau Inhalte aus verschiedenen Dateien in eine Datei zusammenfügen
 06.11.2014 09:10:50 Gast19165
NotSolved
07.11.2014 10:48:16 Gast50257
NotSolved