MS-SQL에서 excel로 넘어온 테이블을 MySql에 넣기 위해 각 컬럼에 "'"를 삽입하고, 제일 앞 줄에 insert 문을 추가했다. 끝에는 ); 로 마감하고, null에 대해 예외로 조건문을 넣어주면 더 완벽할 듯.

Sub Macro1()

'

' Macro1 Macro

'

' 바로 가기 키: Ctrl+y

'

    Dim i As Integer

    Dim j As Integer

    i = 2

    j = 10 ' do while로 증가 되지 않아, 수동으로 함 T.T;

    

    Do While j < 11

    

    Do While i < 303

    

        Sheets("BOOK3").Cells(i, j) = "''" + Sheets("BOOK3").Cells(i, j) + "'"

    

    i = i + 1

    Loop

    

    j = j + 1

    Loop

End Sub

Sub Macro1()

'

' Macro1 Macro

'

' 바로 가기 키: Ctrl+y

'

    Dim i As Integer

    Dim j As Integer

    i = 2

    j = 1

    

    Do While j < 11

    

    Do While i < 303

    

        Sheets("Book3").Cells(i, j) = "INSERT INTO `테이블명` VALUES (" + Sheets("Book3").Cells(i, j) + ""

    

    i = i + 1

    Loop

    

    j = j + 1

    Loop

End Sub

'

' Macro1 Macro

'

' 바로 가기 키: Ctrl+y

'

    Dim i As Integer

    Dim j As Integer

    i = 2

    j = 11

    

    

    Do While i < 303

    

        Sheets("Book4").Cells(i, j) = "" + Sheets("Book4").Cells(i, j) + ");"

    

    i = i + 1

    Loop

    

End Sub