Otwieranie plików excela przez formularz VBA

[k***@go2.pl]

Witam

Mam taki problem
Przygotowałem sobie formularz w VBA ( uruchamia się automatycnie przy otwarciu
pliku o nazwie "wejscie.xls").Na formularzu znajdują sie przyciski których
zadaniem ma być uruchamianie wybranych plików excela i przełączanie na te pliki.

Problem polega na tym, że nie wiem jak:
- powinno wyglądać makro, które otwiera dany plik z poziomu tego formularza
np. "arkusz1" , a nastepnie powoduje, że plik ten staje się aktywny, a mój
formularz "Chowa się" i ja pracuję sobie na wybranym pliku.

- gdy skończe pracę z moim plikiem "arkusz1" i gdy go zamknę to znowu aktywny
będzie plik"wejście.xls" i pojawi się mój formularz i będę mógł otworzć kolejny
plik.

Jeżeli możesz mi pomóc to z góry dzięki

pozdrowienia
Gregor

[mk]

- powinno wygl±daæ makro, które otwiera dany plik z poziomu tego

formularza

np. "arkusz1" , a nastepnie powoduje, ¿e plik ten staje siê aktywny, a mój
formularz "Chowa siê" i ja pracujê sobie na wybranym pliku.

Zapewne masz przycisk na formularzu, która ma otwieraæ dany zeszyt, czy tak?
Wobec tego w zdarzeniu click tego przycisku pisze:

Private Sub CommandButton1_Click()
Workbooks.Open ("C:\open.xls") 'C:\ to lokalizacji Twojego zeszytu,
który ma byæ otwarty, open.xls to jego nazwa
Unload UserForm1 'UserForm1 to nazwa formularza na którym jest przycisk
otwieraj±cy, ta linia zamyka formularz
Workbooks("wejscie.xls").Close ' zamyka ca³y zeszyt wejscie.xls
End Sub

Nie martw siê kodem 'aktywuj±cym' arkusz, bo aktywnym staje siê ten na
którym powy¿sze makro wykona³o czynno¶æ jego otwarcia

W zdarzeniu BeforeClose zeszytu open.xls umieszczasz:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Open ("C:\wejscie.xls")
End Sub

pozdrowionka i pisz w razie czego