Avatar billede erlandsen Seniormester
31. maj 2009 - 15:02 Der er 8 kommentarer og
1 løsning

link til arbejdsgruppe skabeloner

Jeg har en formular hvor jeg skal have lavet et link fra til vores Word arbejdsgruppe skabeloner som ligger på f:\skabeloner

Når man åbner excel kommer man frem til disse ved at vælge:
Filer - Ny... - Skabeloner på denne computer...

Jeg kan se at der i guiden komandoknap findes en knap til at åbne excel, hvor hændelsen ser ud således - sp. er så, hvordan jeg får hændelsen til også at eksekvere Filer - Ny... - Skabeloner på denne computer...?

Private Sub excel_Click()
On Error GoTo Err_excel_Click

    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True

Exit_excel_Click:
    Exit Sub

Err_excel_Click:
    MsgBox Err.Description
    Resume Exit_excel_Click
   
End Sub
Avatar billede supertekst Ekspert
01. juni 2009 - 23:54 #1
Eksempel:

Rem Reference til Word skal sættes i VBA-vinduet:
Rem Tools / References / Microsoft Word 11.0 Object Library

Option Compare Database
Private Sub Kommandoknap0_Click()
On Error GoTo Err_Kommandoknap0_Click

    Dim oApp As Object
    Set oApp = CreateObject("Word.Application")
   
    With oApp
        dlgAnswer = .Dialogs(wdDialogFileNew).Show
        .Visible = True
    End With
   
Exit_Kommandoknap0_Click:
    Exit Sub

Err_Kommandoknap0_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap0_Click
   
End Sub
Avatar billede erlandsen Seniormester
02. juni 2009 - 01:02 #2
Hvis jeg bruger guiden kommandoknap til at lave word linket (og ikke link til excel som jeg fejlagtigt havde lavet ovenfor) - så for jeg nedenstående som jeg så har indsat din with-sætning i:

    With oApp
        dlgAnswer = .Dialogs(wdDialogFileNew).Show
        .Visible = True
    End With


-så det ser ud således:

Private Sub word_Click()
On Error GoTo Err_word_Click

    Dim oApp As Object

    Set oApp = CreateObject("Word.Application")
    With oApp
        dlgAnswer = .Dialogs(wdDialogFileNew).Show
        .Visible = True
    End With

Exit_word_Click:
    Exit Sub

Err_word_Click:
    MsgBox Err.Description
    Resume Exit_word_Click
   
End Sub


-men så får jeg fejlen:

Det pågældende medlem af samlingen findes ikke...
Hvad gør jeg forkert?
Avatar billede mugs Novice
02. juni 2009 - 07:32 #3
Jeg har ikke læst hele koden igennem, men fejlenk an være, ay du mangler en reference til Word i Access VBA-editoren under Tolls > References.
Avatar billede mugs Novice
02. juni 2009 - 07:44 #4
Denne kode åbner et word-dokument på den givne adresse. Kræver reference til Word:

Dim objword As New Word.Application
Dim WordDoc As New Word.Document
Set WordDoc = objword.Documents.Add("C:\Mappe\filnavn.doc")
objword.Visible = True
DoCmd.Hourglass False
Avatar billede erlandsen Seniormester
02. juni 2009 - 17:38 #5
supertekst eksempel virker når ref. er sat...
lægger du et svar...
Avatar billede supertekst Ekspert
02. juni 2009 - 17:44 #6
Ja - det gør jeg..
Avatar billede mugs Novice
02. juni 2009 - 17:50 #7
Jeg kan ikke lide, at supertekst ikke bruger Option Explicit.
Avatar billede erlandsen Seniormester
02. juni 2009 - 18:12 #8
Hvad er Option Explicit?
Avatar billede supertekst Ekspert
02. juni 2009 - 22:58 #9
Option Explicit Statement
     

Used at module level to force explicit declaration of all variables in that module.

Syntax

Option Explicit

Remarks

If used, the Option Explicit statement must appear in a module before any procedures.

When Option Explicit appears in a module, you must explicitly declare all variables using the Dim, Private, Public, ReDim, or Static statements. If you attempt to use an undeclared variable name, an error occurs at compile time.

If you don't use the Option Explicit statement, all undeclared variables are of Variant type unless the default type is otherwise specified with a Deftype statement.

Note  Use Option Explicit to avoid incorrectly typing the name of an existing variable or to avoid confusion in code where the scope of the variable is not clear.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester