xml로 열심히 작업해놨는데
운영툴 제작으로 인하여 엑셀에서 직접 DB 로 데이터 넣는 작업을 하게 되었음...
아...귀찮아
다시 구글링~~
vba 메뉴에서 도구-참조 에서 위에꺼 다 설정 //예전에 한거라 뭐였는지 기억이 안남..-_-
Dim a() '필드명 넣을넘
Dim b() '데이터 넣을넘
Dim DbCon As New ADODB.Connection '커넥션 관련 지정
strConnect = "Provider=SQLOLEDB.1; Persist Security Info=True; User ID=아이디; Password=패스워드; Initial Catalog=데이터베이스이름; Data Source=아이피" '연결 명령어를 스트링으로 저장
DbCon.Open strConnect '디비랑 연결~~
strSQL = "DELETE from 테이블명 '기존에 있던 테이블 데이터 지우기
DbCon.Execute strSQL '실행
'strSQL = "INSERT INTO 테이블명" & Filename & " values(" & k2 & ")"
'DbCon.Execute strSQL
'DbCon.Close ' 디비닫기
'Set DbCon = Nothing ' 개체반환
'여기서부터는 뭐 참고로 생각하시면됨
nRow = WorksheetFunction.CountA(Worksheets(strSheetName).Rows(1))
cn = 0
For j = 1 To nRow '서버에 올릴 필드 개수 체크
If Worksheets(strSheetName).Cells(1, j).Font.ColorIndex = 2 Then
cn = cn + 1
End If
Next j
ReDim a(cn - 1)
ReDim b(cn - 1)
fl = -1
For j = 1 To nRow '필드명을 배열에 저장
If Worksheets(strSheetName).Cells(1, j).Font.ColorIndex = 2 Then
fl = fl + 1
a(fl) = Worksheets(strSheetName).Cells(1, j).Value
End If
Next j
For j = 0 To fl '배열에 저장된 필드명을 k3에 나열
If j = fl Then
k3 = k3 & "," & a(j)
ElseIf j = 0 Then
k3 = k3 & a(j)
Else: k3 = k3 & "," & a(j)
End If
Next j
nCol = WorksheetFunction.CountA(Worksheets(strSheetName).Columns(1)) ' 열의 갯수 체크
For k = 2 To nCol
ii = -1
For j = 1 To nRow
If Worksheets(strSheetName).Cells(1, j).Font.ColorIndex = 2 Then
ii = ii + 1
b(ii) = Worksheets(strSheetName).Cells(k, j)
End If
Next j
For jj = 0 To fl '배열에 저장된 값을 k2에 나열
If jj = fl Then
k2 = k2 & ",'" & b(jj) & "'"
ElseIf jj = 0 Then
k2 = k2 & "'" & b(jj) & "'"
Else: k2 = k2 & ",'" & b(jj) & "'"
End If
Next jj
strSQL = "INSERT INTO 테이블명" & Filename & " values(" & k2 & ")"
DbCon.Execute strSQL
Er_Rtn:
If Err <> 0 Then
MsgBox Err.Description & vbCrLf & strSheetName & " 시트의" & k & "행 값을 확인하세요"
Exit Sub
End If
k2 = ""
Next k
DbCon.Close ' 디비닫기
Set DbCon = Nothing ' 개체반환