'------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IDEA Skript: ExcelExportSkript.iss 
'Found on Audicon.net Homepage, Written by P. Klaufl, 06/2009, Audicon GmbH
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub Main
	
	DIM db as Object
	DIM task as Object
	DIM field as Object
	Dim table As Object
	DIM eqn as String
	Dim dbName As String
	Dim sName As String
	Dim sVerzeichnis As String 	'Export Path
	Dim sExcelDatei As String 	'Name of Excel File
	
	sVerzeichnis = Client.WorkingDirectory
	
	On Error Resume Next
		Set db = Client.CurrentDatabase()
		dbName = db.Name
		If dbName =  "" Then
			MsgBox "Please open a Database."
			Exit Sub
		End If
	On Error GoTo 0
	
	'Get the DB-Name and Filename
	dbName = db.Name
	sName = isplit(dbName,Client.WorkingDirectory,".",1)
	
	'Define Path und add a time-signatur to the xlsx-File
	sExcelDatei = sVerzeichnis & sName & " " & Date() & " " & ireplace(Time(),":","_") & ".XLSX"

	' Export-Task include all Fields
	Set task = db.ExportDatabase
	task.IncludeAllFields
	eqn = ""
	task.PerformTask sExcelDatei , "Tabelle 1", "XLSX", 1, db.Count, eqn
	

	'---------------------------------------------
	'Open the xlsx-File in Excel 2007-2010 via Shell
	
	Dim oExcel As Object		
	Dim oWorkbook As Object
	
	Set oExcel = CreateObject("Excel.Application")
	oExcel.Visible = True
	
	Set oWorkBook = oExcel.Workbooks.Open(sExcelDatei)	
	
End Sub