prosentense
Thành viên mới
- Tham gia
- 28/10/15
- Bài viết
- 5
- Được thích
- 0
Dạ em chào các anh chị,
Em có 1 đoạn code bên dưới viết ra để copy data của ô A1 trong 1 file đang đóng vào workbook hiện tại,
Mọi người cho em hỏi tại sao dòng bên dưới, sheets(1) lại chạy dc, còn sheet1 lại không chạy được ạ
owb.Sheets(1).Range("A1").Copy sh
-----
Sub ImportData_Test()
Application.ScreenUpdating = False
Dim owb As Workbook
Dim sh As Range
Set sh = Sheet1.Range("A1")
Set owb = Workbooks.Open("C:\Users\Vuong\Desktop\data.xlsx")
owb.Sheets(1).Range("A1").Copy sh
owb.Close
Application.ScreenUpdating = True
End Sub
Em có 1 đoạn code bên dưới viết ra để copy data của ô A1 trong 1 file đang đóng vào workbook hiện tại,
Mọi người cho em hỏi tại sao dòng bên dưới, sheets(1) lại chạy dc, còn sheet1 lại không chạy được ạ
owb.Sheets(1).Range("A1").Copy sh
-----
Sub ImportData_Test()
Application.ScreenUpdating = False
Dim owb As Workbook
Dim sh As Range
Set sh = Sheet1.Range("A1")
Set owb = Workbooks.Open("C:\Users\Vuong\Desktop\data.xlsx")
owb.Sheets(1).Range("A1").Copy sh
owb.Close
Application.ScreenUpdating = True
End Sub