module1.bas

台达通讯。并且在实际应用中还挺好的。大家可使用啊

Attribute VB_Name = "Module1"
Option Explicit
Public xuan1 As Integer
Public xuan2 As Integer
Public xuan3 As Integer
Public xuan4 As Integer

Public she1 As Integer
Public she2 As Integer
Public she3 As Integer
Public she4 As Integer

Public P1 As Integer
Public P2 As Integer
Public P3 As Integer
Public P4 As Integer

Public I1 As Integer
Public I2 As Integer
Public I3 As Integer
Public I4 As Integer

Public QiTing As Integer
Public yibiao(3) As String
Public jiaoban(3) As Boolean
Public dayin(2) As Boolean
Public dybiao(2) As Boolean

Public ttt As Integer
Public guanli As Boolean

Public xsl1 As Excel.Application
Public exwbook As Excel.Workbook
Public exsheet1 As Excel.Worksheet
Public exsheet2 As Excel.Worksheet

Sub Main()
Set xsl1 = Excel.Application
Set exwbook = xsl1.Workbooks.Open(App.Path + "\BOOK.xls")
Set exsheet1 = exwbook.Sheets("sheet1")
Set exsheet2 = exwbook.Sheets("sheet2")
End Sub