Xin 500 anh em giúp việc tạo sheet bằng VBA

xanhtuan

Yêu THVBA
Vấn đề là thế này: mình đứng ở file data.xlms và chạy đoạn vba, mục đích mình mở file DSSV.xlsx và tạo sheet trong file DSSV mà sao nó cứ tạo sheet trong file data.xlms mặc dù mình đã active file DSSV? Anh em giúp mình đoạn này với. Cảm ơn anh em.
Sub Sheetcopy()
Application.Workbooks("DSSV.xlsx").Activate
Range("A:L").Select
Selection.Copy
Windows("DSSV.xlsx").Activate
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Test"
Range("A1").Select
ActiveSheet.Paste
Columns("L:L").EntireColumn.AutoFit
End Sub
 

jd86

Yêu THVBA
Bạn nên dùng biến để kiểm soát file DSSV.xlsx thì khả năng sẽ xử lý được . :)
 

phuonghong1997

Yêu THVBA như điếu đổ
Bạn thử:
Mã:
Sub vidu()
    With Workbooks("DSSV.xlsx")
        .Sheets.Add After:=.Sheets(1)
        ActiveSheet.Name = "Test"
    End With
End Sub
 

xanhtuan

Yêu THVBA
Bạn thử:
Mã:
Sub vidu()
    With Workbooks("DSSV.xlsx")
        .Sheets.Add After:=.Sheets(1)
        ActiveSheet.Name = "Test"
    End With
End Sub
Cảm ơn bạn rất nhiều nhé, mình đã làm được và cũng đã nắm được vấn đề. <==Cảm ơn bạn nhé, để mình thử xem sao.
 
Sửa lần cuối:
Top