2018年7月4日

通过字符串路径获取对象的属性值

摘要： Public Function GetProperty(objInput As Object, proString As String, Optional delimiter As String = "_") Dim proPath As String() = Split(proString, delimiter), objLoc As Object = objInput For E... 阅读全文

posted @ 2018-07-04 22:16 清水古木 阅读(334) 评论(0) 推荐(0) 编辑

上传EXCEL表格至SQL数据库(自动建表)

摘要： Public Sub AutoTable() Dim conExcel As New Connection, conSQL As New Connection, rs As New Recordset, fieldDef As String, fieldStr As String, rsValue As String, fileName As String, tabName As Stri... 阅读全文

posted @ 2018-07-04 22:12 清水古木 阅读(1671) 评论(0) 推荐(0) 编辑

导航