Đây là Macro cho phép người dùng chọn nhiều tệp và nhập tên tệp của họ dưới dạng liên kết có thể nhấp vào bảng tính.
Tôi đã sử dụng vấn đề mp3 làm nguồn cảm hứng cho Macro này, tuy nhiên tôi chỉ cung cấp gợi ý về cách phát triển một giải pháp mp3 hoàn chỉnh.
Macro sau thực hiện những việc sau:
1. Hiển thị một hộp thoại chung
2. Cho phép người dùng chọn nhiều tệp mp3 (bạn có thể thay đổi tệp này thành bất kỳ loại tệp nào, chẳng hạn như * .mpg)
3. Nhập tên tệp đã chọn vào các liên kết có thể nhấp trong bảng tính của bạn (Trang tính 1)
Macro sau cố tình không:
1. Hiển thị thời gian phát cho tệp mp3
Tôi đã tìm thấy giải pháp API cho vấn đề này, tuy nhiên có lẽ có một cách tốt hơn
2. Hiển thị bất kỳ thông tin nào về Thẻ (Nghệ sĩ, Năm, Thể loại, v.v.)
Đọc mp3 dưới dạng tệp nhị phân, mới đối với tôi nhưng hoạt động rất tốt
3. Cho phép nhập từ nhiều thư mục
Nó hiện đang ghi trên dữ liệu cũ
Tôi trình bày một cách nhập tên tệp vào các liên kết có thể nhấp trong Excel. Bộ đếm mờ dưới dạng số nguyên Sheet1.Cells.Clear 'xóa dữ liệu cũ 'lấy mp3 của bộ đếm = 1 Về lỗi GoTo Cancel 'trong trường hợp nút hủy 'lặp qua các tệp đã chọn
Nhập phụ công khaiMP3 ()
Dim PathName như một biến thể
Làm mờ tên MP3 thành chuỗi
PathName = Application.GetOpenFilename _
("MyMusic (* .mp3), * .mp3", "Bộ chọn mp3 của tôi",, True)
Trong khi counter <= UBound (PathName) 'lấy tên tệp từ đường dẫn MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' tạo siêu liên kết Sheet1.Cells (counter, 1) _. Hyperlinks.Add Anchor: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A"). EntireColumn.AutoFit Hủy: End Sub
