khi chạy đến codeFor i = 1 To selecteditemscount Thì báo lỗi " invalid or unqualified

Thầy ơi khi chạy đến code
For i = 1 To .selecteditems.count
Thì báo lỗi " invalid or unqualified reference"

1 câu trả lời

429 lượt xem

vỗ tay

Chia sẻ

Copy link

Nguyễn Thư 02:04 - Apr 17, 2020

trước khi viết .selecteditems.count bạn cần phải xác định FileDialog trước, đặt cả câu lệnh trong cấu trúc With Application.FileDialog
(bạn chú ý những vị trí của dòng có With và End With)

vỗ tay

Câu hỏi liên quan

Trong file bài giảng [ĐỐI TƯỢNG RANGE - 3. Code tìm dòng cuối - Hàm tìm dòng cuối (Lastrow)], giảng viên có giới thiệu hàm tìm dòng cuối theo Cells và theo Range , em thắc mắc tại sao không có tham số về workbook ở trong hàm? Em có thử thêm tham số...

VD dữ liệu ở 1 book nào đó không được lưu ở sheet1 mà lại ở sheet 2-3...nào đó thì câu lệnh ở đây sẽ như nào nhỉ. Ad có thể giải thích được k

Cho mình hỏi là muốn copy giá trị từ Workbook nay sang Workbook khác thì có cần thực hiện mở Workbook Source lên mới copy được ko? Đoạn lệnh bên dưới nó báo lỗi dòng cuối cùng. Dim TenFile as String TenFile = Application.GetOpenFilename("Excel file, *.xlsm",...

Option Explicit Sub Paste() Dim DongCuoi As Long, i As Byte, DongCuoi1 As Long Dim wb_open As Workbook, wb_th As Workbook Set wb_th = ThisWorkbook With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Show For i = 1 To .SelectedItems.Count Set wb_open = Workbooks.Open(.SelectedItems(i))...

Sub Gop_Du_Lieu_TongQua() ' Mo thu muc, chon nhieu file, gop vao mot file ' Tao thu muc mo file With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True 'Chon nhieu file cung luc .Show 'Hien cua so chon file ' Xac dinh file duoc chon Dim i As Long For i = 1 To .SelectedItems.Count...

Cho mình hỏi chạy tới .Show có cửa sổ hiện ra nhưng bấm vào folder đã lưu các book trước đó thì không thấy file nào hiện ra để chọn cả. Là sao ạ?

Lam the nao de VBA khong bao loi Compile error: Invalid or unqualified reference tai dong .SelectedItems.Count Sub Gopdulieutongquat() 'mo thu muc, chon file gop du lieu vao 'Tao thu muc mo file With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Show End With 'Xac dinh file...

Cho em hỏi: Em muốn copy dữ liệu từ một Workbook đang đóng và không xác định rõ được dữ liệu nằm ở sheet nào mà chỉ có lấy dự theo cột tên sheet cho sẵn, thì mình làm thế nào dạ?

Dạ thưa thầy! Cho em hỏi code để lọc một đối tượng tùy ý mà không cần dùng autofilter trong VBA viết sao ạ

Dạ!.Thưa thầy!. giờ em có 3 file khác nhau.Em muốn lấy dữ liệu mỗi file 1 range khác nhau gộp chung 1 file thì mình làm như thế nào ạ. Không mở lên thao tác từng file mà mình chỉ chạy VBA 1 lần

Xem tất cả

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

khi chạy đến codeFor i = 1 To selecteditemscount Thì báo lỗi " invalid or unqualified

Câu hỏi liên quan