ShowImportWizard method
Opens the Import Data Wizard; similar to clicking Import Data Wizard on the Data menu. Returns a DataSet object if one is created. Returns Nothing if the user cancels out of the wizard.
Applies to
Collections: DataSets
Syntax
object.ShowImportWizard([HWndParent], [DataSourceMoniker], [Delimeter], [ImportFlags])
Parameters
Part | Description | |||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
object | Required. An expression that returns a DataSets collection. | |||||||||||||||||||||||||||
HWndParent | Optional Long. Handle of the user's window, to allow the Import Data Wizard to be modal to a window in the calling application, rather than MapPoint.
Note Do not use a handle for a window other than the MapPoint window if the MapPoint window is visible. | |||||||||||||||||||||||||||
DataSourceMoniker | Optional String. File name to import. Can also provide information on which part of the file to import. See the DataSourceMoniker syntax topic for the correct syntax to use for this parameter. If a file name is not specified, the user interface will prompt the user for a file to import. | |||||||||||||||||||||||||||
Delimiter | Optional GeoDelimiter. Characters that separate individual fields. Can be one or more characters. Required for importing text (.txt) files. Default is geoDelimiterDefault.
| |||||||||||||||||||||||||||
ImportFlags | Optional Long. Provides information about the DataSourceMoniker and the data in the file. Multiple values can be passed by using the Visual Basic "Or" operator (for example, geoImportExcelNamedRange Or geoImportFirstRowIsNotHeadings ).
|
Remarks
To import data as a DataSet object, use the ImportData method on a DataSets collection.
Example
Sub ShowWizard()
Dim objApp As New MapPoint.Application
objApp.Visible = True
objApp.UserControl = True
Dim objDS As MapPoint.DataSet
With objApp.ActiveMap.DataSets
Set objDS = .ShowImportWizard
End With
End sub
Example using parameters
Sub ShowWizard()
Dim objApp As New MapPoint.Application
objApp.Visible = True
objApp.UserControl = True
Dim strFile As String
Dim objDS As MapPoint.DataSet
With objApp.ActiveMap.DataSets
'Excel sheet
strFile = objApp.Path & "\Samples\Sales.xls!Sheet1!A1:C22"
Set objDS = .ShowImportWizard(, strFile, , geoImportExcel)
End With
End sub