Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Excel-owcy!!! to znowu ja :)
Mroowek




Typ: neutral
Postów: 51
Zarejestrowany: Feb 2005
Excel-owcy!!! to znowu ja :)

Witam.

Przyznam się bez bicia, że nic nawet nie szukałem na ten temat co oznacza, że idę na totalną łatwiznę.

Poszukuję jakiegoś makra, które przy otwarciu arkusza będzie sprawdzało jaka jest wersja Excela czy Offica i jeśli nie będzie to wersja, która ma VBA w wersji 6 to odpali jakiegoś msgbox-a o niewlasciwej wersji excela i nie odpali arkusza.

Bo zrobiłem swoją pracę w Office 2003 w którym jest VBA v.6 wprowadzony chyba dopiero od wersji Offica 2000.

No i jak otworzy ktos akusz z VBA 5 to bedzie lipa.

Jeśli się gdzieś pomyliłem co do wersji to proszę mnie poprawić, a jeśli ktoś ma takie makro to bardzo prosze o POMOC!!!

Z góry dziękuję.

Pozdrówki od Mroowki.

17-04-2005 23:42
Pokaż profil Mroowek  Wyślij email do Mroowek        4892300
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Mroowko (jak sam siebie w pozdrowieniach nazywasz)

Cytuję ze strony http://www.it-faq.pl/EditModule.aspx?tabid=550&mid=1189&def=Cs_ITSCS_CMS_Articles_View&ArticleID=1050:
Jak sprawdzić, której wersji Microsoft VBA używam?

Aby sprawdzić, czy VBA istnieje w systemie i zidentyfikować wersję obecną w systemie, sprawdź następujące pliki (gdzie C: to dysk systemowy):

C:\ Program FilesCommon FilesMicrosoft SharedVBAvbe.dll  jeśli ten plik istnieje, posiadasz VBA 5.0.
C:\ Program FilesCommon FilesMicrosoft SharedVBAVBA6vbe6.dll jeśli ten plik istnieje, posiadasz VBA 6.0.


Lecz moim zdaniem to nie jest wystarczające, znane mi sa takie wersje:
Microsoft VBA 5.0
Microsoft VBA 6.0
Microsoft VBA 6.2
Microsoft VBA 6.3

czy jak kto woli bez
wersja VBA zatem jest:

MsgBox Application.VBE.Version
u mnie jest Office XP, wersja VBA jest 6.04

Application.Version - wersja Excel.exe

Dim wers As Long
wers = Val(Application.Version)
Select Case wers
  Case 11
    MsgBox "2003"
  Case 10
    MsgBox " XP"
  Case 9
    MsgBox "2000"
  Case 8
    MsgBox "97"
  Case Else
    MsgBox " niższa niż 97"
End Select


i może to Ci wystarczy?

[Post edytowany dnia 18-04-2005 05:58 przez karolinavb]


_____________________________________________
Karolina

18-04-2005 05:41
Pokaż profil karolinavb  Wyślij email do karolinavb   
Mroowek




Typ: neutral
Postów: 51
Zarejestrowany: Feb 2005

Dzięki Karolino.

Wykorzystałem Twoją metodę bo działa i jest prosta.

Wstawiłem tylko w kazdym Case wartosc logiczna (Boolean) (True dla wersji od 2000 do góry, a poniżej 2000 =false) i na tej podstawie będzie się uruchamiał bądź nie moj arkusz.
A i dodałem jeszcze:

      Case Is > 11
        strOpis = "Office w wersji wyższej niż 2003"
        bWersja = True


mam nadzieje ze bedzie działac z wyższymi "Offsami" 

19-04-2005 00:37
Pokaż profil Mroowek  Wyślij email do Mroowek        4892300
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1