Function ¶×¥X()
On Error GoTo ¶×¥X_Err
DoCmd.OutputTo acOutputQuery, "abc", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityScreen
¶×¥X_Exit:
Exit Function
¶×¥X_Err:
MsgBox Error$
Resume ¶×¥X_Exit
End Function
°²³]§Úªº¬d¸ßªí20Ó ¦p¦ó§å¦¸¶×¥X ½Ð±Ð¦U¦ì¤j¤j |