Function SyfAdiAl(fn As String, SyfAdi As String) As String
Dim conn As Object, db As Object
Dim tbl As Object
On Error Resume Next
Set conn = CreateObject("DAO.DBEngine.120")
Set db = conn.OpenDatabase(fn, False, True, "Excel 12.0 Xml;HDR=Yes;")
xSQL = ""
Set tbl = db.TableDefs(SyfAdi)
If (Err.Number = 0) Then
xSQL = xSQL & "union all " & _
"select [" & tbl.Fields(0).Name & "],[" & tbl.Fields(1).Name & "],[" & tbl.Fields(2).Name & "],[" & tbl.Fields(3).Name & _
"],[" & tbl.Fields(4).Name & "],''," & _
"[" & tbl.Fields(5).Name & "],[" & tbl.Fields(6).Name & "] " & _
"from [" & tbl.Name & "] IN """ & fn & """ ""EXCEL 8.0;"" where ([HAFTAKOD] Is Not Null) and [HAFTAKOD] not like 'STO*' "
xSQL = xSQL & "union all " & _
"select [" & tbl.Fields(0).Name & "],[" & tbl.Fields(1).Name & "],[" & tbl.Fields(2).Name & "],[" & tbl.Fields(3).Name & _
"],[" & tbl.Fields(4).Name & "],[" & tbl.Fields(5).Name & "],'','' " & _
"from [" & tbl.Name & "] IN """ & fn & """ ""EXCEL 8.0;"" where ([HAFTAKOD] Is Not Null) and [HAFTAKOD] like 'STO*' "
Else
Err.Clear
End If
Set db = Nothing
Set conn = Nothing
SyfAdiAl = xSQL
End Function