Dia duit Tá do chód á úsáid agam chun raon in Excel a sheoladh trí ríomhphost. Má chuirim an raon ar ceal faighim earráid rite. An féidir roinnt cód nó bosca msg a chur leis chun é seo a chosc le do thoil agus freisin na colúin ar an gceangaltán a uathfheistiú. Tá cuid den chód thíos
Go raibh maith agat/media/kunena/emoticons/smile.png
Dim xFile Mar Teaghrán
Dim xFormat Chomh fada
Dim Wb Mar Leabhar Oibre
Dim WB2 Mar Leabhar Oibre
Dim Ws Mar Bhileog Oibre
Dim FilePath As Teaghrán
Dim ComhadName Mar Teaghrán
Dim OutlookApp Mar Réad
Dim OutlookMail Mar Réad
Dim WorkRng Mar Raon
xTitleId = "Sampla"
Set WorkRng = Iarratas.Roghnú
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
Application.ScreenUpdating = Bréagach
Application.DisplayAlerts = Bréagach
Socraigh Wb = Application.ActiveWorkbook
Wb.Bileoga Oibre.Cuir
Socraigh Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Socraigh Wb2 = Application.ActiveWorkbook
Roghnaigh Cás Wb.FileFormat
Cás xlOpenXML Workbook:
xFile = ".xlsx"
xFormat = xlOpenXMLLeabhar Oibre
Cás xlOpenXMLLeabhar OibreMacro Cumasaithe:
Má Wb2.HasVBProject Ansin
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnable
Eile
xFile = ".xlsx"
xFormat = xlOpenXMLLeabhar Oibre
Deireadh Má
Cás Excel8:
xFile = ".xls"
xFormat = Excel8
Cás xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Roghnaigh Roghnaigh
Go raibh maith agat/media/kunena/emoticons/smile.png
Dim xFile Mar Teaghrán
Dim xFormat Chomh fada
Dim Wb Mar Leabhar Oibre
Dim WB2 Mar Leabhar Oibre
Dim Ws Mar Bhileog Oibre
Dim FilePath As Teaghrán
Dim ComhadName Mar Teaghrán
Dim OutlookApp Mar Réad
Dim OutlookMail Mar Réad
Dim WorkRng Mar Raon
xTitleId = "Sampla"
Set WorkRng = Iarratas.Roghnú
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
Application.ScreenUpdating = Bréagach
Application.DisplayAlerts = Bréagach
Socraigh Wb = Application.ActiveWorkbook
Wb.Bileoga Oibre.Cuir
Socraigh Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Socraigh Wb2 = Application.ActiveWorkbook
Roghnaigh Cás Wb.FileFormat
Cás xlOpenXML Workbook:
xFile = ".xlsx"
xFormat = xlOpenXMLLeabhar Oibre
Cás xlOpenXMLLeabhar OibreMacro Cumasaithe:
Má Wb2.HasVBProject Ansin
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnable
Eile
xFile = ".xlsx"
xFormat = xlOpenXMLLeabhar Oibre
Deireadh Má
Cás Excel8:
xFile = ".xls"
xFormat = Excel8
Cás xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Roghnaigh Roghnaigh