title image


Smiley Re: Excel-Tabelle über DAO einbinden
Such dir eins aus:



Public Function CreateExcelLink(Optional DestTblName = "tblTestLink", _

Optional FName = "I:\Samples\MeineTabelle.xls", Optional ByVal Range = "")

Dim db As Database, Tbl As TableDef

On Error Resume Next

db.TableDefs.Delete DestTblName

On Error GoTo 0

Set db = CurrentDb

Set Tbl = db.CreateTableDef(DestTblName)

If Range = "" Then

Range = Mid(FName, InStrRev(FName, "\") + 1)

Range = Left(Range, InStrRev(Range, ".") - 1) & "$"

End If

Tbl.SourceTableName = Range

Tbl.Connect = "Excel 8.0;HDR=YES;IMEX=2;DATABASE=" & FName

db.TableDefs.Append Tbl

End Function



Public Function CreateExcelLink1(Optional DestTblName = "tblTestLink", _

Optional FName = "I:\Samples\MeineTabelle.xls", Optional ByVal Range = "")



On Error Resume Next

DoCmd.DeleteObject acTable, DestTblName

On Error GoTo 0

DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel97, DestTblName, FName, True, Range



End Function



(Vermutlich fehlt bei dir nur der "$" in: tdf.SourceTableName = "Tabelle1$")


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: