Public Sub 考勤() 生成DLL
来源:互联网 发布:95淘宝小嫩模全集在线 编辑:程序博客网 时间:2024/05/20 11:37
Public Sub 考勤()
Dim xlApp As Object
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
'Dim rng As xlApp.range 会产生用户定义类型错误,直接引用range即可。
If Not xlApp.range("c1").Value Like "有效签到" Then'如无指定列,插入空列
xlApp.Columns("C:C").Select
' With Selection
' .HorizontalAlignment = xlCenter
' .VerticalAlignment = xlCenter
' .WrapText = False
' .Orientation = 0
' .AddIndent = False
' .IndentLevel = 0
' .ShrinkToFit = False
' .ReadingOrder = xlContext
' .MergeCells = False
'
' End With
xlApp.range("c1").Value = "有效签到"
xlApp.range("d1").Value = "签到状态"
xlApp.range("e1").Value = "有效签离"
xlApp.range("f1").Value = "签离状态"
xlApp.range("g1").Value = "工作时长"
xlApp.range("h1").Value = "考勤评测"
End If
For Each rng In Sheet1.xlApp.range("a1:z1")'在首行找到相应的字段所在列值
'If rng = "最早签到时间" Then colu_c = rng.Column
If rng Like "最早签到时间" Then colu_c$ = VBA.Split(rng.Address,"$")(1)
If rng Like "最晚签到时间" Then colu_l$ = VBA.Split(rng.Address,"$")(1)
If rng Like "签到标准" Then colu_cs$ = VBA.Split(rng.Address,"$")(1)
If rng Like "签离标准" Then colu_ls$ = VBA.Split(rng.Address,"$")(1)
If rng Like "出勤状态" Then colu_zk$ = VBA.Split(rng.Address,"$")(1)
Next
'Declare Function kqCopy Lib "c:/windows/kaoqin1.dll" ()
'
'Dim kk As New xlApp.kq365
'kq365为VB中类模块名称:输入完New后,敲空格键,直接出现选择列表框,从中选择“kq365”
' kk可任意命名
introw = xlApp.cells(a655536).End(xlUp).Row
'introw = [a655536].End(xlUp).Row
Dim i As Integer
For i = 2 To introw Step 1
tc = xlApp.range(colu_c & i)
tcs = xlApp.range(colu_cs & i)
'kq为VB中要执行的模块的名称:输入完kk.后,直接出现选择列表框,从中选择“kq365”
'kq为VB中的过程或函数名称,从列表中选的
End Sub
'-----------------------------------------------------
问题集锦:
Q1运行时错误91 对象变量或With块变量未设置
Dim aa As attend365
aa.考勤
End Sub> 结果如上图。
0 0
- Public Sub 考勤() 生成DLL
- Public Sub ExportToExcel()
- 蓝本S100D考勤机LanBen10.dll资料
- 考勤
- 考勤
- Public Sub New() 与 form_load 有什么区别
- sub
- Sub
- 如何生成config.guess config.sub 文件
- QT生成DLL,调用DLL
- QT生成DLL,调用DLL
- VS2008 生成DLL加载DLL
- C#生成dll,使用dll
- QT生成DLL,调用DLL
- java 使用jacob 调用中控考勤机dll(详细配置)
- 生成并使用dll
- DLL的生成应用
- DLL生成和使用
- 自制通道交易法.mq4
- TDX端口关闭,上网设置
- Xcode经常用到的一些快捷键
- 数组公式的用法,实例链接
- Linux C程序实现查看文件夹大小
- Public Sub 考勤() 生成DLL
- [求助]实时错误91,对象变量…
- Ubuntu 下安装 Python 虚拟环境
- bzoj 4753: [Jsoi2016]最佳团体 二分答案+树形dp
- 学学古代、现代历史
- 本机导航文件
- Android 服务两种启动方式的区别
- ecshop新注册会员登录审核插件
- NC成本表里有差错,暂记于此