VBA

마우스 자동화 import pyautogui import time # # 1. 화면 크기 출력 # print(pyautogui.size()) # 2. 마우스 위치 출력 # time.sleep(2) # print(pyautogui.position()) # 3. 마우스 이동 pyautogui.moveTo(41,442,2) # 4. 마우스 클릭 pyautogui.click() pyautogui.click(button='right') pyautogui.doubleClick() pyautogui.click(clicks=3,interval=1) # 3번 클릭할건데 1초마다클릭 # 5. 마우스 드래그 # 580,54 ->415,57 pyautogui.moveTo(580,54,2) pyautogui.dragTo(415..

Function request(url, Optional requestHeader = "", Optional method = "GET", Optional postData = "", Optional CharSet = "") On Error GoTo goErr Set winhttp = CreateObject("WinHttp.WinHttpRequest.5.1") winhttp.Open method, url, False If TypeName(requestHeader) = "Variant()" Then For Each Header In requestHeader idx = InStr(Header, ":") If idx > 0 Then Key = Trim(Left(Header, idx - 1)) Value = Trim..

같은 파일 각 시트별 데이터 가져오기 Sub 데이터 가져오기() dim 시트 as worksheet dim 찾은셀 as range dim 기록셀 as range , i as integer row("7:100").delete shift:=xlup set 기록셀 =range("b7") for each 시트 in worksheets if 시트.name activesheet.name then set 찾은셀 =시트.columns(1).find(what: = range("b3")) if not 찾은셀 in nothing then 찾은셀. resize(,7).copy 기록셀.offset(i) i=i+1 end if end if next end sub

첫번째 방법 Sub 검색() 'winhttp5.1 참조 안함 Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1") Set doc = CreateObject("htmlfile") 주소 = "주소입력" WinHttp.Open "GET", 주소, FALSE WinHttp.Send doc.body.innerhtml = WinHttp.ResponseText ....... end sub 두번째 방법 Sub 모든종목가져오기() 'winhttp 5.1 참조함 Dim winhttp As New WinHttpRequest 주소 = " 주소입력" winhttp.Open "GET", 주소 winhttp.send 결과 = winhttp.responseText Set json = ..

Sub GetHardDriveSerialNumber() Dim wmi As Object Set wmi = GetObject("winmgmts:\\.\root\cimv2") Dim disks As Object Set disks = wmi.ExecQuery("SELECT VolumeSerialNumber FROM Win32_LogicalDisk WHERE DeviceID='C:'") Dim serialNumber As String For Each disk In disks serialNumber = disk.VolumeSerialNumber Exit For Next MsgBox "하드 드라이브 볼륨넘버: " & serialNumber End Sub VBA에서 볼륨번호를 확인하는 방법이며, 사용자 지정 PC 이..

Sub SaveAsPDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\aa\Desktop\Example.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub 다른방법으로는 팝업이 중간에 나와 지정하는 방법 Sub 프로시저() Dim 파일 As Variant Dim 파일형식 As String 파일형식 = "PDF 파일 (*.pdf), *.pdf" 파일 = Application.GetSaveAsFilename(FileFilter:=파일형식, _ Title:..

Sub CopyAllDataFromOtherWorkbook() Dim wb As Workbook Set wb = Workbooks.Open("C:\이미지테스트\데이터.xlsx") Dim ws As Worksheet Set ws = wb.Worksheets("Sheet1") Dim data As Variant data = ws.UsedRange.Value Dim newSheet As Worksheet Set newSheet = ThisWorkbook.Sheets.Add newSheet.Name = "CopiedSheet" newSheet.Range("A1").Resize(UBound(data, 1), UBound(data, 2)).Value = data wb.Close End Sub

Sub OpenWordDocument() Dim objWord As New Word.Application Dim objDoc As Word.Document ' 파일 경로 및 파일 이름을 수정하여 열고자 하는 워드 파일의 경로와 파일 이름을 지정합니다. Set objDoc = objWord.Documents.Open("C:\이미지테스트\aaa.docx") ' 워드 파일을 표시합니다. objWord.Visible = True objDoc.Range.Copy ThisWorkbook.Sheets("Sheet1").Range("B2").PasteSpecial Selection.Verb Verb:=Object Range("b2").Select ActiveSheet.Paste ActiveSheet.Shapes.Ran..

Dim driver As New Selenium.ChromeDriver 'sub안에서 실행하면 끝날때 자동 종료 되기 때문에 밖에서 실행시켜놓는다. ------------------------------------------------------------------------- Sub 브라우저실행() driver.Get " http://www.encar.com/dc/dc_carsearchlist.do?carType=kor&searchType=model&TG.R=A#!%7B%22action%22%3A%22(And.Hidden.N._.(C.CarType.Y._.(C.Manufacturer.%EC%A0%9C%EB%84%A4%EC%8B%9C%EC%8A%A4._.(C.ModelGroup.G80._.Model.G..