VBA自定义用友报表函数.docVIP

[原创]VBA自定义用友报表函数　2008-09-17 13:15 分类：VBA学习 字号： 大大? 中中? 小小 取科目的期末值,支持未记账取数和辅助核算，熟悉VBA设计和用友数据库结构的网友可据此开发出更多实用的报表函数。我将其命名为UfoInExcel程序，意思是在Excel中可以像UFO一样取数，而实用性更胜于UFO，因为Excel的优越性地球人都知道。Function qm(科目代码, 月份, Optional 年度 As String, Optional 帐套号 As String, Optional 包含未记帐 As String = Y, Optional 辅助核算方式 As String, Optional 辅助核算编码 As String)If 年度 Year(Date) Then Exit FunctionIf 年度 = Year(Date) And 月份 = Month(Date) Then Exit FunctionDim csqlstr As String??? qm = 0??? If Trim(科目代码) = Then Exit Function??? If Trim(月份) = Then Exit Function??? If Trim(年度) = Then Exit Function??? If Trim(帐套号)