swily的专栏

Sub 导数据库()Dim conn As New ADODB.Connection 定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用Dim rs As New ADODB.Recordset  定义记录集对象，保存数据表Dim strCn As String, strSQL As String 字符串变量strCn = "Provider=库名;Server=(IP地址);D

Function fmt(b, x, y)b=加粗行数 int   (需传递进来的参数,要多少行进行整理)x=列长度 string （A,B,C类似这种的)y=行 intDo Until Cells(y, 1) y = y - 1Loop Range("A1:" & x & b).Font.Bold = True Range("A1:" & x & y).Se