excel - Excel VBA でマップ ポイント オブジェクトを作成する

Question

このコードには、この行にオブジェクトが必要であるという実行時エラーがあります...

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