获取Excel工作表表名一般使用创建Excel.Application对象的方法,但速度比较慢。 使用dao的方法则可以快速获取, 代码 如下: '获取Excel文件所有工作表名称的过程 Public Sub GetExcelSheetName() Dim dbs As DAO.Database Dim tbf As DAO.TableDef Dim ...
模块部分: Option Explicit Public Const SOCKET_ERROR = -1 Public Const AF_INET = 2 Public Const PF_INET = AF_INET Public Const MAXGETHOSTSTRUCT = 1024 Public Const SOCK_STREAM = 1 Public Const MSG_PEEK = 2 Private Type SockAddr sin_family As Integer sin ...