알쓸전컴(알아두면 쓸모있는 전자 컴퓨터)

vba ScriptControl 429 error ocx 가 등록 되어 있고 참조도 모두 했지만 특정 PC환경에서 429 에러가 날때가 있습니다. Set ScriptEngine = New ScriptControl 이렇게 했을때 429 에러가 난다면 아래 소스를 추가한 다음에 Function CreateObjectx86(sProgID) Static oWnd As Object Dim bRunning As Boolean #If Win64 Then bRunning = InStr(TypeName(oWnd), "HTMLWindow") > 0 If IsEmpty(sProgID) Then If bRunning Then oWnd.Close Exit Function End If If Not bRunning Then Set..

VBA JSON 파싱 VBA 에서 JSON 파싱할 일이 생겼는데 인터넷에서 상당히 고품질의 코드를 얻어 와서 기록을 남깁니다. 아래 코드 입니다. 참조 : https://code.i-harness.com/ko-kr/q/2a737cOption Explicit 'in vb6 click "Tools"->"References" then 'check the box "Microsoft Script Control 1.0"; Dim oScriptEngine As New ScriptControl Dim objJSON As Object ''to use it Private Sub Command1_Click() MsgBox JsonGet("key1", "{'key1': 'value1' ,'key2': { 'key3': 'va..

excel을 DB 처럼 사용 하기 라이브러리 추가 도구 -> 참조 다음과 같이 라이브러리를 추가해 줍니다. 라이브러리를 추가해 줘야 DB를 사용할수 있습니다. Sub 입력1() Dim cu_연결 As New ADODB.Connection Dim TEST_REC As New ADODB.Recordset Dim cu_OLEDB As String Dim cu_경로 As String Dim DB As String Dim cu_SQL As String Dim cu_현재파일 As String '파일 경로를 지정 cu_경로 = "C:\Users\JS201208030669\Desktop\TEST\" cu_현재파일 = "TEST.xlsx" 'HDR=YES 는 첫번째 줄을 칼럼으로 사용 'Excel 12.0 Xml 은 엑..

MSSQL 접속라이브러리 추가 도구 -> 참조 다음과 같이 라이브러리를 추가해 줍니다. 라이브러리를 추가해 줘야 DB를 사용할수 있습니다. VBA 코드 Sub test() Dim 연결 As New ADODB.Connection Dim 레코드셋 As New ADODB.Recordset Dim OLEDB As String Dim xsql As String Dim ms_odbc_address As String ms_odbc_address = "Driver={SQL Server};Server="ip";Database="dbname";UID="userid";PWD="userpasswd"" 연결.Open ms_odbc_address xsql = "select * from ..." 레코드셋.Open xsql, 연결 ..

파일 이름 조건 검색 현재 폴더 상황 VBA 코드 Sub test() Dim 파일확장자 As String Dim 파일 As String Dim 파일리스트_count As Integer 경로 = "D:\CSV" 파일확장자 = "testdata" & "*" 파일 = Dir(경로 & "\" & 파일확장자) Do While 파일 "" Debug.Print 파일 파일 = Dir Loop End Sub 실행 결과 으로 testdata* 에 대한 결과가 나옵니다. 추후에 *.xls 이런식으로 사용할수도 있습니다.

CVS SQL로 연결 가끔 VBA로 메크로를 만들다 보면 자동화 설비에서 로그 파일을 CSV로 저장할때가 있습니다. 그럴때 VBA 에서 CSV 데이터를 처리할때 SQL로 하면 정말 편하겠다 해서 학습후에 적어 봅니다. 라이브러리 추가 도구 -> 참조 다음과 같이 라이브러리를 추가해 줍니다. 라이브러리를 추가 해야 CSV를 SQL 쿼리를 사용하여 데이터를 사용할수 있습니다. CSV 내용 파일 경로 : D:\CSV 파일 이름 : testdata.csv 라는 조건으로 시작 하게 됩니다. 에디터로 본내용 Cassette,SLOT,RESULT TYPE,MEAN,MIN,MAX ,,,,, Right,11,TEST1,10916.167,10902.4463,10929.9102 Right,11,TEST2,0.9762,0.9..