🚀 go-pugleaf

Użytkownik "Ryszard Mikke" <rmikke@NOSPAM.gazeta.pl> napisał w wiadomości 
news:hrum22$54g$1@inews.gazeta.pl...
> Michal AKA Miki <jakistammichal@z.onetu.pl> napisał(a):
>
>> Użytkownik "Ryszard Mikke" <ryszard.mikke@gmail.com> napisał w wiadomości
>> news:eb026ccb-6c10-4d15-bb84-6ed1ad29c352@37g2000yqm.googlegroups.com...
>> >> Tak na szybko, to najprosciej zmodyfikowac excela z danymi - tam do
>> >> procedury Workbook_Open na samym poczatku wstawic kod, ktory sprawdza,
>> >> czy
>> >> twoj program jest uruchomiony (z konkretna sciezka i nazwa). Jesli 
>> >> tak,
>> >> to
>> >> excel z danymi konczy dzialanie i staje sie zwyklym excelem...
>> >>
>> >> Napisz, czy twoj program wywolujacy plik z danymi to drugi arkusz 
>> >> excela,
>> >> czy jakis exec lub vbs.
>> >
>> > Problem w tym, że nie mogę grzebać w pliku z danymi, z przyczyn hmm...
>> > pozatechnicznych.
>> > Dlatego chcę uruchamiać makro z innego pliku excelowego.
>>
>> W takim razie potrzeba wiecej szczegolow.. jesli mozesz, wrzuc makra 
>> ktore
>> masz oraz te z pliku z danymi..
>> I napisz, w czym dokladnie jest problem - czy zglasza jakis blad, czy nie
>> wykonuje jakichs czynnosci, chociaz powinien...
>
> Skrypty z pliku z danymi nie sa dla mnie dostępne, ale skądinąd wiem,
> że cudów nie robia - wybierają tylko wiersz dla bieżącego dnia, żeby
> plik otwierał się w odpowiednim miejscu.
>
> Natomiast mój skrypt wygląda tak:
>
> Sub wstawSpotkania()
> Dim adresNazwiska, adresDaty As Range
> Dim komorkaNazwiska, komorkaDaty As Range
> Dim Plik, Arkusz, refNazwiska, refDaty As String
> Dim pomNazwiska, pomDaty As String
> Dim Wiersz, Komorka As Double
> Dim book As Workbook
> Dim sheet As Worksheet
>
> Set adresNazwiska = Range("B5")
> Set adresDaty = Range("B6")
>
> pomNazwiska = Mid(adresNazwiska.Formula, 2, 256)
> refNazwiska = Mid(pomNazwiska, InStr(pomNazwiska, "!") + 1, 256)
> pomDaty = Mid(adresDaty.Formula, 2, 256)
> refDaty = Mid(pomDaty, InStr(pomDaty, "!") + 1, 256)
> pomNazwiska = Mid(pomNazwiska, 1, InStr(pomNazwiska, "!") - 1)
> If Left(pomNazwiska, 1) = "'" Then
>    pomNazwiska = Mid(pomNazwiska, 2, 256)
> End If
> If Right(pomNazwiska, 1) = "'" Then
>    pomNazwiska = Mid(pomNazwiska, 1, Len(pomNazwiska) - 1)
> End If
> Arkusz = Mid(pomNazwiska, InStr(pomNazwiska, "]") + 1, 256)
> pomNazwiska = Mid(pomNazwiska, 1, InStr(pomNazwiska, "]") - 1)
> Plik = Application.WorksheetFunction.Substitute(pomNazwiska, "[", "")
> MsgBox "test 0"
> Application.EnableEvents = False
> Set book = Workbooks.Open(Plik, 0, False)
> '========Ponizej tego wiersza nic sie nie wykonuje=============
> Set sheet = book.Sheets(Arkusz)
> Application.EnableEvents = True
> 'Workbooks.Open Plik, 0, True
> MsgBox "test 1"
> Workbooks(Plik).Sheets(Arkusz).Activate
> ActiveSheet.Range(refNazwiska).Select
> MsgBox "Wybrało się?"
> ''Workbooks(Plik).Close SaveChanges:=False
>
> End Sub
>
> I błąd polega na tym, co w komentarzu - po otwarciu pliku z danymi
> nic więcej sie nie wykonuje z mojego skryptu. Skrypt starowy pliku z 
> danymi
> robi swoje i nie zwraca mi sterowania.
>

A probowales przechodzic procedure klawiszem F8 (krok po kroku, kazde 
nacisniecie F8 to 1 krok, wchodzac w kazda procedure zagniezdzona) - to jest 
dobry debugger...

Na chwile obecna jedyne, co mi przychodzi na mysl, to zastapienie tego:

Application.EnableEvents=false

tym:

Application.AutomationSecurity = msoAutomationSecurityForceDisable

(tylko zeby potem z powrotem wrocic do poprzedniego modelu security trzeba 
to troche rozbudowac)
Przyklad znajdziesz np tutaj:
http://www.excelforum.com/excel-programming/384353-using-vba-to-disable-macros-when-opening-files.html

Pozdrawiam
Michal