🚀 go-pugleaf

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.

rmikke

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/