Hej jeg bruger din kode til at sende en række i excel via e-mail. Hvis jeg annullerer området, får jeg en runtime-fejl. Er det muligt at tilføje noget kode eller msgbox for at forhindre dette venligst og også for at automatisk tilpasse kolonnerne på vedhæftet fil. En del af koden er nedenfor
Tak/media/kunena/emoticons/smile.png
Dim xFile As String
Dim xFormat så længe
Dim Wb Som arbejdsbog
Dim Wb2 Som arbejdsbog
Dim Ws Som arbejdsark
Dim FilePath som streng
Dim filnavn som streng
Dæmp OutlookApp som objekt
Dæmp OutlookMail som objekt
Dæmp WorkRng As Range
xTitleId = "Eksempel"
Set WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Indstil Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Indstil Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Indstil Wb2 = Application.ActiveWorkbook
Vælg Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Sag xlOpenXMLWorkbookMacroEnabled:
Hvis Wb2.HasVBProject Så
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Afslut Vælg
Tak/media/kunena/emoticons/smile.png
Dim xFile As String
Dim xFormat så længe
Dim Wb Som arbejdsbog
Dim Wb2 Som arbejdsbog
Dim Ws Som arbejdsark
Dim FilePath som streng
Dim filnavn som streng
Dæmp OutlookApp som objekt
Dæmp OutlookMail som objekt
Dæmp WorkRng As Range
xTitleId = "Eksempel"
Set WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Indstil Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Indstil Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Indstil Wb2 = Application.ActiveWorkbook
Vælg Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Sag xlOpenXMLWorkbookMacroEnabled:
Hvis Wb2.HasVBProject Så
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Afslut Vælg