VBA操作Excel

几个小知识：

　　1、设置单元格格式：

　　　　　　sht.Cells(4, pCol).NumberFormatLocal = 'yyyy-mm-dd hh:mm:ss'

　　　　　　其中文本格式为：'@'，常规格式为：G/通用格式

　　2、设置单元格为自动列宽或自动高度：

　　　　　　 #1、VBA自动生成的代码为：Columns('A:D').EntireColumn.AutoFit

　　　　　　#2、但是字母的A到D，我们在VBA中不方便取到，一般都是数据，所以使用

　　　　　　　　　　Range(Cells(1, 1), Cells(1, 40)).EntireColumn.AutoFit-----（这种方式是按照某一行的格式去适应的）

　　　　　　　　或者、Range(Columns(1), Columns(40)).EntireColumn.AutoFit

　　3、关于DoEvents事件：

　　　　　这个用的不好，只做记录，

　　　　　　如下代码：

Public Sub getTableKey()
    Dim strKey As String
    Dim sql As String
    Dim strTableName As String
    Dim strPK As String
    ' 提示框标识
    Dim bln As Boolean: bln = False
    'SQL
    sql = 'select a.column_name from user_cons_columns a, user_constraints b  where a.constraint_name = b.constraint_name and b.constraint_type = 'P' and a.table_name = ''
    ' 表名
    strTableName = getTableName()
    '设置表名为大写
    strTableName = UCase(strTableName)
    '写回Excel
    ActiveSheet.Cells(8, 1).Value = strTableName
    strKey = getUserPK()
    If strKey = '' Then
        '连接串
        Dim ConnDB As ADODB.Connection
        Set ConnDB = New ADODB.Connection
        
        Dim ConnStr As String
        ' 结果集
        Dim DBRst As ADODB.Recordset
        Set DBRst = New ADODB.Recordset
        ConnStr = getConnStr()
        ConnDB.Open ConnStr
        
        'DoEvents
        processFM.Show 0
        DoEvents
        DBRst.Open sql & strTableName & ''', ConnStr
        If DBRst.EOF And DBRst.BOF Then
            Unload processFM
            MsgBox '表名错误！', vbCritical, '错误'
            Exit Sub
        End If
        strPK = DBRst.Fields.Item(0).Value
        '写回Excel
        ActiveSheet.Cells(6, 1).Value = strPK
        bln = True
        '关闭
        DBRst.Close
        ConnDB.Close
    End If
    If bln Then
        Unload processFM
        MsgBox '表名更新成功！', vbInformation, '提示'
    End If
End Sub

其中的DoEvents能保证出现的窗口正常显示。

这个有待研究，但是VBA中除去大量数据外，用的不多。

　　4、VBA读取Excel单元格内容：

　　　　　　#1、读取实际值，使用Cells.value

　　　　　　#2、读取Excel显示的值，使用Cells.Text-------------------但是这里需要注意的是Excel中有可能显示为#######，这时候需要调整列宽，方法在上文已经有阐述了。

。