• Trang chủ click to expand contents 

  • Cách lấy bất kì 1 file - mở file bằng VBA Access

  • Cách lấy bất kì 1 file - mở file bằng VBA Access

    Cuong Servenet > 14-08-18, 02:14 PM

    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

  • RE: Cách lấy bất kì 1 file - mở file bằng VBA Access

    Xuân Thanh > 14-08-18, 03:57 PM

    (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

  • RE: Cách lấy bất kì 1 file - mở file bằng VBA Access

    Cuong Servenet > 14-08-18, 04:10 PM

    (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