Sub PäivitäSolu()
Dim Tiedoston As String
Dim Hakemisto As String
Hakemisto = "C:\Testit\"
Tiedosto = Dir(Hakemisto)
Do While Tiedosto <> ""
    Muutasolu Hakemisto & Tiedosto, "Select * From [environ$D3:D3]", "Kunde"
    Tiedosto = Dir
Loop
End Sub

Sub Muutasolu(Tiedostopolku As String, SQL As String, UusiArvo)
Dim conn As New Connection
Dim rs As New Recordset
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & Tiedostopolku & _
";Extended Properties=""Excel 12.0;HDR=NO;"""
rs.Open SQL, conn, 1, 3
rs.Fields(0).Value = UusiArvo
rs.Update
rs.Close
conn.Close
End Sub