Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Vanuit Access een excelbestand openen  (gelezen 6393 keer)

0 leden en 1 gast bekijken dit topic.

Offline Hraoul

  • Lid
  • *
  • Berichten: 13
  • Geslacht: Man
  • Oplossing.be
Vanuit Access een excelbestand openen
« Gepost op: 28 december 2016, 13:51:44 »
Zou het mogelijk zij via een knop in een accessformulier een bestaand excelbestand te openen? Misschien via VBA? Jammer genoeg beschik hiervoor niet over de nodige kennis.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Vanuit Access een excelbestand openen
« Reactie #1 Gepost op: 28 december 2016, 18:05:50 »
Dat kan.
Als je eens een vbtje van je exceldocument hier zette en uitlegde wat je er precies mee wil doen in access?
Het allereerste wat je moet doen is in het VBA venster (ALT+F11) in het menu Extra>>Verwijzingen>>Microsoft Excel XX.X Object Library aanvinken.

Wat je daarna doet, hangt wat af van waar je naartoe wilt.




Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Hraoul

  • Lid
  • *
  • Berichten: 13
  • Geslacht: Man
  • Oplossing.be
Re: Vanuit Access een excelbestand openen
« Reactie #2 Gepost op: 29 december 2016, 10:47:53 »
Het enige wat ik wil doen is het bestand openen.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Vanuit Access een excelbestand openen
« Reactie #3 Gepost op: 29 december 2016, 14:56:58 »
Deze code opent een excelbestand dat bestand.xlsx heet en in de zelfde map als de database zit en toont de inhoud van A1 van het eerste werkblad in een MsgBox
    Dim xlApp As Excel.Application
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open CurrentProject.Path & "\bestand.xlsx", True, False
   
    Dim Werkmap As Workbook
    Set Werkmap = xlApp.Workbooks(1)
   
    Dim Werkblad As Worksheet
    Set Werkblad = Werkmap.Sheets(1)
   
    Dim a1 As Range
    Set a1 = Werkblad.Range("A1")
   
    MsgBox a1.Value
   
    Set xlApp = Nothing
    Set Werkmap = Nothing
    Set Werkblad = Nothing
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Hraoul

  • Lid
  • *
  • Berichten: 13
  • Geslacht: Man
  • Oplossing.be
Re: Vanuit Access een excelbestand openen
« Reactie #4 Gepost op: 29 december 2016, 17:53:23 »
Het bestand wordt niet geopend en ook excel niet. Ik krijg enkel een lege message box

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Vanuit Access een excelbestand openen
« Reactie #5 Gepost op: 30 december 2016, 10:21:24 »
  • Heb het zip bestand uitgepakt?
  • Staat de database in de zelfde map als het excel bestand?
  • Staat er in A1 van het eerste tabblad iets?
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Hraoul

  • Lid
  • *
  • Berichten: 13
  • Geslacht: Man
  • Oplossing.be
Re: Vanuit Access een excelbestand openen
« Reactie #6 Gepost op: 31 december 2016, 10:50:16 »
Ik krijg inderdaad de inhoud van de cel A1nu te zien als er iets in staat  maar het excel-bestand zelf is niet geopend. Dit is wel de bedoeling omdat daarin de statistieken van het accessbestand staan. Wellicht moet dit nu toch aangepast kunnen worden. Sorry voor de vraagstelling maar het is niet simpel VBA!

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Vanuit Access een excelbestand openen
« Reactie #7 Gepost op: 31 december 2016, 11:52:31 »
Het excelbestand wordt geopend door deze lijn:
xlApp.Workbooks.Open CurrentProject.Path & "\bestand.xlsx", True, False

Zet na het openen van de het bestand deze code
xlApp.Visible = Trueom het ook zichtbaar te zetten.

Vaak wil men met het excelbestand iets doen en daarna terug sluiten zonder de gebruiker de kans te geven iets te wijzigen.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Hraoul

  • Lid
  • *
  • Berichten: 13
  • Geslacht: Man
  • Oplossing.be
Re: Vanuit Access een excelbestand openen
« Reactie #8 Gepost op: 31 december 2016, 13:34:53 »
Door deze laatste wijziging werkt nu alles. Hartelijk dank en een goed eindejaar!

 


www.combell.com