Về vấn đề mở file

[phuonghong1997]

Mong các thầy và anh chị trên diễn đàn giúp em.
Để thực hiện mở file, em có code như sau:

Sub test()
Dim file

'Nguoi dung select file
file = Application.GetOpenFilename(MultiSelect:=False)


 'Mo file
Workbooks.Open (file)

End Sub

Tiêp theo, em có thủ tục khác, code như sau:

Sub test2()

Dim wb As Workbook
Set wb = Workbooks("Book1.xlsx")

        wb.Sheets(1).Range("A1").value _
        = Workbooks("Book2.xlsm").Worksheets("Sheet1").Range("A1").value
End sub

Trong đó em đã chỉ định :

Set wb = Workbooks("Book1.xlsx")

Nhưng mà vẫn có khả năng người dùng thay đổi tên file,khi ấy sẽ có lỗi xảy ra.

Em muốn tránh khả năng nói trên, em dự định gộp hai thủ tục làm một, để chương trình chạy liên tục.
Các thầy và anh chị có thể tư vấn cho em được không?

 

[Deleted member 199]

Đọc bài của bạn, tớ thấy lủng củng quá.
Bạn đổi câu lệnh này :

Set wb = Workbooks("Book1.xlsx")

thành:

Set wb = Workbooks.Open(file)

 

[tuhocvba]

@hongphuong dạo này trình bày tiến bộ hơn rồi. Cố gắng lên em nhé.