Sub File_Select()With ApplicationFileDig(msoFileDigFilePicker)AllowMultiSelect = FalseShowTitle

Sub File_Select()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Show
.Title = (" Chon file cua toi")
MsgBox.SelectedItems (1)
End With
End Sub
Mình chạy thử thì nó báo lỗi MsgBox. Thông tin lỗi
- Compile error : Agrument not optional.
Nhờ Thầy xem.

4 câu trả lời

512 lượt xem

vỗ tay

Nguyen Tran Long 21:04 - Apr 04, 2020

Bạn phải có dấu cách sau chữ Msgbox nếu không cú pháp sẽ sai.
Ở đây chỉ mang mục đích hiện thông báo cho biết file được chọn là file nào thôi

vỗ tay

Nguyen Tran Long 15:02 - Feb 09, 2021

Chào anh, anh có thể cho em xin sđt hoặc địa chỉ email em gửi anh bảng biểu và code. Anh xem giúp em code VBA này sai ở đâu được ko ạ? Em chạy báo cáo tách từng đối tượng khách hàng ra từngWS nhưng cứ báo lỗi ạ.

vỗ tay

Nguyen Tran Long 18:02 - Feb 21, 2021

Chào Thầy, hình như trong bài giảng này (Chuong 8, bai 5), chưa thấy xuất hiện Title = "chon file cua toi" ???

vỗ tay

Nguyen Tran Long 10:02 - Feb 22, 2021

Title chỉ là phần phụ, hiển thị ở góc trên bên trái của cửa sổ FileDialog thôi, nên phần này cũng không quan trọng lắm.

Với file dialog thì có thể chú ý vào:

- Cách thức chọn: Chọn file hay chọn folder

- Làm gì với đối tượng được chọn .SelectedItems

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Sub File_Select()With ApplicationFileDig(msoFileDigFilePicker)AllowMultiSelect = FalseShowTitle

Câu hỏi liên quan