Gitiho contest

Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.

Chương trình hội viên Gitiho

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

480+ khóa học

15 Danh mục theo kỹ năng, ngành nghề

Năng lực Lõi, Năng lực Chuyên môn, Năng lực Bổ trợ, Năng lực Quản lý

Khám phá ngay

2000+ đã đăng ký

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

83 khóa học Tin học văn phòng

85 khóa học Kỹ năng mềm

29 khóa học Ngoại ngữ

Khám phá ngay

500+ đã đăng ký

Gitiho for leading business

Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.

Đã được tin tưởng sử dụng bởi các doanh nghiệp

  1. Trang chủ
  2. Hỏi đáp
  3. Trang chủ
  4. Hỏi đáp
Nguyễn Hữu Tân
Nguyễn Hữu Tân
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 210 lượt xem

Mình làm thực hành câu lệnh chạy đúng nhưng khi click vào file để mở nhấn

Mình làm thực hành, câu lệnh chạy đúng nhưng khi click vào file để mở, nhấn ok. thì file không mở ra. KHÔNG BIẾT MÌNH BỊ LỖI GÌ Ạ.


Thảo luận 1 câu trả lời
Lượt xem 210 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Nguyễn Hữu Tân 10:05 - May 17, 2021

Chào bạn máy bạn có hiện forder chọn file không?

Option Explicit
Sub getdata()
    Dim duongdan
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
         duongdan = .SelectedItems(1)
         MsgBox duongdan
    End With
End Sub
Bạn thử code trên
Vỗ tay vỗ tay
Câu hỏi liên quan
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.
With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Show .Title = "file duoc chon" MsgBox .SelectedItems(1) End With Tại sao em chỉ thấy nó luôn link vào folder Document vậy thầy? Cấu trúc "Application" ở đây là gì em không hiểu ạ? Với lại cho em phần...
Hi a, cho hỏi chỗ đoạn .SelectedItems(1), mình không cần ghi đối tượng trước phương thức này hả a. Số 1 trong ngoặc có nghĩa là gì?
Câu lệnh .SelectedItems(1) sau Msgbox có nghĩa là gì vậy ạ?
thầy cho em hỏi là khi mình chọn file bằng phương thức msoFileDialogFilePicker xong rồi phải dùng tiếp phương thức msoFileDialogOpen để mở file hay sao ạ? Vì nếu e chỉ dùng riêng 1 phương thức msoFileDialogOpen thì không thấy nó mở file
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 ạ.
Mình làm thực hành, chuyển dữ liệu từ Book1,2,3 qua book4 này thì bị khó khăn, nó bị copy chồng lên nhau và khi thêm dữ liệu tại book1,2,3 chạy câu lệnh thì nó copy toàn bộ chứ không copy cái mới.
Gitiho ơi, "VBAG01-Bài Giảng" file dạng excel tải ở đâu ạ? vì mình thấy có file pdf thôi, mình thấy nếu có file excel như trong bài giảng thì sẽ xem được dễ dàng hơn.Cám ơn!
thưa thầy, vì sao khi chạy lệnh lại báo lỗi như này ạ? nhờ thầy kiểm tra giúp em ạ. cảm ơn thầy
Scroll Top Top

Hỗ trợ khách hàng

VỀ GITIHO

hợp tác và liên kết

Tải App Gitiho

Kết nối với chúng tôi

Địa chỉ văn phòng: Phòng 302, tầng 3, Tòa nhà Tây Hà, KĐT mới Phùng Khoang, Phường Trung Văn, Quận Nam Từ Liêm, Thành phố Hà Nội, Việt Nam
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông