엑셀 insert 쿼리 만들기

="INSERT INTO AS_MGR (AS_NO, C_NO) VALUES " & "('" &A16&"','"&B2&"');"

 

 또는

 

펑션 만들기

엑셀 알트+f11  -> 삽입->모듈

 

Function CREATE_QUERY(테이블명, 컬럼범위, 데이터범위)

Dim colTemp() As String
Dim valTemp() As String
Dim rng As Range
Dim i As Integer

For Each rng In 컬럼범위
    ReDim Preserve colTemp(i)
    colTemp(i) = rng.Value
    i = i + 1
Next rng

i = 0
For Each rng In 데이터범위
    ReDim Preserve valTemp(i)
    If IsDate(rng.Value) Then
        valTemp(i) = Format(rng.Value, "yyyy/MM/dd h:mm:ss")
    Else
        valTemp(i) = rng.Value
    End If
    i = i + 1
Next rng

CREATE_QUERY = "INSERT INTO " & 테이블명 & "(" & Join(colTemp, ", ") & ") VALUES ('" & Join(valTemp, "', '") & "');"

End Function