Just nu i M3-nätverket
Gå till innehåll

Export till Excel med makro i Access


Martassen

Rekommendera Poster

Jag har gjort ett makro i Access som exporterar ett formulär till Excel. Man trycker på en knapp i ett formulär och sedan ska man namnge filen som exporteras till Excel och filen öppnas. Makroinstruktionen "Exportera med formatering" och formatet Excel osv.

 

Jag skulle vilja att man får fram en meddelanderuta innan instruktionen Exportera till Excel sker som säger att export kommer ske vill du fortsätta och valen ja och nej. Trycker jag "Ja" så utförs exporten. Trycker jag "Nej" så sker ingen export.

 

Hur gör jag detta?

 

Det går ju lägga in instruktionen "Meddelanderuta" innan instruktionen Exporten men jag har bara tillgång till Ok knapp och har inget annat val.

 

Tack på förhand!

Länk till kommentar
Dela på andra webbplatser

Du kan lägga till parametrar till msgbox för att ange vilken sorts meddelande du vill visa, tex:

svar = MsgBox("Tryck ja eller nej", vbYesNo)
  
If (svar = vbYes) Then
  ....
ElseIf (svar = vbNo) Then
  ....
End If
Länk till kommentar
Dela på andra webbplatser

Hur skulle det kunna se ut i detta fall.
Jag har alltså använt makroinstruktionen
"Exportera med formatering" och vill lägga till en msgbox som frågar om jag vill exportera eller inte(YEas och no).
 

Trycker jag No avbryts allt och ingen export ska ske. TRycker man Yes utförs exporten.

Länk till kommentar
Dela på andra webbplatser

Jag konvertera makrot till VBA och koden blir:

 

Option Compare Database

Function mcrexport()
On Error GoTo mcrexport_Err

    Beep
    MsgBox "Vill du exportera?", vbInformation, "Export"
    DoCmd.OutputTo acOutputForm, "frmOrderupgifter", "ExcelWorkbook(*.xlsx)", "", True, "", , acExportQualityPrint


mcrexport_Exit:
    Exit Function

mcrexport_Err:
    MsgBox Error$
    Resume mcrexport_Exit

End Function
Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...