正文

vbscript将表信息写入范围(代码片段)

author  author  2023-01-24  164

关键词：

Sub WriteTablesInfoToRange(objConn As ADODB.Connection, startCell As Range)
'Description: Writes table and query (View) names and other info to a range
'Inputs:      Connection object; start cell (Range)

Dim adoRecSet As ADODB.Recordset
Dim i         As Long
Dim j         As Long

'   if startCell consists of more then one cell then upper-left is used
    If startCell.Cells.Count > 1 Then startCell = startCell.Cells(1)

    Set adoRecSet = objConn.OpenSchema(adSchemaTables) ', Array(Empty, Empty, Empty, "TABLE")
    
    i = 0
    With adoRecSet
        For j = 0 To .Fields.Count - 1
            startCell.Offset(i, j) = .Fields(j).Name
        Next j
        
        i = 1
        .MoveFirst
        Do While Not .EOF
            For j = 0 To .Fields.Count - 1
                startCell.Offset(i, j) = .Fields(j).Value
            Next j
            .MoveNext
            i = i + 1
        Loop
        .Close
    End With
    Set adoRecSet = Nothing

End Sub

正文

vbscript将表信息写入范围(代码片段)

vbscript将标题写入范围(代码片段)

vbscript将记录集写入范围(代码片段)

vbscript将记录集写入范围(代码片段)

vbscript将recordset列写入范围(代码片段)

vbscript连接范围选择(代码片段)

r用r将表写入db(代码片段)

vbscript在excelvba中读取和写入文件(代码片段)

vbscript计算范围内不是空单元格(代码片段)

vbscript查找范围中的最后一行(代码片段)

vbscript查找范围中的最后一列(代码片段)

vbscript检查覆盖范围，执行保费计算，从其他保险范围中提取dd(代码片段)

vbscript在范围之后使用字符串查找单元格(代码片段)

vbscript计算使用范围内的行数和列数！(代码片段)

vbscript从32位应用程序读取和写入64位注册表(代码片段)

vbscript各种自定义代码片段-有关详细信息，请参阅注释(代码片段)

vbscript写入与xdoc位于同一文件夹中的xdoc同名的文本文件(代码片段)

vbscript我的代码片段(代码片段)

vbscript使用vbscript发送电子邮件(代码片段)