Sytse1
Gebruiker
- Lid geworden
- 9 aug 2007
- Berichten
- 584
- Office versie
- miDer
Met een selectie query exporteer ik twee kruistabel queries naar Excel.
De twee kruistabellen die in de selectie query verbonden zijn worden regelmatig geupdated.
Werkt uitstekend. En wordt in Excel getoond.
De vraag is of het mogelijk is vanuit Access het Excel sheet zodanig aan te passen dat de kolommen passend zijn.
Hieronder mijn vba script die exporteerd.
Zie een stukje van de sheet als voorbeeld.
De twee kruistabellen die in de selectie query verbonden zijn worden regelmatig geupdated.
Werkt uitstekend. En wordt in Excel getoond.
De vraag is of het mogelijk is vanuit Access het Excel sheet zodanig aan te passen dat de kolommen passend zijn.
Hieronder mijn vba script die exporteerd.
Code:
im tFile As String
Dim Antwoord As Variant
Dim xlApp As Object, wkBK As Object
Antwoord = MsgBox("De spreadsheet wordt opgeslagen in C:\Temp\Periodeoverzicht.xlsx " & Chr(13) & "Wil je het excel bestand nu openen?", vbQuestion + vbYesNo, "Bestand openen")
If Antwoord = vbYes Then
tFile = "C:\Temp\Periodeoverzicht.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_UItslagen_Periode_Kruistabel_Totaal", tFile, True, "Periodeoverzicht"
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
Set wkBK = .Workbooks.Open(tFile)
End With
Else
Antwoord = MsgBox("Oke dan doen we dit niet" & Chr(13) & "U gaat terug naar het laatste overzicht", vbYes, "Volgende keer beter")
End If
Zie een stukje van de sheet als voorbeeld.