Code Tính Tổng Cộng File Đóng (2 người xem)

[Kiều Mạnh]

Mình đang kẹt tính tổng cộng cột [A2:A500] của File A.xlsx đang đóng gán vào [D2] của File đang Mở mà ngồi nghĩ hoài 2 ngày nay chưa ra...kẹt quá úp lên nhờ các bạn xử lý dùm
xin cảm ơn

Mình Record Macro Từ File Tong Cong.xlsb thì được code sau

Sub Macro1()
'' Macro1 Macro'
    Range("D2").Select 
   ActiveCell.FormulaR1C1 = "=SUM([A.xlsx]XX!R2C1:R32C1)"
    Range("D3").Select
End Sub

Nhờ các Bạn xử lý như sau:
1/ Viết dùm mình một code tính tổng như vậy = ADO
2/ Viết dùm mình một code tính tổng như vậy = VBA
3/ Viết dùm mình một code tính tổng như vậy = ExecuteExcel4Macro

Mục đích từ từ mình ngâm cứu thôi ....
Xin cảm ơn rất nhiều

 

[Kiều Mạnh]

Thêm 1 kiểu kết nối nữa nè:

Sub THONGKE()

    Dim cn As Object, rst As Object
    Set cn = CreateObject("ADODB.Connection")
    cn.Open ("Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & ThisWorkbook.path & "\A.xlsx;")
    Set rst = cn.Execute("select sum(Ten) from [XX$] ")
    Sheet1.[A1].CopyFromRecordset rst


End Sub

Lỗi giống y trang bài #6 nếu File A.xlsx Sheet("XX").[A1]= Tên là lỗi
nếu tiếng việt không dấu thì OK [Ten]

 

[Hai Lúa Miền Tây]

Lỗi giống y trang bài #6 nếu File A.xlsx Sheet("XX").[A1]= Tên là lỗi
nếu tiếng việt không dấu thì OK [Ten]

Thì mình đưa tên field vào range thì ok chứ gì (Mà chữ Tên thì ok nhé)