SQLでupdateをおこないたいと思っています。update TABLE Set 列1='値',列2='値'.....というのはわかるのですが、列の数が100も200もある場合、列1='値'と書いていくには時間がかかります。ちなみに全ての行の値を一括でアップデートしたいです。

おそらく知りたい情報は動的にフィールド名を設定するということ。

sql = "UPDATE table SET " & Cells(i, 1) & " = '" & Cells(i, j) & "'"

objRS(Cells(i, 1)) = Cells(i, j)

• データの1行目が列名
• データの1列目がid
• データにはCells(行(1 to count),列(1 to count))でアクセス可能
• データの含まれている行列数を取得可能
• データは連続している(間に空行がないということ)
• データにはSQLインジェクションを引き起こすデータが含まれていない(SQLにおける特殊文字が含まれていないということ)
• すべて文字列型である。(勝手に型変換してくれるかも?)

という条件でupdate文なら

Dim lngRowCount as long
lngRowCount = Excelのデータ行数

Dim lngColCount as long
lngColCount = Excelデータ列数

Dim i as long
for i = 2 to lngRowCount
  Dim sql as string
  sql = "UPDATE table SET "

  dim j as long
  for j = 2 to lngColCount
    sql = sql & Cells(1, j) & "='" & Cells(i,j) & "', "
  next j

  sql = sql & " WHERE id='" & Cells(i,1) & "'"
  debug.print sql
next i

面倒なことを考えたくなかったらDAO.Recordsetで

Dim lngRowCount as long
lngRowCount = Excelのデータ行数

Dim lngColCount as long
lngColCount = Excelのデータ列数

Dim objRS as DAO.Recordset
set objRS = CurrentDB.OpenRecordset("table")
with objRS

  dim i as long
  for i = 2 to lngRowCount

    .findfirst("id ='" & Cells(i,1) & "'")
    if .nomuch then
      .addnew
    else
      .edit
    end if

    dim j as long
    for j = 2 to lngColCount
      .Fileds(Cells(1,j)) = Cells(i, j)
    next j

    .update

    .movefirst
  next i
end with
set objRS = nothing

accessとexcelが手元にないので動かなかったらごめんなさい。