분류 전체보기165 [vb.net] VB.NET으로 이벤트 로그 생성 및 읽기, 쓰기 및 삭제 이벤트 로그 기록을 위해 우선 MSDN 자료를 찿아 보았습니다. CreateEventSource(String, String) 오버로드 CreateEventSource(EventSourceCreationData) 이벤트 소스와 해당 이벤트 로그에 대한 지정된 구성 속성을 사용하여 지역화된 이벤트 메시지를 작성할 올바른 이벤트 소스를 설정합니다. CreateEventSource(String, String) 로컬 컴퓨터의 로그에 엔트리를 쓰는 유효한 이벤트 소스로 지정된 소스 이름을 설정합니다. 또한 이 방법을 사용하면 로컬 컴퓨터에 새로운 사용자 지정 로그를 만들 수도 있습니다. CreateEventSource(String, String, String) 사용되지 않습니다. 지정된 컴퓨터의 로그에 엔트.. 2020. 9. 23. [vba] OLEDB를 활용한 시트 데이터 검색 및 추출을 통한 데이터 정리 간만에 흥미를 가질만한 질문이 올라왔습니다. 많은 데이터중에서 특정 조건으로 데이터를 추출하고자 합니다. 조금 이해는 불가하지만 나름 얻고자 하는 데이터가 무엇인지 한참 고민을 했습니다. 1차질문(엑셀 VBA 질문 드립니다.), 2차질문(1:1 질문) 아래와 같은 데이터가 있습니다. 이후 중략 이 데이터를 기반으로 아래와 같이 뽑고자 합니다. 조건이 무엇일까? 질문을 여러번 읽어보고 감이 왔습니다. 그래서 결과를 아래처럼 뽑아냈습니다. 아래는 관련 동영상 입니다 아래는 동영상에서 사용된 vba 매크로 소스코드 입니다 우선 도구 - 참조 에서 아래처럼 참조를 추가합니다. Sub program1472_com() Application.ScreenUpdating = False Do While .. 2020. 9. 22. [vba] ListBox 를 활용한 검색폼 웹 크롤링 관련한 답변을 주로 하는데 요즘 먹이감이 별로 없다. 간만에 시간이 좀 되어 답변한 내용을 정리해 봅니다. 뭐 채택은 안되었지만... 아래는 등록 및 검색하는 결과 영상입니다. 아래는 등록 폼 입니다. 동적 컨트롤을 삽입하여 깔끔하게 처리하였습니다. 아래는 "검색"폼 입니다. 아래는 동영상에 사용된 파일과 코딩한 UserForm 입니다. 엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준) 엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원 (포스팅일기준) 엑셀 2016 매크로 & VBA 바이블:회사에서 필요한 코드는 모두 있다!, 한빛미디어 40,500원 (포스팅일기준) 2020. 9. 22. [vba] CreateObject 오류시 x64에서 ScriptControl등 사용하는 방법 vba 사용하는 사람이면 그냥 32비트 깔아라... 엑셀 2016을 설치하고 나서 영 불편한 게 아니네요.... 64 비트 실행 환경에서 ScriptControl이 제공되지 않아 오류가 발생합니다. 미래를 생각하는 가장 좋은 방법은 ScriptControl의 대안을 고려하는 것입니다. 그러나 다른 수단이 없는 것은 아닙니다. 64 비트 Windows에는 32 비트 실행 환경도 있습니다. ScriptControl은 32 비트 실행 환경에서 제공됩니다. Function CreateObjectx86(sProgID) Static oWnd As Object Dim bRunning As Boolean #If Win64 Then bRunning = InStr(TypeName(oWnd), "HTMLWindow") .. 2020. 9. 22. [vb.net] WinHttp를 이용한 네이버 맞춤법 검사제목없음 Private Function SpellerProxy(ByVal value As String) As String Dim URL As String, T As String URL = "https://m.search.naver.com/p/csearch/ocontent/util/SpellerProxy?" URL &= "_callback=jQuery1124027291531983561435_" & UNIX_TIME() URL &= "&q=" & UrlEncode(value) URL &= "&where=nexearch" URL &= "&color_blindness=0" URL &= "&_=" & UNIX_TIME() With CreateObject("WinHttp.WinHttpRequest.5.1") .Open("G.. 2020. 9. 22. μTorrent Web 설치 프로그램 다운로드 μTorrent Web 다운로드 https://download-new.utorrent.com 세계 최고의 토렌트 클라이언트 자신의 엔터테인먼트 수요에 맞는 버전을 선택하세요 최신! 다운로드 중에도 재생할 수 있습니다 더는 기다릴 필요가 없어요, 마음껏 인터넷을 시청하세요 무료 다운로드 지금 바로 파일을 재생하세요 원하는 모두를 저장하세요 빠른 다운로드 유저들에게 사랑받는 이유 “ µTorrent는 직관적인 인터페이스로 우아하고 심플한 기능을 제공합니다. 사용자에게 필요한 모든 기능과 설정이 포함되어 있습니다. 아무것도 복잡할 필요는 없는 것이지요. Dr. J. Fever 9/1/2017 “ µTorrent의 주요 장점은 신속하며, 원격 관리 스크립팅과 자동화와 같은 고급 사용자 설정을 활용.. 2020. 9. 21. [vb.net] 암호화/복호화(Encrypt / Decrypt) '// 복호화 Public Function Decrypt(ByVal cipherText As String, Optional key As String = "") As String If key.Length = 0 Then key = Application.ProductName Dim wrapper As New Simple3Des(key) Try Return wrapper.DecryptData(cipherText) Catch ex As System.Security.Cryptography.CryptographicException 'MsgBox("The data could not be decrypted with the password.") End Try Return Nothing End Function '// 암호.. 2020. 9. 21. [vba] partners.coupang.com 에 WinHttp로 로그인 해서 상품정보 가져오기 Sub login_coupang_com() Dim IE As Object Dim URL As String, Cookie As String, T As String Dim PostData As String Set IE = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "https://login.coupang.com/login/login.pang?rtnUrl=https%3A%2F%2Fpartners.coupang.com" With IE .Open "GET", URL .SetRequestHeader "Accept", "text/html, application/xhtml+xml, image/jxr, */*" .SetRequestHeader "Accept-Language",.. 2020. 9. 21. FileLocator Pro Version 8.5 - Build 2912 Crack FileLocator Pro Version 8.5 - Build 2912 Crack 다운로드 받을 수 있는 곳입니다. 아래 링크에서 받을 수 있습니다. FileLocator Pro 8.5 Build 2912 Multilingual دانلود FileLocator ؛ برنامه جست‌وجوی سریع فایل downloadly.ir 파일 다운로드 링크 دانلود رایگان نرم افزار - ویندوز، مک، لینوکس، فیلم آموزشی، سریال، اندروید - دانلودلی ویندوز، مک، لینوکس، فیلم آموزشی، سریال، اندروید - دانلودلی downloadly.ir 설명대로 설치 후 같이 동봉된 Crack 폴더의 하위 폴더중 운.. 2020. 9. 21. [vba] Exec () 사용시 명령 프롬프트 창 숨기기( Hide command prompt window when using Exec()) Sub파일검색()DimdirPathAsString, temPathAsString, TAsStringdirPath="""D:\My Project\Excel\*.xls*"""temPath="D:\tem.txt"CreateObject("wscript.shell").Run"cmd /c dir "&_dirPath&" /s /b > "&temPath,0,FalseDo Until Dir(temPath)"": DoEvents: LoopDo Until FileLen(temPath)>0: DoEvents: LoopWith CreateObject("Scripting.FileSystemObject")T=.OpenTextFile(temPath).ReadAll()On Error ResumeNextDoIfErrThenErr.Cle.. 2020. 9. 21. [vb.net] DateTimePicker 표시형식 변경 1. "속성"창에서 변경하는 방법 "모양"에서 "Format"을 "Custom"으로 변경합니다. 다음으로 "동작"에서 "CustomFormat"을 보여질 형식으로 지정합니다. 2. 프로그램 명령으로 변경하는 방법 DateTimePicker1.Format = DateTimePickerFormat.Custom DateTimePicker1.CustomFormat = " yyyy-MM-dd" Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북, 교학사 19,800원 (포스팅일기준) Professional Visual Basic 6 XML 정보문화사 24,300원 (포스팅일기준) Visual Basic이 보이는 그림책, 성안당 14,400원 (포스팅일기준) 2020. 9. 21. [vb.net] 이미지(png, jpg, bmp 등) 파일을 아이콘(ico) 파일로 변환 Dim fileName AsString="EX.png" Dim newFileName AsString="ico.ico" Dim bmp AsSystem.Drawing.Bitmap=System.Drawing.Image.FromFile(fileName, True) Dim ico AsSystem.Drawing.Icon=System.Drawing.Icon.FromHandle(bmp.GetHicon()) Dim icofs As Stream=File.Create(newFileName) ico.Save(icofs) : icofs.Close() Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북, 교학사 19,800원 (포스팅일기준) Professional Visual Basic .. 2020. 9. 21. FileLocator Pro Version 8.5 - Build 2912 Crack FileLocator Pro Version 8.5 - Build 2912 Crack 다운로드 받을 수 있는 곳입니다. 아래 링크에서 받을 수 있습니다. FileLocator Pro 8.5 Build 2912 Multilingual دانلود FileLocator ؛ برنامه جست‌وجوی سریع فایل downloadly.ir 파일 다운로드 링크 دانلود رایگان نرم افزار - ویندوز، مک، لینوکس، فیلم آموزشی، سریال، اندروید - دانلودلی ویندوز، مک، لینوکس، فیلم آموزشی، سریال، اندروید - دانلودلی downloadly.ir 설명대로 설치 후 같이 동봉된 Crack 폴더의 하위 폴더중 운.. 2020. 9. 21. [vba] Exec () 사용시 명령 프롬프트 창 숨기기( Hide command prompt window when using Exec()) Sub 파일검색() Dim dirPath As String, temPath As String, T As String dirPath = """D:\My Project\Excel\*.xls*""" temPath = "D:\tem.txt" CreateObject("wscript.shell").Run "cmd /c dir " & _ dirPath & " /s /b > " & temPath, 0, False Do Until Dir(temPath) "": DoEvents: Loop Do Until FileLen(temPath) > 0: DoEvents: Loop With CreateObject("Scripting.FileSystemObject") T = .OpenTextFile(temPath).ReadAll() O.. 2020. 9. 19. [vb.net] DateTimePicker 표시형식 변경 1. "속성"창에서 변경하는 방법 "모양"에서 "Format"을 "Custom"으로 변경합니다. 다음으로 "동작"에서 "CustomFormat"을 보여질 형식으로 지정합니다. 2. 프로그램 명령으로 변경하는 방법 DateTimePicker1.Format = DateTimePickerFormat.Custom DateTimePicker1.CustomFormat = " yyyy-MM-dd" Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북, 교학사 19,800원 (포스팅일기준) Professional Visual Basic 6 XML 정보문화사 24,300원 (포스팅일기준) Visual Basic이 보이는 그림책, 성안당 14,400원 (포스팅일기준) 2020. 9. 15. [vb.net] 이미지(png, jpg, bmp 등) 파일을 아이콘(ico) 파일로 변환 Dim fileName As String = "EX.png" Dim newFileName As String = "ico.ico" Dim bmp As System.Drawing.Bitmap = System.Drawing.Image.FromFile(fileName, True) Dim ico As System.Drawing.Icon = System.Drawing.Icon.FromHandle(bmp.GetHicon()) Dim icofs As Stream = File.Create(newFileName) ico.Save(icofs) : icofs.Close() VISUAL BASIC을 이용한 전자상거래 구축, 사이버출판사 18,000원 (포스팅일기준) Visual Basic 2013 Programming(비주얼 .. 2020. 9. 14. [vb.net] DataTable 내용을 XML로 저장 및 불러오기 Example 1:) Write: dt1.TableName = "MyDataTable" dt1.WriteXmlSchema(Application.StartupPath + "\test_sh.xml", True) dt1.WriteXml(Application.StartupPath + "\test_dt.xml", True) Read: dt2 = New DataTable dt2.ReadXmlSchema(Application.StartupPath + "\test_sh.xml") dt2.ReadXml(Application.StartupPath + "\test_dt.xml") Example 2:) Write: Dim writer As System.IO.StringWriter = New System.IO.StringWri.. 2020. 9. 14. [VBA] Property Examples (Get, Set(Let)) Private meText As Long Public Property Get Text() As String Text = meText End Property Public Property Let Text(value As String) meText = value Me.Caption = meText End Property 대단한 프로그램을 작성중이지 않는다면 잘 사용안하기는 합니다. vba 프록래밍에서 많이 보지 못했거든요 하지만 .Net 프로그램을 하면서 많이 사용하게 되는데 vba에는 없는 것일까 한참 찿다가 추후에 필요할 것 같아 정리해 둡니다. 엑셀러 권현욱의 VBA Power Coding 엑셀 VBA 파워 코딩의 정석, 디지털북스 22,500원 (포스팅일기준) 세상에서 제일 친절한 엑셀 매크로&VB.. 2020. 9. 8. [vba] 작업진행 상태바 만들기(Progress Bar) 1. UserForm을 하나와 Module을 하나 추가합니다. 2. 다음으로 Label을 3개(Label1, Label2, Label3) 추가합니다.(아래 사진에는 Label1개가 안나왔네요) 3. Label1 은 배경이 되는 BaceColor 색상을 정해줍니다. 4. Label2는 진행이 되는 BaceColor 색상을 정해줍니다. ※ Label3은 그냥 둡니다. 4. 다음으로 "UserForm1"의 이름을 "pBar"라고 이름을 바꿉니다. 5. "pBar"를 더블클릭하거나 소스보기를 해서 아래 소스를 붙여넣습니다. Private min_Value As Long, run_Value As Long, max_Value As Long '// 폼이 실행될때 Private Sub UserForm_Initi.. 2020. 9. 8. [vba] 쇼핑몰에서 다운로드한 주문서의 상품명을 원하는 형태로 한 번에 쉽게 정리 네이버 지식인 질문 내용입니다. -액셀로 다운받은 주문서를 정리 하려고 합니다. -"예시" 라고 되어 있는 시트에서 "결과값" 이라고 되어 있는 시트로 변환되었으면 합니다. -"예시"시트에 보시면 문장 맨앞에 랜덤한 문자열이 항상 존재 합니다. 그리고 특정 상품들이 대괄호([])안에 적혀 있습니다. -하나의 제품만 있으면 '#' 기호가 없지만, 여러개의 제품들을 산 사람이 있다면 '#' 기호로 구분되어 집니다. -만약 '(랜덤한문자열) [콜라#사이다#오렌지] -n개' 이러한 문장이 있을때, 파일에서와 같이 '(랜덤한문자열) 콜라 -n개#사이다 -n개#오렌지 -n개' 이런식으로 몇개를 샀는지에 따라, #기준으로 각각의 문장에 -n개가 분배되었으면 좋겠습니다. 아래 매크로로 한방에 해결됩니다. Sub pro.. 2020. 9. 8. [vb.net] HtmlAgilityPack 라이브러리를 이용한 크롤링시 라이브러리 사용 예시 Imports HtmlAgilityPack Dim doc As New HtmlDocument, a As HtmlNode, img As HtmlNode, hNode As HtmlNode doc.LoadHtml(T) If Not doc.DocumentNode.SelectNodes("//*[@id=""productList""]/li") Is Nothing Then For Each li As HtmlNode In doc.DocumentNode.SelectNodes("//*[@id=""productList""]/li") a = li.SelectSingleNode("a") T = a.SelectSingleNode("dl/dd/div[2]").InnerHtml.Replace(vbLf, Space(1)).Trim T .. 2020. 9. 8. 이전 1 ··· 3 4 5 6 7 8 다음
