Excel VBA 활용하기

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

Sub Select1() For i = 1 To 54 Dim sName1 As String Dim sName2 As String sName1 = Trim(Sheet1.Cells(i, 2)) For j = 1 To 96 sName2 = Trim(Sheet2.Cells(j, 1)) ‘//Debug.Print sName1, sName2 If ((sName1 = sName2) And (sName1 = sName2)) Then Sheet1.Cells(i, 3) = IIf(Sheet2.Cells(j, 2) > 0, […]

[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 주소 가져 오기 함수

Private Declare Function GetIpAddrTable_API Lib “IpHlpApi” Alias “GetIpAddrTable” (pIPAddrTable As Any, pdwSize As Long, ByVal bOrder As Long) As Long

‘IP 주소 가져 오기 ‘ Returns an array with the local IP addresses (as strings). ‘ Author: Christian d’Heureuse, www.source-code.biz Public Function GetIpAddrTable() As String On Error Resume Next Dim Buf(0 To 511) As […]

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 해주워야 함.

Format(DEP_DATETIME, “YYYY-MM-DD hh:mm:ss”)

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

VB에서 웹서비스 이용하기

Option Explicit Private Sub Command1_Click() Const HttpPath = “http://111.111.111.111/PNR.asmx/Doc” Dim xmlDoc As Object Dim strRequest As String Dim XMLhttp As MSXML2.XMLHTTP30 Dim sSend Set XMLhttp = New MSXML2.XMLHTTP30 sSend = “PNR_RLOC=” & Me.Text1.Text XMLhttp.open “POST”, HttpPath, False XMLhttp.setRequestHeader “Content-Type”, “application/x-www-form-urlencoded” XMLhttp.send sSend Me.Text2 = XMLhttp.responseText End Sub

ASP에서 웹서비스 이용하기

[…]