Save đè lên workbooks

[kumkreo]

A/E xin giúp mình code vba . Mình có 3 workbooks và mình muốn đứng tại Workbook1 tạo một nút bấm khi bấm vào đó thì tự động mở workbooks2 lên sau đó save as đè lên workbooks3 khi save xong thì tự đóng worksbooks2 lại và mở workbooks3 lên. mình có xem 1 số code trên mạng nhưng khi làm thì bấm vào nó cứ chạy vòng vòng rồi đứng máy. rất mong nhận được sự giúp đỡ

 

[giaiphap]

A/E xin giúp mình code vba . Mình có 3 workbooks và mình muốn đứng tại Workbook1 tạo một nút bấm khi bấm vào đó thì tự động mở workbooks2 lên sau đó save as đè lên workbooks3 khi save xong thì tự đóng worksbooks2 lại và mở workbooks3 lên. mình có xem 1 số code trên mạng nhưng khi làm thì bấm vào nó cứ chạy vòng vòng rồi đứng máy. rất mong nhận được sự giúp đỡ

Dùng thử đoạn code này.

Sub SaveFile()
Dim Wb As Workbook
Application.DisplayAlerts = False
    Set Wb = Workbooks.Open(ThisWorkbook.Path & "\B2.xlsx")
    Wb.SaveAs Filename:=ThisWorkbook.Path & "\B3.xlsx", FileFormat:=51
    Set Wb = Nothing
Application.DisplayAlerts = True
MsgBox "Da thuc hien xong"
End Sub

 

[kumkreo]

Dùng thử đoạn code này.

Sub SaveFile()
Dim Wb As Workbook
Application.DisplayAlerts = False
    Set Wb = Workbooks.Open(ThisWorkbook.Path & "\B2.xlsx")
    Wb.SaveAs Filename:=ThisWorkbook.Path & "\B3.xlsx", FileFormat:=51
    Set Wb = Nothing
Application.DisplayAlerts = True
MsgBox "Da thuc hien xong"
End Sub

HI bạn đoạn code trên chạy quá chuẩn luôn đã thõa mãng được nhu cầu của mình rồi. nhưng mỗi tội nó chạy chậm quá .
có cách nào cho nó chạy nhanh hơn không bạn. tính ra thao tác này nó chạy chậm hơn mình làm tay . là sao zi ta

Cảm ơn rất nhiều

 

[giaiphap]

HI bạn đoạn code trên chạy quá chuẩn luôn đã thõa mãng được nhu cầu của mình rồi. nhưng mỗi tội nó chạy chậm quá .
có cách nào cho nó chạy nhanh hơn không bạn. tính ra thao tác này nó chạy chậm hơn mình làm tay . là sao zi ta

Cảm ơn rất nhiều

Không biết file của bạn thế nào chứ máy tui click một cái chưa đầy 1 giây đã xong.

 

[kumkreo]

Không biết file của bạn thế nào chứ máy tui click một cái chưa đầy 1 giây đã xong.

Thanks Bạn chắc do file minh nặng chứa nhieu công thức nữa nên nó lâu