module1.bas

vb源码大全

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