Cập nhật tên file trong đối tượng Workbook (2 người xem)

[zerocoldtn]

- Làm thế nào để cập nhật tên file trong vba với đối tượng dùng là Workbook, các AC diễn đàn chỉ thêm với.
Ví dụ code sao có hàm workbook, khi đổi tên file thì không còn thực hiện code được nữa -> làm sao khi mở file thì tên file tự động cập nhật được trong code: (dòng tô đậm)

Sub Goifile()
Workbooks("Lamviec)").Activate
Sheets("Sheet1").Select
Range("A5").Select
If Cells(1, 5) <> "" Then
Workbooks.Open (Range("A5"))
End If
Workbooks("Lamviec.xls").Sheets("Sheet1").Range("A3").Copy
Workbooks("Luu.xls").Activate
Sheets("Search").Select
Sheets("Search").Range("A10").PasteSpecial
Range("A2:E9998").ClearContents
Range("A1").Select

 

[tam888]

ThisWorkbook ' book đang chứa code
ActiveWorkbook ' book đang được active (hiện hành, có con trỏ excel hiện hành)

Muốn lấy tên thì sử dụng thuộc tính .FileName

Tự kiểm tra lại , tôi không thử (test) trước

 

[HeSanbi]

- Làm thế nào để cập nhật tên file trong vba với đối tượng dùng là Workbook, các AC diễn đàn chỉ thêm với.
Ví dụ code sao có hàm workbook, khi đổi tên file thì không còn thực hiện code được nữa -> làm sao khi mở file thì tên file tự động cập nhật được trong code: (dòng tô đậm)

Sub Goifile()
Workbooks("Lamviec)").Activate
Sheets("Sheet1").Select
Range("A5").Select
If Cells(1, 5) <> "" Then
Workbooks.Open (Range("A5"))
End If
Workbooks("Lamviec.xls").Sheets("Sheet1").Range("A3").Copy
Workbooks("Luu.xls").Activate
Sheets("Search").Select
Sheets("Search").Range("A10").PasteSpecial
Range("A2:E9998").ClearContents
Range("A1").Select

Chắc bạn muốn thế này

Sub test_()
    Dim wb as Workbook
    For Each wb in Workbooks
        Debug.Print wb.Path , wb.FullName, wb.Name
        If wb.Name <> ThisWorkbook.name then
                '........
        End If
    Next wb
End Sub

----------------------------------------------------------------------
Kiểm thử kết quả Mảng trong Immediate với hàm dbPrint
Đánh thứ tự ký tự bằng Hàm hoặc Code - Sử dụng toán chỉnh hợp

 

[zerocoldtn]

Chắc bạn muốn thế này

Sub test_()
    Dim wb as Workbook
    For Each wb in Workbooks
        Debug.Print wb.Path , wb.FullName, wb.Name
        If wb.Name <> ThisWorkbook.name then
                '........
        End If
    Next wb
End Sub

----------------------------------------------------------------------
Kiểm thử kết quả Mảng trong Immediate với hàm dbPrint
Đánh thứ tự ký tự bằng Hàm hoặc Code - Sử dụng toán chỉnh hợp

Thanks anh, em đã tìm ra rồi, đại loại như vầy:
Sub Goifile()
Dim wbInput as Aplication.ActivateWorkbooks
Dim wbOutput as Workbooks.Open (Range("A5"))
wbInput.Activate
Sheets("Sheet1").Select
Range("A5").Select
If Cells(1, 5) <> "" Then
Workbooks.Open (Range("A5"))
End If
wbInput.Sheets("Sheet1").Range("A3").Copy
wbOutput.Activate
Sheets("Search").Select
Sheets("Search").Range("A10").PasteSpecial
Range("A2:E9998").ClearContents
Range("A1").Select
End sub
Cứ xài tạm vậy đi, khi nào găp rắc rối nữa thì tính tiếp....!