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"
S
et 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