Excel VBA 활용하기

vb 배운거 써먹을 때가 많네요.

샘플 3

[vb] xml 특정 노드 제거

Dim i As Integer Dim objDOMDocument As DOMDocument ‘XMLDocument Dim objNodeList As IXMLDOMNodeList ‘XMLNodeList 몇개나 있는지 알려고

Dim objNode As IXMLDOMNode

‘Set objDOMDocument = Server.CreateObject(“microsoft.XMLDOM”) ‘asp 용 Set objDOMDocument = New DOMDocument ‘동적메모리 설정 objDOMDocument.async = False objDOMDocument.Load (“test.xml”) ‘text xml 파일 불러오기 string 은 LoadXml

Set objNodeList = objDOMDocument.getElementsByTagName(“books/book”) ‘로드 찾기 If objNodeList.length […]

difference between char13 and char10

difference between char13 and char10.

Control character Value Tab

char(9)

Line feed

char(10)

Carriage return

char(13)

VB 에서 키보드 KeyAscii 값

상수 값 설명 LButton 1 마우스 왼쪽 단추 RButton 2 마우스 오른쪽 단추 Cancel 3 취소키 MButton 4 마우스 가운데 단추 Back 8 <백스페이스>키 Tab 9 <Tab>키 Clear 12 <Clear>키 Return 13 <Enter>키 Shift 16 <Shift>키 Control 17 <Ctrl>키 Menu 18 <Menu>키 Pause 19 <Pause>키 Capital 20 <Caps Lock>키 Escape 27 <Esc>키 Space 32 <스페이스바>키 […]

Null 값 공백으로 받기

Dim sVal as string –중간 생략– sVal = IIf(IsNull(rs(“Modi_Date”)), “”, rs(“Modi_Date”))

mssql query :

isNull(컬럼, ‘변경할문자’)

영문 숫자만 입력가능 하게 만든 함수

‘영문 숫자만 입력가능 하게 만든 함수 (일일이 적기 귀찮아서 만들었음) Public Function CharacterMode(KeyAscii As Integer, Mode As Integer, Optional CharacterCode1 As Integer, Optional CharacterCode2 As Integer) As Integer ‘mode:’영문 0 ‘숫자 1 ‘영문+숫자 2 ”’22 Ctrl+V ”’3 Ctrl+C ”’24 Ctrl+X ’66~90 :A~Z 97~122 :a~z ’48~57 :0~9 ’47 : / , ‘8 : backspace, ‘tab, enter […]

물음 메시지 함수

Function AskMsgBox(strMassege As String, Optional strTitle As String) As Boolean ‘물음 메시지.

Dim Msg, Style, Help, Ctxt, Response ‘, MyString Msg = strMassege ‘ 기본 메시지. Style = vbYesNo + vbQuestion + vbDefaultButton2 ‘ Define buttons. ‘Title = Title ‘ 기본 제목. ‘Help = “DEMO.HLP” ‘ 기본 도움말 파일. Ctxt = 1000 ‘ 기본 항목 […]

파일경로+파일명에서 파일명 또는 경로 알아내기 함수

파일경로+파일명에서 파일명 또는 경로 알아내기 Function GetFind(What As String, Optional division As String = “\”, Optional privious As Boolean) As String

Dim Length As Integer, i As Integer

If InStr(What, division) = 0 Then GetFind = What Exit Function End If

Length = Len(division)

For i = Len(What) To Length Step -1 If Mid(What, i […]

숫자외에 모든문자를 제거 함수

Public Function gGet_Nember(strData As String) As String ‘ 내 용 : 숫자외에 모든문자를 제거한다.Dim i As Integer

Dim strNum As String Dim strTmp As String Dim temp_strData As String

temp_strData = strData

For i = 1 To Len(temp_strData) strTmp = Mid(temp_strData, i, 1) If Asc(strTmp) >= 48 And Asc(strTmp) <= 57 Then ‘숫자라면 strNum = […]

IP 주소 가져 오기 함수

SQL Native Client 를 vb 에서 사용 (UPDATE ERROR (smalldatetime))

2005 server 2008 server 인 경우

Public Const Connect = “PROVIDER=MSDASQL;driver= {SQL Native Client};server=111.111.111.111;uid=IDXXX;pwd=PASSXXX2;database=DBXXX”

UPDATE ERROR (smalldatetime) 인서트는 자동으로 해주지만 Update는 CAST 해주워야 함.

VB ASP에서 웹서비스 이용하기

VB에서 웹서비스 이용하기

ASP에서 웹서비스 이용하기

오류 : 시스템이 지정한 인코딩을 지원하지 않습니다.=> MSXML 4.0 SP2 파서가 설치 되지 않음 msxmlkor.msi 설치 다운로드 : https://www.microsoft.com/ko-kr/download/confirmation.aspx?id=19662