'------------------------------------------------------------------------------------------------------------------------------------------------------------------
਍✀䤀䐀䔀䄀 匀欀爀椀瀀琀㨀 䔀砀挀攀氀䔀砀瀀漀爀琀匀欀爀椀瀀琀⸀椀猀猀 ഀഀ
'Found on Audicon.net Homepage, Written by P. Klaufl, 06/2009, Audicon GmbH
਍✀ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀഀ

਍匀甀戀 䴀愀椀渀ഀഀ
	
਍ऀ䐀䤀䴀 搀戀 愀猀 伀戀樀攀挀琀ഀഀ
	DIM task as Object
਍ऀ䐀䤀䴀 昀椀攀氀搀 愀猀 伀戀樀攀挀琀ഀഀ
	Dim table As Object
਍ऀ䐀䤀䴀 攀焀渀 愀猀 匀琀爀椀渀最ഀഀ
	Dim dbName As String
਍ऀ䐀椀洀 猀一愀洀攀 䄀猀 匀琀爀椀渀最ഀഀ
	Dim sVerzeichnis As String 	'Export Path
਍ऀ䐀椀洀 猀䔀砀挀攀氀䐀愀琀攀椀 䄀猀 匀琀爀椀渀最 ऀ✀一愀洀攀 漀昀 䔀砀挀攀氀 䘀椀氀攀ഀഀ
	
਍ऀ猀嘀攀爀稀攀椀挀栀渀椀猀 㴀 䌀氀椀攀渀琀⸀圀漀爀欀椀渀最䐀椀爀攀挀琀漀爀礀ഀഀ
	
਍ऀ伀渀 䔀爀爀漀爀 刀攀猀甀洀攀 一攀砀琀ഀഀ
		Set db = Client.CurrentDatabase()
਍ऀऀ搀戀一愀洀攀 㴀 搀戀⸀一愀洀攀ഀഀ
		If dbName =  "" Then
਍ऀऀऀ䴀猀最䈀漀砀 ∀倀氀攀愀猀攀 漀瀀攀渀 愀 䐀愀琀愀戀愀猀攀⸀∀ഀഀ
			Exit Sub
਍ऀऀ䔀渀搀 䤀昀ഀഀ
	On Error GoTo 0
਍ऀഀഀ
	'Get the DB-Name and Filename
਍ऀ搀戀一愀洀攀 㴀 搀戀⸀一愀洀攀ഀഀ
	sName = isplit(dbName,Client.WorkingDirectory,".",1)
਍ऀഀഀ
	'Define Path und add a time-signatur to the xlsx-File
਍ऀ猀䔀砀挀攀氀䐀愀琀攀椀 㴀 猀嘀攀爀稀攀椀挀栀渀椀猀 ☀ 猀一愀洀攀 ☀ ∀ ∀ ☀ 䐀愀琀攀⠀⤀ ☀ ∀ ∀ ☀ 椀爀攀瀀氀愀挀攀⠀吀椀洀攀⠀⤀Ⰰ∀㨀∀Ⰰ∀开∀⤀ ☀ ∀⸀堀䰀匀堀∀ഀഀ

਍ऀ✀ 䔀砀瀀漀爀琀ⴀ吀愀猀欀 椀渀挀氀甀搀攀 愀氀氀 䘀椀攀氀搀猀ഀഀ
	Set task = db.ExportDatabase
਍ऀ琀愀猀欀⸀䤀渀挀氀甀搀攀䄀氀氀䘀椀攀氀搀猀ഀഀ
	eqn = ""
਍ऀ琀愀猀欀⸀倀攀爀昀漀爀洀吀愀猀欀 猀䔀砀挀攀氀䐀愀琀攀椀 Ⰰ ∀吀愀戀攀氀氀攀 ㄀∀Ⰰ ∀堀䰀匀堀∀Ⰰ ㄀Ⰰ 搀戀⸀䌀漀甀渀琀Ⰰ 攀焀渀ഀഀ
	਍ഀഀ
	'---------------------------------------------
਍ऀ✀伀瀀攀渀 琀栀攀 砀氀猀砀ⴀ䘀椀氀攀 椀渀 䔀砀挀攀氀 ㈀　　㜀ⴀ㈀　㄀　 瘀椀愀 匀栀攀氀氀ഀഀ
	
਍ऀ䐀椀洀 漀䔀砀挀攀氀 䄀猀 伀戀樀攀挀琀ऀऀഀഀ
	Dim oWorkbook As Object
਍ऀഀഀ
	Set oExcel = CreateObject("Excel.Application")
਍ऀ漀䔀砀挀攀氀⸀嘀椀猀椀戀氀攀 㴀 吀爀甀攀ഀഀ
	
਍ऀ匀攀琀 漀圀漀爀欀䈀漀漀欀 㴀 漀䔀砀挀攀氀⸀圀漀爀欀戀漀漀欀猀⸀伀瀀攀渀⠀猀䔀砀挀攀氀䐀愀琀攀椀⤀ऀഀഀ
	
਍䔀渀搀 匀甀戀ഀഀ