Importing an Excel File

HI fostc and welcome to the site.

You can use the fileopen function to allow the user to select the excel spreadsheet and then do the import.  Here is some example code for you:

Option Explicit
Dim sFilename As String 'variable to hold the filename

Sub Main
	sFilename = getFilename() 'get the Excel file from the user
	Call importExcelFile()
End Sub

Function importExcelFile() 'Import the Excel file
	Dim task As task	
	Dim dbName As String
	Set task = Client.GetImportTask("ImportExcel")
	dbName = sFilename
	task.FileToImport = dbName
	task.SheetToImport = "Sheet1"
	task.OutputFilePrefix = "Output Filename"
	task.FirstRowIsFieldName = "TRUE"
	task.EmptyNumericFieldAsZero = "TRUE"
	task.PerformTask
	dbName = task.OutputFilePath("Sheet1")
	Set task = Nothing
	Client.OpenDatabase(dbName)

End Function

Function getFilename()
	Dim obj As Object
	Dim sProjectFolder As String 'variable to hold the location of the project folder
	sProjectFolder =  Client.WorkingDirectory() 'start the file open in the project folder
	Set obj = Client.CommonDialogs
		'get the list of Excel sheets and allow the user to select one.
		getFilename = obj.FileOpen("",sProjectFolder & "*.xlsx","Worksheet Files (*.xls; *.xlsx)|*.xls; *.xlsx|All Files (*.*)|*.*||;")
	Set obj = Nothing
End Function