Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cách lấy bất kì 1 file - mở file bằng VBA Access
#1
Mình chia sẻ cho anh em chương trình lấy bất kì 1 file nào trên máy tính  và mở file đó .
chắc cũng sẽ có nhiều ae cần .
※ nếu có cách nào hay hơn mong anh em chỉ giáo thêm 

①Nút lấy file
Mã:
Private Sub OpenPath1_Click()
    Dim FileName As Long
    
    With Application.FileDialog(msoFileDialogOpen)
        .Title = "Chon File"
        .Filters.Clear
        .Filters.Add "Tat ca cac file", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.Path
        .InitialFileName = CurrentProject.Name
        
        If .Show = -1 Then
            Me!FILE_PATH = .SelectedItems(1)

            FileName = InStrRev(Me!FILE_PATH, "\")
            
            Me!FILE_NAME = Mid(Me!FILE_PATH, FileName + 1)
        End If
    End With
End Sub

② Mở File đã lấy
Mã:
Private Sub OpenFILE1_Click()
    On Error GoTo Err_Step
    Dim filepath As String 
    Dim fFso As Object

    If Nz(Me!FILE_PATH, "") = "" Then
        MsgBox "xyz_abc & Chr(13) & Chr(13) & Chr(10) & _
            "chon duoi file", vbExclamation, "khong co file"
        Exit Sub
    Else
        filepath = Me!FILE_PATH

        Set fFso = CreateObject("Scripting.FileSystemObject")
        If (fFso.FileExists(filepath) = True) Then 
            Application.FollowHyperlink filepath
        Else
            MsgBox "abc_xyz" & Chr(13) & Chr(13) & Chr(10) & _
                "ABCSEF", vbExclamation, "ZZZZZZZZZZZZ"
            Exit Sub
        End If
        Set fFso = Nothing
    End If
Exit_Step:
    Exit Sub
Err_Step:
    MsgBox Err.Description, vbCritical
    Resume Exit_Step
End Sub

Mọi đóng góp xin vui lòng cmt dưới bài viết
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
(14-08-18, 02:14 PM)Cuong Servenet Đã viết: Mình chia sẻ cho anh em chương trình lấy bất kì 1 file nào trên máy tính  và mở file đó .
chắc cũng sẽ có nhiều ae cần .
※ nếu có cách nào hay hơn mong anh em chỉ giáo thêm 

1/ Tôi chỉnh lại bài viết để đưa đoạn code trích dẫn cho dễ đọc
2/ Nút lấy file chỉ lấy được file access và nút mở file cũng vậy. Nên chỉnh cho lấy được mọi loại file hoặc chỉ những file người dùng muốn tìm và mở
3/ Mở file cũng rất đơn giản không cần cầu kỳ đến vậy. Một hàm Shell là đủ. Và còn thiếu hàm FileExists(...) nếu không sẽ bị lỗi
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(14-08-18, 03:57 PM)Xuân Thanh Đã viết:
(14-08-18, 02:14 PM)Cuong Servenet Đã viết: Mình chia sẻ cho anh em chương trình lấy bất kì 1 file nào trên máy tính  và mở file đó .
chắc cũng sẽ có nhiều ae cần .
※ nếu có cách nào hay hơn mong anh em chỉ giáo thêm 

1/ Tôi chỉnh lại bài viết để đưa đoạn code trích dẫn cho dễ đọc
2/ Nút lấy file chỉ lấy được file access và nút mở file cũng vậy. Nên chỉnh cho lấy được mọi loại file hoặc chỉ những file người dùng muốn tìm và mở
3/ Mở file cũng rất đơn giản không cần cầu kỳ đến vậy. Một hàm Shell là đủ. Và còn thiếu hàm FileExists(...) nếu không sẽ bị lỗi
Thân mến

Chương trình này là lấy đc tất cả cac định dạng file , và mở đc hết đó bạn . 
kể cả các đuôi định dạng  hình ảnh vvvv
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách tạo Cbo để lọc các mặt hàng trong Sub Form samacxanh 3 270 17-10-18, 10:33 AM
Bài mới nhất: vulhu06
  [Help] Làm sao để tạo form import dữ liệu từ exel sang table access? hoanglong 2 216 14-09-18, 10:20 AM
Bài mới nhất: duynamvnn1208
Smile [Hỏi] Quét Mã Vạch Bằng Access SQL Cuong Servenet 12 1,016 29-08-18, 11:09 PM
Bài mới nhất: maidinhdan
  [Help] Khoá phím shift + khóa Design View trong access Cuong Servenet 1 194 22-08-18, 02:18 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Cach Tao Class Trong VBA Cuong Servenet 1 219 16-08-18, 06:27 PM
Bài mới nhất: mrsiro

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line