Annonce
#1 Fri 02 February 2001 23:25
- Gaetan Gaborit
- Invité
ActiveX MapInfo a partir d' Excel
Je souhaite ouvrir un fichier wor a partir d'une macro excel en utilisant la
librairie MapInfo 6.0 OLE Automation Type Library.
J'en suis a
Sub ouvmap()
Dim map As Object
Set map = CreateObject( MapInfo.Application )
With map
.Visible = True
End With
End Sub
ce qui ouvre MapInfo et le rend visible.
Par contre pour la suite je cale, car aucun fichier d'aide n'est associe a
la librairie.
Si quelqu'un a une experience dans ce domaine, je suis preneur de toute
information.
D'avance merci.
Gaetan GABORIT
#2 Fri 02 February 2001 23:26
- Guillaume Lecanu
- Invité
Re: ActiveX MapInfo a partir d' Excel
Il suffit d'interagir avec mapinfo avec deux commandes:
Ici map est l'objet Mapinfo.
Au debut plutot que votre programme, mettez en tete de programme:
Set mif=Createobject( Mapinfo.Application )
Ensuite
Deux commandes,
mif.do string
ici string est une chaine de caracteres qui va peremttre a Excel de lire du
Mapbasic, par exemple:
mif.Do map from communes affiche la carte de la table commune
mif.do Open table C:Cartescommunes.TAB as communes ouvre la table
communes.Tab situee sous C:cartes et le stocke dans le layer communes
Etc... (voir doc mapbasic)
Deuxiemement, pour retirer des infos de mapinfo,
Mif.eval(string)
string est une chaine des caracteres qui va affecter a une variable string
une valeur de mapinfo
nombre_ligne=mif.eval( Tableinfo(communes, TAB_INFO_NROWS) )
EXCEL comprends les codes grace a une liste de constantes que l'on peut
trouver sous Mapbasic et que s'appelle sysmapinfo (module .bas)
A travers ces deux commandes, on peut effectuer l'ensemble des actions
effectuees sous Mapbasic et Mapinfo
Lecanu Guillaume
