|
TwojePC.pl © 2001 - 2024
|
 |
A R C H I W A L N A W I A D O M O Ś Ć |
 |
| |
|
Excel - makro do laczenia workbookow w jeden , Kenny 8/06/12 10:18
Jest takie marko: http://www.teachexcel.com/...ooks-macro-excel.html
Otwieram excela, wskazuje pliki, laczy mi pierwsze arkusze z kazdego z nich w jeden. Dziala ok. Mam tylko jeden problem.
W linijce Set sourceRange = .Range("A1:Q200) okreslam jaki obszar z tychze arkuszy ma pobrac. Sek w tym ze oczywiscie w kazdym z plikow mam inna ilosc linijek.
Da sie sztywny wpis A1:Q200 zastapic jakims odpowiednikiem Ctrl+A, ktory pobierze z arkuszy zrodlowych tylko komorki z danymi? Z vba jestem lama - bazuje na gotowcach :).:Pozdrowienia:. - hmmm... , Jaskier 8/06/12 11:03
możesz na początku określić liczbę wierszy
liczbawierszy = Worksheets(1).UsedRange.Rows.Count
a potem zamiast .Range("A1:Q200") wpisać .Range("A1:Q" & liczbawierszy)
powinno zadziałać- cos mi nie poszlo, ale znalazlem co innego , Kenny 8/06/12 11:31
ccialem zastapic
Set sourceRange = .Range("A1:Q500")
tym
Set sourceRange = .Range("A1").CurrentRegion.Select
i... tez nie dziala :/ Dostaje pusty sheet..:Pozdrowienia:. - hmm , kubazzz 8/06/12 11:54
Worksheets(1).UsedRange.Rows.Count - to może nie działać prawidłowo, jeśli aktywny jest nie ten workbook co trzeba.
Bezpieczniej: Workbooks(nazwa_wbk_zrodlowego).Worksheets(numer lub nazwa).UsedRange.Rows.countSM-S908
- dobra, dalem se spokoj , Kenny 8/06/12 12:20
merguje po 10k wierszy (taki zapas mi wystarczy) z kazdego, a po chwili usuwa puste linie i po klopocie, przynajmniej jako tymczasowe rozwiazanie :).:Pozdrowienia:.
|
|
|
|
 |
All rights reserved ® Copyright and Design 2001-2024, TwojePC.PL |
 |
|
|
|
