Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
COPY METHOD FAILED
Hello All,
I'm trying to email a workhsheet (CBLOG) using a command button (cmdCLOSE). The following code I got from several threads here using Ron Debruin's method. I copied the code and just made the adjustments needed i.e. (sheet names, To:, Subject: etc.). When i click on the command button i get "error 1004 Copy Method of Sheets Class Failed". Can anyone figure out what I'm not doing correctly? Any help is appreciated. Thanks. Here is the code: 'Working in 2000-2007 Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim TheActiveWindow As Window Dim TempWindow As Window With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook 'Copy the sheets to a new workbook 'We add a temporary Window to avoid the Copy problem 'if there is a List or Table in one of the sheets and 'if the sheets are grouped With Sourcewb Set TheActiveWindow = ActiveWindow Set TempWindow = .NewWindow .Sheets(Array("CBLOG")).Copy End With 'Close temporary Window TempWindow.Close Set Destwb = ActiveWorkbook 'Determine the Excel version and file extension/format With Destwb If Val(Application.Version) < 12 Then 'You use Excel 97-2003 FileExtStr = ".xls": FileFormatNum = -4143 Else 'You use Excel 2007 'We exit the sub when your answer is NO in the security dialog that you only 'see when you copy a sheet from a xlsm file with macro's disabled. If Sourcewb.Name = .Name Then With Application .ScreenUpdating = True .EnableEvents = True End With MsgBox "Your answer is NO in the security dialog" Exit Sub Else Select Case Sourcewb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If .HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If End If End With ' 'Change all cells in the worksheets to values if you want ' For Each sh In Destwb.Worksheets ' sh.Select ' With sh.UsedRange ' .Cells.Copy ' .Cells.PasteSpecial xlPasteValues ' .Cells(1).Select ' End With ' Application.CutCopyMode = False ' Destwb.Worksheets(1).Select ' Next sh 'Save the new workbook/Mail it/Delete it TempFilePath = Environ$("temp") & "\" TempFileName = "CHANGEBACK LOG FOR " & Sourcewb.Name & " " & Format(Date, "MM/DD/YYYY") Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat: =FileFormatNum On Error Resume Next With OutMail .to = "email address here" .CC = "" .BCC = "" .Subject = "ChangeBack Log" .Body = "Hi, Here are the changeback logs for" & " " & Format (Date, "mm/dd/yyyy") .Attachments.Add Destwb.FullName 'You can add other files also like this '.Attachments.Add ("C:\test.txt") .Display 'or use .Send End With On Error GoTo 0 .Close savechanges:=False End With 'Delete the file you have send Kill TempFilePath & TempFileName & FileExtStr Set OutMail = Nothing Set OutApp = Nothing With Application .ScreenUpdating = True .EnableEvents = True End With End Sub -- Message posted via http://www.officekb.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
COPY METHOD FAILED
Hi AccessUser777
Send me your file private and I will look what is the problem Also not use a/ in the date format, use - for example the / is not allowed in a workbook name TempFileName = "CHANGEBACK LOG FOR " & Sourcewb.Name & " " & Format(Date, "MM-DD-YYYY") -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "AccessUser777 via OfficeKB.com" <u44103@uwe wrote in message news:a2b17194a96f8@uwe... Hello All, I'm trying to email a workhsheet (CBLOG) using a command button (cmdCLOSE). The following code I got from several threads here using Ron Debruin's method. I copied the code and just made the adjustments needed i.e. (sheet names, To:, Subject: etc.). When i click on the command button i get "error 1004 Copy Method of Sheets Class Failed". Can anyone figure out what I'm not doing correctly? Any help is appreciated. Thanks. Here is the code: 'Working in 2000-2007 Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim TheActiveWindow As Window Dim TempWindow As Window With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook 'Copy the sheets to a new workbook 'We add a temporary Window to avoid the Copy problem 'if there is a List or Table in one of the sheets and 'if the sheets are grouped With Sourcewb Set TheActiveWindow = ActiveWindow Set TempWindow = .NewWindow .Sheets(Array("CBLOG")).Copy End With 'Close temporary Window TempWindow.Close Set Destwb = ActiveWorkbook 'Determine the Excel version and file extension/format With Destwb If Val(Application.Version) < 12 Then 'You use Excel 97-2003 FileExtStr = ".xls": FileFormatNum = -4143 Else 'You use Excel 2007 'We exit the sub when your answer is NO in the security dialog that you only 'see when you copy a sheet from a xlsm file with macro's disabled. If Sourcewb.Name = .Name Then With Application .ScreenUpdating = True .EnableEvents = True End With MsgBox "Your answer is NO in the security dialog" Exit Sub Else Select Case Sourcewb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If .HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If End If End With ' 'Change all cells in the worksheets to values if you want ' For Each sh In Destwb.Worksheets ' sh.Select ' With sh.UsedRange ' .Cells.Copy ' .Cells.PasteSpecial xlPasteValues ' .Cells(1).Select ' End With ' Application.CutCopyMode = False ' Destwb.Worksheets(1).Select ' Next sh 'Save the new workbook/Mail it/Delete it TempFilePath = Environ$("temp") & "\" TempFileName = "CHANGEBACK LOG FOR " & Sourcewb.Name & " " & Format(Date, "MM/DD/YYYY") Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat: =FileFormatNum On Error Resume Next With OutMail .to = "email address here" .CC = "" .BCC = "" .Subject = "ChangeBack Log" .Body = "Hi, Here are the changeback logs for" & " " & Format (Date, "mm/dd/yyyy") .Attachments.Add Destwb.FullName 'You can add other files also like this '.Attachments.Add ("C:\test.txt") .Display 'or use .Send End With On Error GoTo 0 .Close savechanges:=False End With 'Delete the file you have send Kill TempFilePath & TempFileName & FileExtStr Set OutMail = Nothing Set OutApp = Nothing With Application .ScreenUpdating = True .EnableEvents = True End With End Sub -- Message posted via http://www.officekb.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
COPY METHOD FAILED
Ron de Bruin wrote:
Hi AccessUser777 Send me your file private and I will look what is the problem Also not use a/ in the date format, use - for example the / is not allowed in a workbook name TempFileName = "CHANGEBACK LOG FOR " & Sourcewb.Name & " " & Format(Date, "MM-DD-YYYY") Hello All, [quoted text clipped - 128 lines] End With End Sub Hi Ron, Thank you for your reply...and actually your reply is what fixed the problem. All I had to do is change the "/" in the date format and your code worked perfect. Thanks again!! -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/201001/1 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy method of worksheet class failed: trying to copy a hidden she | Excel Programming | |||
copy method of worksheet class failed: trying to copy a hidden she | Excel Programming | |||
copy method of worksheet class failed: trying to copy a hidden she | Excel Programming | |||
copy method failed | Excel Programming | |||
Copy method failed | Excel Programming |