åbne en specifik excel fil fra access.

Denne programkode åbner en Excel-fil ( Filplacering styren fra en tabel )

Sub runXL()
Dim myXLWrkBk
Dim FilPlacering As String
On Error Resume Next

FilPlacering = DLookup("[Excel_Filplacering]", "tblFilplacering")

'Open connection to XL workbook and make visible.

    Set myXLWrkBk = GetObject(FilPlacering & "ExcelGantt.xls")
    myXLWrkBk.Application.Visible = True
    myXLWrkBk.Application.Windows("ExcelGantt").Visible = True
 

'Run procedure in ThisWorkBook folder.
    myXLWrkBk.Application.Run "ThisWorkBook.Auto_Aktiver"
   
End Sub

Denne åbner en bestemt excelfil som er angivet direkte i koden:


Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:="C:\test.xls"

Husk at der skal sættes en referance til excel i din vba editor

Lidt mere uddybende:

Opret en knap på din formular ved OnClick eventes på knappen skal ovenstående kodeeks. så skrives. Når dette er gjort skal du i vba editoren aktivere menuen Tools/Reff. Nu vises en liste med tilgængelige referancer, her skal du så blot hakke af i refferancen Microsoft Excel Objekt 11.0 bemærk at du kan have en anden version, men det er her du skal hakke af så vil ovenstående kodeeks. virke :o)

Sådan åbner du en specifik Word-fil:


'Kode start
On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "D:\opskrifter\"
Const ext As String = ".doc"
docname = dir & Me.Nr & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number
'Kode slut

D:\opskrifter er den mappe hvori du har dine Word-filer placeret.

docname = dir & Me.Nr & ext
Me.Nr er et feltnavn (Nr) i din access formular der indeholder navnet på Wordfilen. Docname bliver nu dannet af variablerne dir & Me.Nr & .ext

Koden krævr en reference til Word i Tools > References

Du kan  udbygge koden til Excel således, idet det ike er særlig hensigtsmæssig ast skulle ændre o selve koden, hvis du vil skifte fil og åbne en anden:

Dim VARa As String
VARa = InputBox(Prompt:="Indtast stien til Excel-filen", Title:="Importer Excel", Default:="C:\")
Dim xls As New Excel.Application
xls.Visible = True
xls.Workbooks.Open Filename:="C:\test.xls"