在Excel VBA中创build映射点对象

此代码有一个运行时错误，说这个线路上所需的对象…

Set objDataSets = objApp.ActiveMap.DataSets 

这是我用作参考…

http://msdn.microsoft.com/en-us/library/aa723407.aspx

---

 Sub CreateMaps() Dim MPApp As MapPoint.Application Set MPApp = New MapPoint.Application MPApp.Visible = True MPApp.UserControl = True OpenDataSet End Sub Sub OpenDataSet() Dim objDataSets As MapPoint.DataSets Dim objDataSet As MapPoint.DataSet Dim zDataSource As String zDataSource = "S:\Projects\StateMapData.xlsx!Data!AY5:AZ56" Set objDataSets = objApp.ActiveMap.DataSets Set objDataSet = objDataSets.ImportData(zDataSource) End Sub