Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64245 Skopiuj do schowka Makro kopiowanie wybranych kolumn z pliku wg nazwy
Autor Wiadomość
Adamus25
Starszy Forumowicz


Pomógł: 5 razy
Posty: 46
Wysłany: 25-02-2019, 19:06   Makro kopiowanie wybranych kolumn z pliku wg nazwy

Prośba o napisanie makro

Folder Kopie
W folderze zapisywane są codziennie (kilka razy w ciągu dnia) pliki:
Kod:
2019-02-26_11-54-09_[Kopia]_Dane.xlsm
2019-02-25_13-58-10_[Kopia]_Dane.xlsm
2019-02-24_20-54-09_[Kopia]_Dane.xlsm
2019-02-24_18-12-45_[Kopia]_Dane.xlsm


Z ostatniego zapisanego pliku (najwyższa data i godzina) skopiowanie kolumn B:H i wklejenie jako wartości do kolumn B:H do Arkusz1 w pliku test.xlsm

Zamknięcie pliku *********_[Kopia]_Dane.xlsm

Z góry dziękuję za pomoc
ID posta: 363240 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 322 razy
Posty: 1716
Wysłany: 04-03-2019, 13:55   

"Ostatni" ma być definiowany po nazwie czy po dacie / czasie zapisu na dysku?
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 363612 Skopiuj do schowka
 
 
apollo
ExcelSpec


Pomógł: 1234 razy
Posty: 4296
Wysłany: 04-03-2019, 15:36   

Nie ma pliku, nie wiadomo, czy kopiować całe kolumny czy tylko od do, nie wiadomo, z którego arkusza (nazwa), bo podano tylko, do którego arkusza, nie wiadomo, czy nadpisanie czy kopiowanie po istniejących danych. Sam więc popraw dla swoich potrzeb.

Kod kopiuje z Arkusz1 zakres B1:H1000 do Arkusz1 do B1:H1000

Kod w test.xlsm
Kod:

Sub kopiuj()
Dim filename As String, s As String, wb As Workbook
    s = Dir(ThisWorkbook.Path & "\Kopie\*_[Kopia]_Dane.xlsm")
    Do While s <> ""
        If s > filename Then filename = s
        s = Dir
    Loop
    If filename = "" Then Exit Sub
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\Kopie\" & filename)
    ThisWorkbook.Worksheets("Arkusz1").Range("B1:H1000").Value = wb.Worksheets("Arkusz1").Range("B1:H1000").Value
   
    wb.Save
    wb.Close
   
    Set wb = Nothing
End Sub
ID posta: 363617 Skopiuj do schowka
 
 
Adamus25
Starszy Forumowicz


Pomógł: 5 razy
Posty: 46
Wysłany: 04-03-2019, 19:30   

Wprowadzę odpowiednie nazwy i będę testował. Dziękuję bardzo.
ID posta: 363636 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe