Issue in copying the excel sheet

Help Activities
, , ,
15

@Cuberoot

In the link I provided earlier there is a vba to copy sheet from one excel to another…Just copy that paste it in notepad and save the file as .vba…Then use invoke vba to invoke it

Function CopySheetToClosedWB(DestinationPath as String,SheetNameInput as SheetName)
Application.ScreenUpdating = False

    Set OpenBook = ActiveWorkbook.Sheets(SheetNameInput)
    Set closedBook = Workbooks.Open(DestinationPath)
    OpenBook.Copy Before:=closedBook.Sheets(1)
    closedBook.Close SaveChanges:=True

Application.ScreenUpdating = True
End Function

image
image996×664 24.7 KB

cheers