mấy anh chị với trường hợp lưu ở USB nên tên ổ usb luôn thay đổi thì

Để câu lệnh VBA chạy ổn định thì bạn nên lưu trữ ở 1 nguồn cố định (ổ đĩa trên máy, không phải ở usb hoặc ổ cứng di động).

Trường hợp bạn muốn sử dụng thiết bị lưu trữ di động thì sử dụng câu lệnh FileDialog để mỗi lần muốn truy cập tới 1 thư mục phải chọn lại đường dẫn mới làm việc.

Bên em mở file. Nhưng mà file nằm ở ổ di động á a

Quy trình sẽ là: kết nối ổ di động => chạy macro mở filedialog => duyệt tới thư mục / file trong ổ di động (việc duyệt trực tiếp sẽ tốt hơn là duyệt tự động để có thể thay đổi địa chỉ một cách linh hoạt)

Bạn chú ý trong bài học ở chương 10 sẽ có nội dung về cách làm hoàn chỉnh cho việc lấy dữ liệu từ nhiều file trong 1 thư mục bằng cách sử dụng FileDialog. Bạn nên xem hết tới nội dung này để hiểu rõ hơn ý của mình.

dạ. kiểu e thế này.
e dùng file excel để mở file word. bên e cung cấp cho khách hàng theo dạng usb.
nên mỗi máy lại nhận tên usb khác nhau nên mở file không dc ạ

Bạn thử tham khảo đoạn code dưới đây xem có hoạt động không nhé. Code này mình tìm trên mạng thôi nên không chắc chắn lắm:

1. Private Function GetPorts() As String()
2.  
3.         Dim key As Microsoft.Win32.RegistryKey
4.  
5.         key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\SERIALCOMM")
6.  
7.         Dim names() As String = key.GetValueNames
8.         Dim ports(names.Length - 1) As String
9.  
10.         For i As Integer = 0 To names.Length - 1
11.             ports(i) = CType(key.GetValue(names(i)), String)
12.         Next i
13.  
14.         Return ports
15.  
16.     End Function