module1.bas

来自「vb源码大全」· BAS 代码 · 共 13 行

Attribute VB_Name = "Module1"
Option Explicit
Public xlapp As Object    'Excel对象
Public xlbook As Object   '工作簿
Public xlsheet As Object  '工作表
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long