华夏银行原副行长:VBA使用ADO连接数据库实例
来源:百度文库 编辑:中财网 时间:2024/04/28 03:57:49
VBA使用ADO连接数据库实例
(2010-11-17 14:18:30)转载 标签:it
分类: VBA-VB-SeriesOption Explicit
'Option Base 1
'使用ADO连接数据库,添加ADO引用,在VBE下-》工具-》引用-》Microsoft ActiveX Data Objects 2.5 Library
'将sheet1中单元格A1的数据写入sheet2的A1单元格,只需在sheet2的A1单元格写公式
'=IF(Sheet1!A1="","",Sheet1!A1)即可
Public Cn As ADODB.Connection
Public cmd As ADODB.Command
Public rs As ADODB.Recordset
Public createdate As String '记录制作时间变量
Public Sub excute()
Dim Title As String
Title = "导出用户信息"
Do While 1 = 1
Else
Call CreateReport(createdate) '填充数据子过程
End If
Exit Do
Loop
End Sub
Public Sub CreateReport(ByVal createdate As String)
Application.ScreenUpdating = False '屏幕刷新关闭
Application.DisplayAlerts = False '弹出信息警告框关闭
If Dir("G:\学习资料室\VBA学习资料\GetDataFromDataBase\" & createdate & ".xls") <> "" Then
End If
End Sub
'############################单元格的合并与撤分###########################################
'合并单元格A1:C1,并写入赋值为“用户信息报表:制作于XXXX年XX月XX日”
Public Sub mergeA1C1(ByVal createdate As String)
Dim xlbookmerge As Workbook
Set xlbookmerge = ThisWorkbook
Worksheets(1).Select
'Range("A1:C1").MergeCells = True '合并单元格A1:C1 或者使用Range("A1:C1").merge
'Range("A1").Value = "用户信息报表制作时间:" & Left(createdate, 4) & "年" & _
'
'
Range("C1").Value = Left(createdate, 4) & "年" & Mid(createdate, 5, 2) & "月" & Right(createdate, 2) & "日"
End Sub
'------------------------------------------
'取消合并的单元格begin
'首先利用mergearea属性判断某个单元格是否为合并单元格的一部分,如果是,则利用unmerge方法或将mergecells属性设置为false,将合并单元格重新分解为独立的单元格.
'Private Sub 取消合并单元格()
'Dim myrange As Range
'Set myrange = Range("A1")
'If myrange.MergeArea.Address = myrange.Address Then
'MsgBox "该单元格不是合并单元格的一部分"
'Else
'myrange.MergeArea.MergeCells = False'或者myrange.MergeArea.UnMerge
'End If
'Set myrange = Nothing
'End Sub
'取消合并的单元格end
'----------------------
'##############################################################################