Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Boa tarde pessoal, alguém poderia me ajudar com essa questão?
Tenho uma macro que cria dois arquivos excel e enviam por e-mail esses arquivos. De uma semana para cá, toda vez que executo a macro aparece este erro >> O método Paste da classe Worksheet falhou <<.
Se alguém puder me ajudar agradeço, pois pouparia demais meu tempo de trabalho, pois atualmente estou exportando manualmente.
Segue trecho que exporta os arquivos.
' Exporta a planilha de tempo em Excel
Sub ExportExcel(strExcelAppenFile, strExelAppendObjectID)
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = false
Set xlDoc = xlApp.Workbooks.Add()
Set xlSheet = xlDoc.Worksheets.Add
xlSheet.Name = "Info"
Set SheetObj = ActiveDocument.GetSheetObject(strExelAppendObjectID)
SheetObj.CopyTableToClipboard true
xlSheet.Paste xlSheet.Range("A1")
'xlApp.Save strExcelAppenFile
'xlApp.ActiveWorkbook.Columns(1).AutoFit()
xlApp.ActiveWorkbook.SaveAs strExcelAppenFile
xlApp.Application.Quit
End sub