title image


Smiley Re: Aus Access 2010 eine Excel Tabelle öffnen

Hi laubfrosch,

ich nutze folgenden Quellcode:

 

 

Option Compare Database

Function Exceldatei_oeffnen(iDatei_ID As Integer) As Excel.Workbook Dim db As Database Dim rs_DateiName As Recordset Dim sName As String Dim ExApp As Excel.Application Dim wbActBook As Excel.Workbook Dim wsActSheet As Excel.Worksheet Dim strSQL As String Set db = CurrentDb strSQL = "SELECT tbl_Dateinamen.ID, tbl_Dateinamen.Kurzname, tbl_Dateinamen.Dateiname" strSQL = strSQL & " FROM tbl_Dateinamen" strSQL = strSQL & " WHERE (((tbl_Dateinamen.ID)=" & iDatei_ID & "));" Set rs_DateiName = db.OpenRecordset(strSQL) If (rs_DateiName.RecordCount > 0) Then Set ExApp = Excel.Application ExApp.DisplayAlerts = False sPfad = db.Name While Right(sPfad, 1) <> "\" sPfad = Left(sPfad, Len(sPfad) - 1) Wend If (iDatei_ID = 400) Then ExApp.Workbooks.Open sPfad & Left(rs_DateiName![Dateiname].Value, Len(rs_DateiName![Dateiname].Value) - 1), 0 Else ExApp.Workbooks.Open sPfad & rs_DateiName![Dateiname].Value, 0 End If ExApp.Visible = True ExApp.DisplayAlerts = True If (iDatei_ID = 400) Then Set Exceldatei_oeffnen = ExApp.Workbooks(Left(rs_DateiName![Dateiname].Value, Len(rs_DateiName![Dateiname].Value) - 1)) Else Set Exceldatei_oeffnen = ExApp.Workbooks(rs_DateiName![Dateiname].Value) End If Else Set Exceldatei_oeffnen = Nothing End IfEnd Function

Function Exceldatei_oeffnen_str(sName As String) As Excel.Workbook Dim db As Database Dim rs_DateiName As Recordset Dim ExApp As Excel.Application Dim wbActBook As Excel.Workbook Dim wsActSheet As Excel.Worksheet Dim strSQL As String Set db = CurrentDb Set ExApp = Excel.Application ExApp.DisplayAlerts = False sPfad = db.Name While Right(sPfad, 1) <> "\" sPfad = Left(sPfad, Len(sPfad) - 1) Wend

ExApp.Workbooks.Open sPfad & sName, 0 ExApp.Visible = True ExApp.DisplayAlerts = True Set Exceldatei_oeffnen_str = ExApp.Workbooks(sName) End Function

 

Hinweis: Ich steuer diese Funktion mit einer ID an, und suche mit den passenden Dateinamen dann über eine Abfrage in einer Tabelle raus.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: