Excel - makro do laczenia workbookow w jeden

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» faf 22:51 » JaroMi 22:49 » Kenny 22:48 » Dexter 22:45 » john565 22:43 » Tomasz 22:31 » wrrr 22:29 » rulezDC 22:28 » Chrisu 22:21 » ulan 22:21 » Flo 22:14 » GLI 22:13 » DJopek 22:11 » ReeX 22:10 » ligand17 22:09 » P@blo 22:01 » Janusz 21:52 » biEski 21:51 » Katoda Lt 21:46 » DYD 21:43 Dzisiaj przeczytano 41115 postów, wczoraj 25974 Szybkie ładowanie jest: włączone.

ccc

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ć
1. 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:.
2. 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.count
  SM-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:.