I would like to import datas from excel into mappoint. I wrote this programm but there's an error 424. Can you help me????


Private Sub Form_Load()

load_mappoint
OpenDataSet

End Sub

Private Sub load_mappoint()

Dim MPApp As MapPoint.Application
Set MPApp = New MapPoint.Application
MPApp.Visible = True
MPApp.UserControl = True

End Sub

Private Sub OpenDataSet()

Dim objDataSets As MapPoint.DataSets
Dim objDataSet As MapPoint.DataSet
Dim zDataSource As String

zDataSource = "C:\Classeur1.xls!Sheet1!A1:B2"
Set objDataSets = objApp.ActiveMap.DataSets 'error 424, here!!!
Set objDataSet = objDataSets.ImportData(zDataSource)

End Sub

Change:
Set objDataSets = objApp.ActiveMap.DataSets 'error 424, here!!!

To:
Set objDataSets = MPApp.ActiveMap.DataSets 'error 424, here!!!

Looks like a copy/paste bug.

Oh! And move the declaratoin of MPApp out of the function. It needs to be global.