Nào, mời các bạn tham gia:
Vấn đề 1: (Hạn trả lời cho đến hết ngày 22/9/2019)
Vấn đề 1: (Hạn trả lời cho đến hết ngày 22/9/2019)
Mã:
Sub File_Open()
' Ban hay thiet dinh duong link file
Const lk As String = "C:\VBA\tuhocvba.xlsx"
If Dir(lk) = "" Then
MsgBox "Khong tim thay file", vbCritical
Exit Sub
End If
With Workbooks.Open(lk)
With Worksheets.Add
Range("A1").Value = Date
End With
End With
End Sub