مرحبًا، أنا أستخدم الكود الخاص بك لإرسال نطاق في Excel عبر البريد الإلكتروني. إذا قمت بإلغاء النطاق، أحصل على خطأ في وقت التشغيل. هل من الممكن إضافة بعض التعليمات البرمجية أو msgbox لمنع ذلك من فضلك وأيضًا لضبط الأعمدة الموجودة في المرفق تلقائيًا. جزء من الكود موجود أدناه
شكر/media/kunena/emoticons/smile.png
خافت x ملف كسلسلة
خافت xFormat طالما
Dim Wb كمصنف
خافت Wb2 كمصنف
خافت Ws كورقة عمل
خافت مسار ملف كسلسلة
خافت اسم الملف كسلسلة
تعتيم OutlookApp ككائن
تعتيم OutlookMail ككائن
خافت WorkRng كنطاق
xTitleId = "مثال"
Set WorkRng = Application.Selection
تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 8)
Application.ScreenUpdating = خطأ
Application.DisplayAlerts = خطأ
تعيين Wb = Application.ActiveWorkbook
أوراق العمل
قم بتعيين Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells (1، 1)
Ws. نسخة
قم بتعيين Wb2 = Application.ActiveWorkbook
حدد حالة Wb.FileFormat
حالة xlOpenXML
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
حالة xlOpenXMLWorkbookMacroEnabled:
إذا كان Wb2.HasVBProject ثم
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
آخر
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
إنهاء حالة
حالة Excel8:
xFile = ".xls"
تنسيق x = Excel8
الحالة xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
إنهاء اختر
شكر/media/kunena/emoticons/smile.png
خافت x ملف كسلسلة
خافت xFormat طالما
Dim Wb كمصنف
خافت Wb2 كمصنف
خافت Ws كورقة عمل
خافت مسار ملف كسلسلة
خافت اسم الملف كسلسلة
تعتيم OutlookApp ككائن
تعتيم OutlookMail ككائن
خافت WorkRng كنطاق
xTitleId = "مثال"
Set WorkRng = Application.Selection
تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 8)
Application.ScreenUpdating = خطأ
Application.DisplayAlerts = خطأ
تعيين Wb = Application.ActiveWorkbook
أوراق العمل
قم بتعيين Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells (1، 1)
Ws. نسخة
قم بتعيين Wb2 = Application.ActiveWorkbook
حدد حالة Wb.FileFormat
حالة xlOpenXML
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
حالة xlOpenXMLWorkbookMacroEnabled:
إذا كان Wb2.HasVBProject ثم
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
آخر
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
إنهاء حالة
حالة Excel8:
xFile = ".xls"
تنسيق x = Excel8
الحالة xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
إنهاء اختر