Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,073
- Được thích
- 8,004
- Nghề nghiệp
- Làm đủ thứ
Anh chị xem giúp có cách nào xóa macro khi savecopyas
Hiện tại mình phải Save rồi phải Open rồi mới xóa module được, như vậy sẽ làm giảm tốc độ xử lý
Sub FORMAT()
DVSX = Left([D4], 2) & "-" & Right([D4], 7) & ".xls"
Fname = ThisWorkbook.Path & "\" & DVSX
With ThisWorkbook
.SaveCopyAs Fname
End With
Workbooks.Open Fname
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item("Module1")
End With
ActiveWorkbook.Close True
Windows("BARCODE").Activate
End Sub
Hiện tại mình phải Save rồi phải Open rồi mới xóa module được, như vậy sẽ làm giảm tốc độ xử lý
Sub FORMAT()
DVSX = Left([D4], 2) & "-" & Right([D4], 7) & ".xls"
Fname = ThisWorkbook.Path & "\" & DVSX
With ThisWorkbook
.SaveCopyAs Fname
End With
Workbooks.Open Fname
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item("Module1")
End With
ActiveWorkbook.Close True
Windows("BARCODE").Activate
End Sub
