vba to query문

vba로 간단하게 엑셀의 데이터를 업데이트 문 만들기…

엑셀2007기준

엑셀->옵션->기본설정->개발탭표시.

개발탭클릭->Visual basic 클릭->시트1클릭.

아래 코드를 붙여넣기

Sub default()
   Dim SQL As String
   Dim i As Long

   For i = 2 To 2
   SQL = "UPDATE  `db명`.`테이블명` SET  "
   '칼럼이 만으면  (i, 2), (i, 3), (i, 4)로 조함
   SQL = SQL & "`칼럼명` = '" & Sheet1.Cells(i, 1).Value & "', " & vbNewLine
   '조건
   SQL = SQL & " WHERE  `xe_school_data`.`document_srl` =" & Sheet1.Cells(i, 110)
   '시트2의 칼럼에 케리문을 양도함
   '.sql파일로 만들어서 저장해도 됨.
   Sheet2.Cells(i, 1).Value = SQL
   Next i

End Sub

이렇게 하면 일일이 sql문을 만들필요 없음.

 

요쯤 개발한 CMS

기반은 PEAR 템플릿 엔진은 Smarty

1월달 기획부터 3월달 개발해서 오늘 드디어 本番リリース를 하네요…

preview

모두 잘되여야 하는데….

ps. 구글 Adsense 수익도 살짝 공개합니다.

일본엔 환율이 높은 관계로 9천7백엔 되네요…

계좌를 조회해보니 4월30일 입금 되여 있네요…

adsense