Excel 2007 - makro

makro je na tohle krátké, na to budeš potřebovat použít VBS/VBA. Jinak celkem jednoduchá úloha - stačí použít metod VBS k iteraci přes všechny soubory a následně pomocí metod a funkcí VBA provést to kopírování.

a nevedel bys nejaky ty zacatky?? ja nemam totiz zadny knizky k tomu VBS/VBA jak pises...

knížky? Nač knížky? Máš přece internet...

http://technet.microsoft.com/en-us/scriptcenter/de fault.aspx
http://msdn.microsoft.com/en-us/library/d1wf56tt%2 8VS.85%29.aspx

edit: google taky funguje, stačí si zadat VBA open excel files

ty odkazy sou sice hezky a ten seznam v nich tech veci taky...ale jak tomu mam rozumet? vzdyt ja ani nevim jaky veci mam pro svoje ucely hledat?? jaky fce? a jiný...

pisal ti predsa ze mas hladat googlom: VBA open excel files
a najdes urcite aj vytuzene funkcie

neumíš hledat na internetu a to se chceš učit programovat? Tak to přeju hodně štěstí, budeš ho totiž potřebovat

hledat umim...jenomze na to taky nemam spoustu casu.. a kdo rikal ze se chci ucit programovat??? jen sem rekl ze se ucim sam, ne ze se chci ucit.. v tom je rozdíl :D ..ale to je jedno :) i tak díky za nejaky ty rady.

Toto môžeš uložiť ako súbor s príponou VBS a ďalej si to upraviť podľa seba:

Set aShell = CreateObject("WScript.Shell")
aPath = aShell.CurrentDirectory

Set aApplication = CreateObject("Excel.Application")
Set aWorkbook = aApplication.Workbooks.Add
Set aWorksheet = aWorkbook.Worksheets(1)
Set aCell = aWorksheet.Range("A1")

For i = 1 To 3
	Set bWorkbook = aApplication.Workbooks.Open(aPath & "\soubor" & i & ".xls")
	Set bWorksheet = bWorkbook.Worksheets(1)
	aCell.Value = bWorksheet.Range("B1")
	Set aCell = aCell.Offset(1)
	bWorkbook.Close
Next

aWorkbook.SaveAs aPath & "\vysledok.xls"
aWorkbook.Close
aApplication.Quit