Hi,
I have a master workbook and want to run a macro (as per below) which would open another workbook and copy data on a tab from the opened workbook into my master workbook. But each time I try to do that, I get the above 1004 error. Both the files are Binary Workbooks (to keep the file size small) but still touch 35mb each. I was wondering if the file type or file size have anythign to do with the error.
Any help will be appreciated.
Sub Import_EMEA1_Data()
'
'Import data from EMEA1 file to the EMEA Consolidated Pack
'
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Dim wb1 As Workbook
FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Copy from", _
FileFilter:="Report Files (*.xls*),*.xls*")
If FileToOpen = False Then
MsgBox "No File Specified.", vbExclamation, "ERROR"
Exit Sub
Else
Set wb1 = Workbooks.Open(Filename:=FileToOpen)
wb1.Sheets("OpEx Con").UsedRange.Copy
ThisWorkbook.Sheets("EMEA 1").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
wb1.Sheets("OpEx Con").UsedRange.Copy
ThisWorkbook.Sheets("EMEA 1").Range("A1").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End If
wb1.Close SaveChanges:=False
Sheets("Control Panel").Select
Range("C3").Select
Cells(44, 19).Value = Format(Now, "dd/mm/yyyy")
Cells(45, 19).Value = Format(Now, "hh:mm ampm")
Cells(46, 19).Value = FileToOpen
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
End Sub
Bookmarks