Re: vbs i excell - prosze o pomoc.

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.

-- 
Pozdrawiam
Piotrek