Γεια, χρησιμοποιώ τον κωδικό σας για να στείλω ένα εύρος στο excel μέσω e-mail. Αν ακυρώσω το εύρος, λαμβάνω σφάλμα χρόνου εκτέλεσης. Είναι δυνατόν να προσθέσετε κάποιον κώδικα ή πλαίσιο μηνύματος για να το αποτρέψετε, παρακαλώ και επίσης να προσαρμόσετε αυτόματα τις στήλες στο συνημμένο. Μέρος του κώδικα είναι παρακάτω
Ευχαριστώ/media/kunena/emoticons/smile.png
Dim xFile ως συμβολοσειρά
Dim xFormat As Long
Dim Wb ως βιβλίο εργασίας
Dim Wb2 ως βιβλίο εργασίας
Φύλλο εργασίας Dim Ws As
Dim FilePath ως συμβολοσειρά
Dim FileName As String
Εξασθένιση του OutlookApp ως αντικείμενο
Εξασθένιση του OutlookMail ως αντικείμενο
Dim WorkRng As Range
xTitleId = "Παράδειγμα"
Set WorkRng = Εφαρμογή.Επιλογή
Ορισμός WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Ορισμός Wb = Application.ActiveWorkbook
Wb.Φύλλα εργασίας.Προσθήκη
Σετ Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Αντιγραφή
Ορισμός Wb2 = Application.ActiveWorkbook
Επιλέξτε Case Wb.FileFormat
Περίπτωση xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Περίπτωση xlOpenXMLWorkbookMacroEnabled:
Αν Wb2.HasVBProject Τότε
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Αλλού
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Περίπτωση Excel8:
xFile = ".xls"
xFormat = Excel8
Περίπτωση xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Επιλέξτε Τερματισμός
Ευχαριστώ/media/kunena/emoticons/smile.png
Dim xFile ως συμβολοσειρά
Dim xFormat As Long
Dim Wb ως βιβλίο εργασίας
Dim Wb2 ως βιβλίο εργασίας
Φύλλο εργασίας Dim Ws As
Dim FilePath ως συμβολοσειρά
Dim FileName As String
Εξασθένιση του OutlookApp ως αντικείμενο
Εξασθένιση του OutlookMail ως αντικείμενο
Dim WorkRng As Range
xTitleId = "Παράδειγμα"
Set WorkRng = Εφαρμογή.Επιλογή
Ορισμός WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Ορισμός Wb = Application.ActiveWorkbook
Wb.Φύλλα εργασίας.Προσθήκη
Σετ Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Αντιγραφή
Ορισμός Wb2 = Application.ActiveWorkbook
Επιλέξτε Case Wb.FileFormat
Περίπτωση xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Περίπτωση xlOpenXMLWorkbookMacroEnabled:
Αν Wb2.HasVBProject Τότε
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Αλλού
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Περίπτωση Excel8:
xFile = ".xls"
xFormat = Excel8
Περίπτωση xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Επιλέξτε Τερματισμός