Hỏi code ko đúng ở đâu? (1 người xem)

[matran25251325]

Em có tập tọe 1 tí code nhưng ko đúng với yêu cầu nên mong các bác chỉ bảo. Em để 2 file chung 1 folder, Khi mở file A lên thì file B cũng mở lên và yêu cầu file A đóng lại, nhưng ko biết sai ở chỗ nào mà file A vẫn ko close. Mục đích là file A là file gốc nên đôi lúc làm và quên tạo file mới mà làm trên file gốc, làm cho dung lượng file nó tăng đột ngột khi lưu.TK các bác ghé xem (bí quá mới up lên nhờ)

Sub GPE()
Dim Link As String, wbn As String
Application.EnableEvents = False
wbn = ThisWorkbook.Name
Link = ThisWorkbook.Path & "\B.xls"
If Dir(Link) <> "" Then
Workbooks.Open Filename:=Link
Exit Sub
End If
Workbooks("A").Close True
Application.EnableEvents = True
End Sub

 

[maytinhvp01]

Em có tập tọe 1 tí code nhưng ko đúng với yêu cầu nên mong các bác chỉ bảo. Em để 2 file chung 1 folder, Khi mở file A lên thì file B cũng mở lên và yêu cầu file A đóng lại, nhưng ko biết sai ở chỗ nào mà file A vẫn ko close. Mục đích là file A là file gốc nên đôi lúc làm và quên tạo file mới mà làm trên file gốc, làm cho dung lượng file nó tăng đột ngột khi lưu.TK các bác ghé xem (bí quá mới up lên nhờ)

Sub GPE()
Dim Link As String, wbn As String
Application.EnableEvents = False
wbn = ThisWorkbook.Name
Link = ThisWorkbook.Path & "\B.xls"
If Dir(Link) <> "" Then
Workbooks.Open Filename:=Link
Exit Sub
End If
Workbooks("A").Close True
Application.EnableEvents = True
End Sub

Sub GPE()
Dim Link As String, wbn As String
Application.EnableEvents = False
  wbn = ThisWorkbook.Name
    Link = ThisWorkbook.Path & "\B.xls"
   If Dir(Link) <> "" Then
        Workbooks.Open Filename:=Link
     [COLOR=#ff0000]Exit Sub[/COLOR]
    End If
    Workbooks("A").Close True
    Application.EnableEvents = True    
End Sub

bạn sai ở chỗ màu đỏ đó.

 

[matran25251325]

ah thì ra bị thừa. Do ở trên mình thêm 1 số thủ tục mà thấy ko cần thiết nên bỏ đi mà quên bỏ exit sub. Cảm ơn bác nhiều.

 

[ndu96081631]

[h=1]Hỏi code ko đúng ở đâu?[/h]

Tiêu đề không rõ ràng. Đóng topic
Bạn đã gửi được mấy trăm bài rồi, không lý nào không biết nội quy
Liên đến code VBA, nếu bạn không biết đặt tiêu đề ra sao thì vẫn có thể vào đây để hỏi:
http://www.giaiphapexcel.com/forum/showthread.php?34227-Hỏi-đáp-về-VBA-(các-vấn-đề-căn-bản-nhất)

 

[PhanTuHuong]

Với thành viên không mơí thì lần sau xóa bài luôn, khỏi giải thích lằng nhằng bác ndu ạ

 

[ndu96081631]

Với thành viên không mơí thì lần sau xóa bài luôn, khỏi giải thích lằng nhằng bác ndu ạ

Tết đến rồi, cũng không muốn có chuyện buồn thôi thầy Hướng à!
Ẹc... Ẹc...