Code erklären (VBA)

Komila, Freitag, 15.07.2016, 12:14 (vor 1220 Tagen)

Hallo liebe Leute,
kann jemand für Anfänger das Code bitte BITTE erklären.

Sub copyDataFromMultipleWorkbooksIntoMaster()

Dim FolderPath As String, Filepath As String, Filename As String

FolderPath = “C:\work\excel_tutorial\suppliers\”

Filepath = FolderPath & “*.xlsx”

‘To transfer data from all files you can use the wild-card character *

‘Filepath = FolderPath & “*.xls*”

Filename = Dir(Filepath)

Dim lastrow As Long, lastcolumn As Long

Do While Filename <> “”
Workbooks.Open (FolderPath & Filename)
‘Range(“A2:D2”).Copy
lastrow = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Row
lastcolumn = ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(lastrow, lastcolumn)).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

erow = Sheet1.Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Row

‘If we wanted to paste data of more than 4 columns we would define a last column here also
‘lastcolumn = ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column
‘ActiveSheet.Paste Destination:=Worksheets(“Sheet1”).Range(Cells(erow, 1),
Cells(erow, lastcolumn))
ActiveSheet.Paste Destination:=Worksheets(“Sheet1”).Range(Cells(erow, 1),
Cells(erow, 4))

Filename = Dir

Loop

End Sub

Danke im Voraus

Code erklären

Martin Asal @, Freitag, 15.07.2016, 14:24 (vor 1220 Tagen) @ Komila

Hallo Komila,

die Sub macht wohl genau das, was ihr Name besagt: Sie kopiert den Inhalt verschiedener Excelsheets in ein "Mastersheet". Dazu durchläuft sie eine Liste von Dateinamen in einer Schleife.

Martin

Code erklären

Komila, Freitag, 15.07.2016, 14:47 (vor 1220 Tagen) @ Martin Asal

Hallo Martin,

Vielen lieben Danke für die Antwort, aber könnten Sie bitte es mir Schritt für Schritt erklären.

Als ich das probiert habe, es klappt leider nicht :(

Mit Bitte
Komila

Code erklären

Martin Asal @, Freitag, 15.07.2016, 21:32 (vor 1220 Tagen) @ Komila

Hallo Komila,

Vielen lieben Danke für die Antwort, aber könnten Sie bitte es mir Schritt für Schritt erklären.

Schritt für Schritt? Dafür gibt es doch das Tutorial!

Erst das Tutorial lesen, mindestens bis "Objekte", dann noch das, was sich zu Excel und zum Zugriff auf Dateien findet.

Im Code muss man außerdem noch die Zeichen ‘ ändern zu ' sowie “” zu ""

Martin

Code erklären

Komila @, Freitag, 15.07.2016, 23:08 (vor 1220 Tagen) @ Martin Asal

Vielen lieben Danke :)

RSS-Feed dieser Diskussion
powered by my little forum