Waarde uit cel in excel gebruiken in een label in powerpoint

Status
Niet open voor verdere reacties.

Edwin82

Gebruiker
Lid geworden
2 aug 2013
Berichten
16
Hallo,

Ik heb deze vraag verplaats naar VBA. Daar was hij mee thuis denk ik .

Met vriendelijke groet,

Edwin
 

Bijlagen

  • Test.xlsx
    7,6 KB · Weergaven: 41
  • Presentatie1.zip
    35,5 KB · Weergaven: 52
Laatst bewerkt:
Je code is niet helemaal correct (maar dat wist je al ;) ).
Code:
Private Sub CommandButton1_Click()
Dim aXl As Excel.Application
Dim oWB As Workbook
Dim pad As String
Set aXl = New Excel.Application

    On Error GoTo Hell
    pad = ActivePresentation.Path
    aXl.Visible = False
    Set oWB = aXl.Workbooks.Open(pad & "\Test.xlsx")
    Me.Label1.Caption = oWB.Sheets("data").Range("a1").Value

Hell:
    aXl.Quit
End Sub
 
Hoi OctaFish


Het werkt super!

Bedankt!

Groeten,
Edwin
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan