🚀 go-pugleaf

Michal AKA Miki <jakistammichal@z.onetu.pl> napisał(a): 

> Użytkownik "Ryszard Mikke" <rmikke@gazeta.SKASUJ-TO.pl> napisał w wiadomości 
> news:hqsbee$1ae$1@inews.gazeta.pl...
> > Witam,
> >
> > w tej grupie chyba po raz pierwszy choć już trochę w VB grzebałem.
> >
> > Potrzebuję porady, bądź skierowania do odpowiedniej dokumentacji, bo mam 
> > dość
> > blade pojecie, jak to ugryżć.
> >
> > Mam dane w Excelu, dla kazdego dnia coś tam jest wpisane.
> > Chce zrobic skrypcik, który będzie te dane czytać i na tej podstawie
> > wstawiać "spotkania" do kalendarza w Outlooku.
> >
> > Pętla czytająca te dane to nie problem, nie mam natomiast pojęcia,
> > jak z Excela wykonac jakiekolwiek operacje na kalendarzu Outlooka.
> > I nie idzie mi jakoś szukanie jakichś konkretnych informacji, jak to 
> > zrobić...
> 
> tutaj masz kod (co prawda wstawianie z Worda, ale w VBA to jest to samo)
> http://www.gmayor.com/create_outlook_entries_from_word.htm
> 
> Generalnie obiekty w kalendarzu nazywaja sie "Appointment" :)
> I takiego czegos powinienes szukac w googlach..
> 
> Pare skrotow:
> http://support.microsoft.com/kb/220595
> http://en.allexperts.com/q/Excel-1059/2008/6/VBA-Excel-Outlook-Appointment.htm
> http://technet.microsoft.com/en-us/library/ee692864.aspx

Jako że powyższe wydaje sie wyjaśniać wszystko, wziąłem się raźno do roboty.

Okazało się jednak, że jeden drobny problem na wcześniejszym etapie jest.
Sytuacja jest taka: w pliku z danymi pisać nie mogę.
Stworzyłem więc drugi plik z guzikiem i podpietym do niego skryptem VBA.
Wszystko fajnie działa pod warunkiem, że plik z danymi mam otwarty.
Natomiast jeśli jest zamknięty, metoda Workbooks.Open otwiera go...
i na tym się kończy działanie skryptu.

Internet zasugerował bug z otwieraniem pliku z wciśniętym shiftem - to nie to.
Próbowałem również zamiast prostego workbooks.open zrobić

Dim book as Workbook
Dim sheet as Worksheet
* * Application.EnableEvents = False
* * Set book = Workbooks.Open Filename:= "C:\Test\ExcelWB_Template.xls"
Set sheet = book.Sheets("Sheet 1")
sheet.Range("A1").FormulaR1C1 = "ABC Company"
sheet.Range("A2").FormulaR1C1 = "123"

(za http://www.pcreview.co.uk/forums/thread-3771789.php 
oczywiście podstawiłem swoje pracowicie wyliczone zmienne
za nazwy pliku i arkusza)
- działa tak samo, jak workbooks.open.

Plik z danymi zawiera makro uruchamiane przy starcie i tego nie zmienię.
Jak to obejść?

rmikke

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