Szia, a kódoddal küldök egy tartományt excelben e-mailben. Ha törlöm a tartományt, futásidejű hibát kapok. Lehet-e valamilyen kódot vagy msgboxot hozzáadni ennek megakadályozására, valamint a melléklet oszlopainak automatikus illesztésére. A kód egy része alább található
Kösz/media/kunena/emoticons/smile.png

Dim xFile As String
Dim xFormat As Long
Dim Wb munkafüzetként
Dim Wb2 munkafüzetként
Dim Ws munkalapként
Dim FilePath As String
Dim FileName As String
Dim OutlookApp mint objektum
Az OutlookMail halványítása objektumként
Dim WorkRng As Range
xTitleId = "Példa"
Set WorkRng = Alkalmazás.Kiválasztás
Set WorkRng = Application.InputBox("Tartomány", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = Hamis
Application.DisplayAlerts = Hamis
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Állítsa be: Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Válassza a Case Wb.FileFormat lehetőséget
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    Ha Wb2.HasVBProject Akkor
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Más
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    Ha véget
Excel8 eset:
    xFile = ".xls"
    xFormat = Excel8
xlExcel12 eset:
    xFile = ".xlsb"
    xFormat = xlExcel12
Vége kiválasztása