تصدير DoCmd.TransferSpreadsheet:السماح للمستخدم باختيار حفظ الوجهة؟

Question

لقد نجحت في تشغيل TransferSpreadsheet لتصدير استعلام Access إلى ملف Excel في موقع محدد:

Private Sub cmdExportQuery_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "trndOTQry", _ 
"\\company.com\root\share\public\D2S\D2S\D2S_Scorecard\Trend OT.xls"
End Sub

نظرًا لأن هذا ملف مشترك، أريد فتح مربع حوار يسمح للمستخدم بتحديد وجهة الحفظ التي يختارها.وجدت هذا الرابط مع الحل الجيد الذي يشير هذا المقال.عندما أقوم بتوصيل هذا الرمز في نافذتي:

Private Sub cmdExportQuery_Click()
Dim strSaveAsFilter As String
Dim strSaveAsFileName As String
strFilter = ahtAddFilterItem(strSaveAsFilter, "Excel Files (*.xls)", "*.xls")
strSaveAsFileName = ahtCommonFileOpenSave( _
OpenFile:=False, _
Filter:=strSaveAsFilter, _
Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "trndOTQry", _
strSaveAsFileName, , "-1", True
End Sub

لقد فهمت الخطأ Compile Error: Sub or Function not defined, ، يسلط الضوء ahtAddFilterItem باللون الأزرق، ويسلط الضوء Private Sub cmdExportQuery_Click() باللون الأصفر مع سهم أصفر.حاولت إنشاء مشاركة عامة، لكن لم يحدث شيء عندما نقرت على الزر.ما الذي يجب علي فعله للسماح للمستخدم باختيار وجهة الحفظ عند تصدير هذا الاستعلام إلى Excel؟

Answer 1

هناك رمز إضافي كان ينبغي تضمينه أيضًا.تحقق هنا:

http://access.mvps.org/access/api/api0001.htm

لقد وجدت هذا أيضًا والذي قد يكون مفيدًا من شخص آخر لديه نفس الخطأ:

"هل حصلت أيضًا على الرمز الإضافي المذكور في الملاحظة

ملحوظة:لا يزال هذا الرمز يتطلب روتين GetOpenFilename الذي توفره Ken Getz.تأكد من نسخ الوظيفة من هذه المقالة.

الذي يرسل لكhttp://www.mvps.org/access/api/api0001.htm"