Snasui Excel Forum

Code: Select all

Private Sub Workbook_Open()
        Workbooks.Open Filename:="C:\Documents and Settings\Administrator\Desktop\Test\AR.xlsx"
         Workbooks.Open Filename:="C:\Documents and Settings\Administrator\Desktop\Test\WP.xlsx"
End Sub

Code: Select all

Sub Database_Copy()            
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("AR.xlsx")
        ActiveSheet.UsedRange.Copy
        formBook.Activate
        Sheets("AR_DT").Select
        Range("A1").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        wbShare.Save
        wbShare.Close
End Sub

Code: Select all

Sub Database_Copy2()            
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("WP.xlsx")
        ActiveSheet.UsedRange.Copy
        formBook.Activate
        Sheets("WP_DT").Select
        Range("A1").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        wbShare.Save
        wbShare.Close
        Sheets("Form").Select
End Sub

Code: Select all

Private Sub Workbook_Open()
        Workbooks.Open Filename:="C:\Users\8473T\Desktop\AR.xlsx"
        Workbooks.Open Filename:="C:\Users\8473T\Desktop\WP.xlsx"
        Call Database_Copy
        Call Database_Copy2
         
End Sub

Code: Select all

Sub Database_Copy2()
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("WP.xlsx")
        ActiveSheet.UsedRange.Copy
        formBook.Activate
        Sheets("WP_DT").Select
        Range("A1").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        wbShare.Save
        wbShare.Close
        Sheets("Form").Select
End Sub

Sub Database_Copy()
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("AR.xlsx")
        ActiveSheet.UsedRange.Copy
        formBook.Activate
        Sheets("AR_DT").Select
        Range("A1").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        wbShare.Save
        wbShare.Close
End Sub