Code copy tên file vào sheet của file thứ 3 (1 người xem)

[overnight_9]

Dears anh chị.
Code ở 1 file riêng để điều khiển save as 1 file khác và chuyển "tên của file" vừa save vào sheet của file thứ 3 và dùng Hyperlink, em viết chưa chuẩn xác nhờ các anh giúp.

Sub luu()
Dim gio, ngay, Fname
gio = Hour(Now()) & "h" & Minute(Now())
ngay = Format(Date, "dd-mm-yy")
Fname = "BaoCao" & "_" & "(" & ngay & "-" & gio & ")"
  With Workbooks("ten.xlsx")
    .SaveAs ThisWorkbook.Path & "\" & Fname, FileFormat:=51
  End With
Workbooks.Open ThisWorkbook.Path & "\chualuu.xlsx"
  With Workbooks("chualuu.xlsx")
   With .Sheets("chualuu")
    .Hyperlinks.Add .[C65536].End(3).Offset(1), _
     Fname.FullName, TextToDisplay:=Fname.Name
    .[D65536].End(3).Offset(1).Value = Date
  End With
   .Close True
  End With
End Sub

Em cảm ơn nhiều.

 

[Quang_Hải]

Dears anh chị.
Code ở 1 file riêng để điều khiển save as 1 file khác và chuyển "tên của file" vừa save vào sheet của file thứ 3 và dùng Hyperlink, em viết chưa chuẩn xác nhờ các anh giúp.

Sub luu()
Dim gio, ngay, Fname
gio = Hour(Now()) & "h" & Minute(Now())
ngay = Format(Date, "dd-mm-yy")
Fname = "BaoCao" & "_" & "(" & ngay & "-" & gio & ")"
  With Workbooks("ten.xlsx")
    .SaveAs ThisWorkbook.Path & "\" & Fname, FileFormat:=51
  End With
Workbooks.Open ThisWorkbook.Path & "\chualuu.xlsx"
Set Fname = Workbooks(Fname)
With Workbooks("chualuu.xlsx")
  With .Sheets("chualuu")
    .Hyperlinks.Add .[C65536].End(3).Offset(1), _
    Fname.FullName, TextToDisplay:=Fname.Name
    .[D65536].End(3).Offset(1).Value = Date
  End With
  .Close True
End With
End Sub

Em cảm ơn nhiều.

Chúc mừng Overnight đã tiến bộ nhiều, nhưng muốn dùng thuộc tính .name hay .fullname thì phải có đối tượng chứ. Fname là 1 biến trước thì làm gì được. Tạm sửa lại 1 chút xem coi có đúng ý chưa.

 

[overnight_9]

Chúc mừng Overnight đã tiến bộ nhiều, nhưng muốn dùng thuộc tính .name hay .fullname thì phải có đối tượng chứ. Fname là 1 biến trước thì làm gì được. Tạm sửa lại 1 chút xem coi có đúng ý chưa.

Tks sư huynh, chay good rồi anh

p/s: sorry all riêng một chút cuối tuần này offline rồi đấu ít ván cờ tướng nhé điều lệ là cứ mổi đầu 1 ván cờ 2 kiện tướng phải uống mỗi người 2 lon beers và cứ thế đấu 5 ván. loại trực tiếp luôn EC....EC...EC...