Celem uzyskania dostępu do danych zgromadzonych w jakimś pliku należy go otworzyć.
Tego się uniknąć nie da.
Twój problem można rozwiązać tak:
1. Otworzyć plik źródłowy z poziomu VBA
Set oW = Workbooks.Open("zrodlo.xls")
2. Odczytać z niego dane
Dim A(2 to 30) as Variant
For i = 2 to 30
A(i)= oW.Worksheets("dni").Value Next i
3. Zamknąć plik
oW.Close Set oW = Nothing
4. Wpisać dane do "dane.xls"
For i = 2 to 30
Workbooks("dane.xls").Worksheets("dni").Value= A(i) Next i
Powodzenia
napisał: bestiak postów: 24
umieszczony: 11 października 2007 08:24
Witajcie,
Chciałbym kopiować dane między plikami Excella, bez otwierania pliku źródłowego.
Poniższy wiersz kodu wykonuje to zadanie jedynie kiedy oba pliki sa otwarte.
Podpowiedzcie proszę co powinienem zmienić być program działął także bez otwierania zrodlo.xls ?
Option Explicit
Private Sub CommandButton1_Click()
Workbooks("dane.xls').sheets("dni").range("A2:A30")= workbooks("zrodlo.xls").sheets("dni").range("A2:A30")
End Sub
wstecz 1 dalej
otwarty rozpoczął: bestiak
postów: 2
admin
