VBS에서 Windows API 함수를 호출하는 코드
그러나 그 글의 예는 이미 작성된 EXCEL VBA 프로그램을 사용하는 것이다. 즉, 먼저 EXCEL 파일이 존재해야 한다.나는 VBS에서 excel을 통과할 수 있을지 생각했다.응용 프로그램 대상이 VBA 코드를 포함하는 EXCEL 문서를 만들고 호출할까요?Google은 Microsoft 도움말과 지원에서 마침내 Google에 접근했습니다.
두 문장(이 두 문장을 먼저 읽으십시오)을 결합하여 예시 프로그램을 썼는데, 효과는 마우스를 데스크톱 왼쪽 상단으로 이동하는 것이다.만약 당신의 EXCEL이 너무 해적판이 아니라면, 이 VBS를 두 번 클릭하면 효과를 볼 수 있을 것입니다.
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
Dim oExcel, oBook, oModule
Set oExcel = CreateObject("excel.application")
Set oBook = oExcel.Workbooks.Add
Set oModule = obook.VBProject.VBComponents.Add(1)
strCode = _
"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCr & _
"Sub MyMacro(x as Long, y as Long)" & vbCr & _
"SetCursorPos x, y" & vbCr & _
"End Sub"
oModule.CodeModule.AddFromString strCode
oExcel.Run "MyMacro",0,0
oExcel.DisplayAlerts = False
oBook.Close
oExcel.Quit
앞의 3-5줄의 수정 등록표는 VBS가 EXCEL을 완전히 제어할 수 있도록 하기 위해서입니다. strCode는 EXCEL에 있는 VBA 코드를 쓰기 위한 것입니다. 어떻게 VBA에서 Windows API를 호출하는지는 본고의 토론 범위에 속하지 않으니 스스로 자료를 보십시오.oExcel을 사용합니다.Run "MyMacro", 0,0은 우리가 쓴 VBA 코드를 호출합니다.
원문:http://demon.tw/programming/vbs-excel-invoke-windows-api.html
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
