Makro-otwieranie pliku i kopiowanie arkusza

Question

Witam
Mam plik 1.xls. Jak napisać kod do makra, które otwierałoby plik z pulpitu (wskazany przeze mnie), kopiowałoby wszystko z pierwszego arkusza z kolumn A:N i wklejało wszystko do arkusza Dane do kolumn A:N w pliku 1.xls?

adamas_nt · Answer

1. Nagraj makro wykonujące w/w czynności, przeanalizuj. 2. Zerknij tutaj, następnie tutaj 3. Połącz, usuń nadmiar kodu 4. Jak coś nie będzie działać, opisz na forum.

zbysiomysio · Answer

Dzięki za nakierowanie. Nagrałem i przerobiłem makro j.n. Mam tylko jedno pytanie, t.j. plik źródłowy z makrem będzie uruchamiany na różnych komputerach. Czy jest możliwe, aby na każdym komputerze domyślnie pokazywało się okienko do wskazania pliku z pulpitu (aby użytkownicy nie musieli szukać pliku, który ma być skopiowany, a mieli od razu podgląd na pulpit na którym będzie plik z którego będą kopiowane kolumny)?

Zaloguj się, aby zobaczyć kod

Moderowany przez adamas_nt:
Proszę umieszczać kod pomiędzy znacznikami Syntax

adamas_nt · Answer

FileDialog ma wiele właściwości. Np: .InitialFileName = Environ(HOMEPATH) & \Desktop\

zbysiomysio · Answer

Dzięki za pomoc Czy ktoś może mi jeszcze pomóc jaką należy podać procedurę w powyższym makrze , aby po skopiowaniu kolumn plik z którego zostały skopiowane kolumny został zamknięty, a pozostał otwarty plik do którego zostały wklejone kolumny?

clubs · Answer

Witam Nie rozumiem tylko co to jest za skoroszyt Windows(Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls).Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku?

zbysiomysio · Answer

Przepraszam może to jest mało zrozumiałe, ale ja próbuję metodą prób i błędów. Poniżej częściowy kod mojego makra, które wygląda teraz tak: Kod: VBScriptZaloguj się, aby zobaczyć kod Ostatecznie makro to ma kopiować kolumny A:N z pliku wskazanego przeze mnie i wklejać do arkusza IL w skoroszycie aplikacja gaz. Chodzi teraz o to, aby po skopiowaniu tych kolumn i ich wklejeniu był zamykany plik z którego zostały skopiowane kolumny, natomiast pozostał otwarty plik aplikacja gaz

clubs · Answer

Czyli w aplikacja gaz.xls masz to powyższe makro tak?

zbysiomysio · Answer

Tak

clubs · Answer

Kod: VB.netZaloguj się, aby zobaczyć kod

zbysiomysio · Answer

Dzięki . Jeszcze nie opanowałem tego, ale rozumiem, że jeżeli ma wkleić do arkusza 3 to po wkb1.Sheets powinienem wstawić (3)? A co dopisać jeszcze i w którym miejscu, aby przed wklejeniem wyczyściło arkusz 3? Ja miałem to: Sheets("Arkusz3").Select Cells.Clear
[quote]wkb2.Sheets(1).Columns("A:N").Copy wkb1.Sheets(1).Columns("A:A")[quote]

Dodano po 13 [minuty]:

Już wiem, że trzeba poprawić na Sheets(3), tylko czy w tym kodzie da się jeszcze wkleić czyszczenie tego arkusza3 przed wklejeniem

clubs · Answer

Kod: VB.netZaloguj się, aby zobaczyć kod

zbysiomysio · Answer

Super Dzięki wielkie za pomoc. Zamykam temat.

Makro-otwieranie pliku i kopiowanie arkusza

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Podsumowanie tematu