职员考勤系统+工薪结算+收银机对账+飞信接口通讯

苹果落落

真牛啊 太厉害了 呵呵收藏了

yxrlqy

在查询系统里面增加个导出功能，代码有点问题，望高手给予修改，谢谢！
Private Sub CommandButton2_Click()
If rs.RecordCount = 0 Then Exit Sub '没有查询记录则退出
    Dim arr(), i&, j&
    ReDim arr(rs.Fields.Count - 1)
    On Error Resume Next
    For i = 0 To rs.Fields.Count - 1 '逐个字段
        arr(i) = rs.Fields(i).Name '取字段名
    Next i
    With Workbooks.Add(xlWBATWorksheet).ActiveSheet '新建只有一个工作表的工作簿
        .Range("A2").CopyFromRecordset rs '复制全部数据
        With .Cells(1, 1).Resize(, rs.Fields.Count) '表头区域
            .value = arr '写表头
            .Font.Bold = True '黑体
            .EntireColumn.AutoFit
            .HorizontalAlignment = xlCenter '垂直居中
        End With
    End With
End Sub

yc528

这么综合的作品，太强大了，佩服，学习。

免责声明

刚接触，看不大懂，感觉挺好用的

limingthefirst

公司的电脑。。只能用用户名登录，安装不了日期控件包。。

Fighting_go!

好嗨有点恶心，excel当VB用了~{:soso_e125:}

handsomely

真的的不错啊

yijidafashi

对对对对对对对

steve924

请问下显示这样的界面是否表示加载成功，那为什么还是出现找不到工程和库呢，请指教，谢谢。

xiaoryu

太强大了   做个标记   熟练些了再回来拜读