Re: vbs i excell - prosze o pomoc.

Piotr Smerda pisze:
> On Mon, 06 Aug 2007 23:29:30 +0200, MrKramer wrote:
>
>> itam
>>
>> Vbs troche sobie cwicze, ale nie za bardzo wiem jak podejsc do tego w
>> excellu. W temacie excella to doslwnie jestem laikiem i nie wiem
>> zupelnie jakich polecen funkcji itp uzyc. Pomozcie prosze bo mam do
>> obrobienia ponad 100 plikow w sposob, ktory opisuje ponizej.
>>
>> Opis
>> -------
>> Pliki excell znajduja sie w jednym katalogu i maja mniej wiecej taki
>> format nazwy: Nazwa_dd-mm-yyy_jakas nazwa.xls
>>
>>
>> Pliki zawieraja kilka arkuszy np:
>> ark1/ark2/ark3 (kazdy arkusz zawiera inna tresc, ale schemat dla kazdego
>> pliku jest ten sam).
>> Interesowalo by mnie pobranie z kazdego pliku z akusza2 "ark2" 5 calych
>> lini (mozna tez zakresem komorek bo jest staly i taki sam w kazdym
>> dokumencie) i wstawic to do jednego pliku wyjsciowego.
>>
>> Jesli chodzi o pliki tekstowe, to nie mialbym problemu, ale tu nie wiem
>> jak do tego podejsc.
>
> Tak na szybko :
>
> Set objExcel1 = CreateObject("Excel.Application")
> Set objWorkbook = objExcel1.Workbooks.Open("C:\Scripts\plik3.xls")
> Set objExcel2 = CreateObject("Excel.Application")
> Set objWorkbook = objExcel2.Workbooks.Open("C:\Scripts\plik2.xls")
> objExcel2.DisplayAlerts = FALSE
>
> For k = 1 to 4
> For l = 1 to 10
> objExcel2.WorkSheets("Arkusz1").Cells(l,k).Value =
> objExcel1.WorkSheets("Arkusz2").Cells(l,k).Value
> Next
> Next
>
> objExcel2.Save
> objExcel1.Quit
> objExcel2.Quit
>
> Kopiuje obszar 4 kolumn i 10 wierszy z Arkusz2 w plik3.xls do Arkusz1 w
> plik2.xls
>
> Nad Range trzeba trochę się obiektami pobawić ale jeśli Ci BARDZO na tym
> zależy odezwij się na priv.
>
Ok super wielkie dzieki.
Jakos to sobie dopasuje do swoich potrzeb, ale wyglada ze to jest to
czego chcialem
Mam jeszcze pytanie. Czy mialbys jakiegos helpa (najlepiej w postacie
chm, albo wiesz moze gdzie takowy sie znajduje) do polecen (czy jak to
sie nazywa) zeby uzywac excelowe odwolania w vbs.
Moj manual jest tylko do vbs w najprostrzej formie i niestety tego nie mam.
Received on Tue Aug 7 21:50:05 2007