Kiểm tra file có tồn tại không

[thuyyeu99]

Em có 1 file Excel tên là A và 1 file Excel phụ tên là B em muốn khi mở file Excel chính (A) và nhấn nút tìm thì nó tự động tìm file Excel phụ (B). Nếu file B không có thì hiện thông báo "File B chưa có" Else "file nay đã có " ----(2 File cung 1 thu muc). Nhờ các anh chị giúp đỡ.

Cám ơn các anh chị quan tâm

 

[khonggianviet]

Chào cả nhà
Mình có code vba học hỏi từ trên mạng như thế này. Mục đích của code này là để tạo Merge từ excel sang word. Dữ liệu được cập nhật mới hàng ngày, nên khi code chạy thì lại chạy lại toàn bộ. Như vậy sẽ làm chậm quá trình merge, giờ mình muốn code chỉ chạy lại những phần mới được cập nhật thì làm như nào. Nhờ cả nhà chỉ giáo giúp e với ah. Cảm ơn cả nhà nhiều nhiều

'Chuong trinh tao quyet dinh phan cong
Sub TBNhanuythac()
'Khai bao bien
Dim wapp As Word.Application
Dim wdoc As Word.Document
Dim numOfRow, numOfColumn, iRow, iColumn As Long

'Gan gia tri cho cac bien
Set wapp = CreateObject("word.application")
wapp.Visible = True
With ThisWorkbook.Sheets("Chu dong")
    numOfRow = Excel.WorksheetFunction.CountA(.Columns(3)) - 1
    numOfColumn = Excel.WorksheetFunction.CountA(.Rows(2))
    For iRow = 1 To numOfRow Step 1
        Set wdoc = wapp.Documents.Open(ThisWorkbook.Path & "\Chu dong\Ho so thi hanh an dan su chu dong.docx")
        For iColumn = 1 To numOfColumn Step 1
        wdoc.Content.Find.Execute _
            findtext:=.Cells(2, iColumn + 1), _
            replacewith:=.Cells(iRow + 2, iColumn + 1), _
            Replace:=wdReplaceAll
        Next
        wdoc.SaveAs2 Filename:=ThisWorkbook.Path & "\Luu tru\Chu dong\" & _
            .Cells(iRow + 2, 2) & " - Ho so thi hanh an dan su chu dong" & ".docx"
        wdoc.Close
    Next
    wapp.Quit
    Set wdoc = Nothing
    MsgBox "Da tao xong ho so chu dong", vbInformation, "Tao ho so THADS"
    End With
 End Sub

 

[Hoàng Tuấn 868]

Chào cả nhà
Mình có code vba học hỏi từ trên mạng như thế này. Mục đích của code này là để tạo Merge từ excel sang word. Dữ liệu được cập nhật mới hàng ngày, nên khi code chạy thì lại chạy lại toàn bộ. Như vậy sẽ làm chậm quá trình merge, giờ mình muốn code chỉ chạy lại những phần mới được cập nhật thì làm như nào. Nhờ cả nhà chỉ giáo giúp e với ah. Cảm ơn cả nhà nhiều nhiều

'Chuong trinh tao quyet dinh phan cong
Sub TBNhanuythac()
'Khai bao bien
Dim wapp As Word.Application
Dim wdoc As Word.Document
Dim numOfRow, numOfColumn, iRow, iColumn As Long

'Gan gia tri cho cac bien
Set wapp = CreateObject("word.application")
wapp.Visible = True
With ThisWorkbook.Sheets("Chu dong")
    numOfRow = Excel.WorksheetFunction.CountA(.Columns(3)) - 1
    numOfColumn = Excel.WorksheetFunction.CountA(.Rows(2))
    For iRow = 1 To numOfRow Step 1
        Set wdoc = wapp.Documents.Open(ThisWorkbook.Path & "\Chu dong\Ho so thi hanh an dan su chu dong.docx")
        For iColumn = 1 To numOfColumn Step 1
        wdoc.Content.Find.Execute _
            findtext:=.Cells(2, iColumn + 1), _
            replacewith:=.Cells(iRow + 2, iColumn + 1), _
            Replace:=wdReplaceAll
        Next
        wdoc.SaveAs2 Filename:=ThisWorkbook.Path & "\Luu tru\Chu dong\" & _
            .Cells(iRow + 2, 2) & " - Ho so thi hanh an dan su chu dong" & ".docx"
        wdoc.Close
    Next
    wapp.Quit
    Set wdoc = Nothing
    MsgBox "Da tao xong ho so chu dong", vbInformation, "Tao ho so THADS"
    End With
 End Sub

Bài này lạc chủ đề mất rồi, không thấy có gì liên quan đến việc kiểm tra File có tồn tại hay không cả.

 

[khonggianviet]

Bài này lạc chủ đề mất rồi, không thấy có gì liên quan đến việc kiểm tra File có tồn tại hay không cả.

Có gì nhờ bác cho nó về đúng chỗ, cũng hướng dẫn giúp luôn