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
	» Fl@sh 23:17 » DJopek 23:08 » petropank 23:07 » rarek 23:06 » Wolf 23:05 » Zbyszek.J 23:02 » b0b3r 22:58 » cVas 22:56 » dugi 22:51 » Dexter 22:50 » Soulburne 22:44 » stefan_nu 22:41 » Brauni 22:41 » maddog 22:39 » Kenny 22:36 » toledo 22:35 » Raist 22:33 » DYD 22:32 » buddookan 22:32 » siwydym 22:29 Dzisiaj przeczytano 40076 postów, wczoraj 25604 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:.