Witam wszystkich użytkowników,
mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików.
Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu z różną częstotliwością. Zależałoby mi na tym aby makro powodowało kopiowanie danych z kolejnych umieszczanych plików, najlepiej nie otwierając już tych które były wcześniej skopiowane.
Makra które do tej pory testowałem sprawiają różne problemy. Główne problemy jakie napotkałem do tej pory w znalezionych makrach to:
- podczas kopiowania kasowanie z każdym wierszem jednej kolumny (przesuwanie w lewo);
- po każdym uruchomieniu makra kopiowanie już skopiowanych plików do pierwszego wolnego wiersza;
- otwieranie wszystkich umieszczonych i już skopiowanych plików na nowo (przy większej ilości zajmuje to sporo czasu).
Sprawa jest na pewno prosta, ale nie mam absolutnie żadnej potrzebnej wiedzy z tego zakresu aby coś z tym zrobić.
Będę wdzięczny za pomoc w tej sprawie!
mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików.
Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu z różną częstotliwością. Zależałoby mi na tym aby makro powodowało kopiowanie danych z kolejnych umieszczanych plików, najlepiej nie otwierając już tych które były wcześniej skopiowane.
Makra które do tej pory testowałem sprawiają różne problemy. Główne problemy jakie napotkałem do tej pory w znalezionych makrach to:
- podczas kopiowania kasowanie z każdym wierszem jednej kolumny (przesuwanie w lewo);
- po każdym uruchomieniu makra kopiowanie już skopiowanych plików do pierwszego wolnego wiersza;
- otwieranie wszystkich umieszczonych i już skopiowanych plików na nowo (przy większej ilości zajmuje to sporo czasu).
Cytat:Sub przegladaniePlikowZkatalogow()
Dim sciezka As String
Dim nazwa As String
Dim pierwszyWolnyWiersz As Integer
Application.DisplayAlerts = False
Application.ScreenUpdating = False
pierwszyWolnyWiersz = 3
sciezka = "C:\Users\Łukasz\Desktop\test\"
nazwa = Dir(sciezka & "*a1*_19*.xlsx*", vbNormal)
Do While nazwa <> ""
Workbooks.Open sciezka & nazwa
Worksheets("Arkusz2").Activate
Range("A3:BJ3").Copy
ThisWorkbook.Sheets("Arkusz1").Range("A" & pierwszyWolnyWiersz).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Close False
pierwszyWolnyWiersz = Range("A" & Rows.Count).End(xlUp).Row + 1
nazwa = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Sprawa jest na pewno prosta, ale nie mam absolutnie żadnej potrzebnej wiedzy z tego zakresu aby coś z tym zrobić.
Będę wdzięczny za pomoc w tej sprawie!
