Koledzy posiadam takie makro kopiujące z plików do jednego arkusza.
Wszystko działa, problem polega na tym że zaszyte mam gdzie makro ma zaczynać kopiowanie i zazwyczaj kończy na pierwszy wolnym polu. Z tego powodu czasem omija dane jak komórka jest pusta.
Czy ktoś mógłby zasugerować jak powinno wyglądać makro kopiujące cały arkusz?
Dziekuje za pomoc
Wszystko działa, problem polega na tym że zaszyte mam gdzie makro ma zaczynać kopiowanie i zazwyczaj kończy na pierwszy wolnym polu. Z tego powodu czasem omija dane jak komórka jest pusta.
Czy ktoś mógłby zasugerować jak powinno wyglądać makro kopiujące cały arkusz?
Option Explicit
Sub odczytPlikuZKatalogu()
Dim docelowy As Worksheet
Dim odczytany As Workbook
Dim sciezka As String
Dim nazwa_pliku As String
Dim ileA As Long
Application.ScreenUpdating = False
Const Odstep = 1
Set docelowy = ThisWorkbook.Worksheets(1)
sciezka = ThisWorkbook.Path & "\test\"
nazwa_pliku = Dir(sciezka & "*.xls")
With docelowy
Do While nazwa_pliku <> ""
ileA = .Cells(.Rows.Count, "A").End(xlUp).Row + 2
If .Range("A1") = "" Then ileA = 1
Set odczytany = Workbooks.Open(sciezka & nazwa_pliku)
odczytany.Worksheets("Dokument").Cells(24, 1).CurrentRegion.Copy .Cells(ileA, "A")
odczytany.Close
nazwa_pliku = Dir
Loop
End With
Application.ScreenUpdating = True
End Sub
Dziekuje za pomoc
naotmiast mimo usilnych starań nie potrafie tego zamienić na cały plik
