To je na konci tohoto:
Workbooks.Open FileName:="H:\Vzory\POKLAD.xls"
Workbooks.OpenText FileName:="C:\TEMP\sap", _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 2), Array(10, 4), Array(22, 2), Array(25, 4), Array(36, 2),
Array(87, 1), _
Array(104, 2), Array(108, 9), Array(111, 1), Array(122, 9), Array(124, 1),
Array(135, 1), _
Array(149, 9))
Sheets("sap").Move Before:=Workbooks("POKLAD.xls").Sheets(1)
Sheets("sap").Select
Sheets("sap").Copy Before:=Sheets(2)
Cili otevri vzor Poklad.xls
Otevri take soubor sap (ktery nema extension a je to textak exportovany, takze
se musi importem prekonvertovat do Excelu - to jsou ta Array)
Pak vezmi list s nazvem sap ze souboru s nazvem sap a presun jej do souboru
Poklad.xls
A pak udelej v teto knize jeste jednu kopii listu sap.
....no a ta se automaticky pojmenuje defaultne sap(2)
pokud tam ty zavorky vadi, pak by se to dalo asi prejmenovat, ale na to makro
take neznam a rucne to bych zase musela celou akci prerusovat atd...
Jinak ta bunka, kam se to ma vlepit je list "Kontr" bunka B2, hleda se text
"CELKEM" v listu "sap(2)" sloupci A, kde bude navratova hodnota ve sloupci F.
...ale jestli je to moc slozite, tak to nechame byt...
______________________________________________________________________
Reklama:
Co davaji v TV? http://tv.seznam.cz
This archive was generated by hypermail 2.1.2 : 21. 05. 2002, 16:04 CEST