Mình có sưu tập được code của anh Hai lua mien tay về việc ghi dữ liệu từ file đang mở vào file đang đóng. nhưng loay hoay mãi không biết cách nào sủa để áp dụng được
Mọi người giúp mình sửa đoạn code này với
Yêu cầu: Mở rộng vùng phạm vi cần update, xóa hết dữ liệu cũ để update dữ liệu mới
Sub Test()
Dim ado As Object
Set ado = CreateObject("ADODB.Connection")
ad
pen ("Provider=Microsoft.JET.OLEDB.4.0;Data Source=""" _
& ThisWorkbook.Path & "\Data.xls" & """;Extended Properties=""Excel 8.0;HDR=No"";")
ado.Execute "UPDATE [Sheet1$A1:A1] SET F1 = '" & Sheet1.[A1] & "'"
ado.Close
End Sub
Rất cám ơn mọi người
Mọi người giúp mình sửa đoạn code này với
Yêu cầu: Mở rộng vùng phạm vi cần update, xóa hết dữ liệu cũ để update dữ liệu mới
Sub Test()
Dim ado As Object
Set ado = CreateObject("ADODB.Connection")
ad

& ThisWorkbook.Path & "\Data.xls" & """;Extended Properties=""Excel 8.0;HDR=No"";")
ado.Execute "UPDATE [Sheet1$A1:A1] SET F1 = '" & Sheet1.[A1] & "'"
ado.Close
End Sub
Rất cám ơn mọi người