Re: vbs i excell - prosze o pomoc.

On Tue, 07 Aug 2007 21:48:02 +0200, MrKramer wrote:

> 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.

Jak to "używać Excelowe odwołania w vbs"?
To jest obiekt Excel.Application i opis do niego znajdziesz w MSDN - szukaj
Excel Application Object Model. Znajdziesz opis i przykłady wykorzystania.
A przy pisaniu skryptów w VBScript/JScript jako helpa używam Microsoft
Platform SDK - do ściągnięcia z Microsoftu za free (uwaga: duże jest -
około 400-600 MB)

-- 
Pozdrawiam
Piotrek