各们能帮找一个vba开发excel的简单实例(有源码),多谢了!

Question

简单一点就行,多谢了

Answer 1

简单的例子Private Sub CommandButton1_Click()
ConnStart
Dim s3Start As Integer
    
s3Start = 2
    Sheet3.Activate
   Sheet3.Cells.Select
    Selection.Delete Shift:=xlUp
    
Sheet3.Range("A1").Value = "²¿ÃÅID"
Sheet3.Range("B1").Value = "²¿ÃÅÃû³Æ"Sheet3.Range("D1").Value = "ÐÔ±ðID"
Sheet3.Range("E1").Value = "ÐÔ±ðÃû³Æ"
SexList.Clear
SexList.AddItem "δѡÔñ"
SexList.ListIndex = 0
Reco.Open "Select * From Hr_Sex "
While Not Reco.EOF
    SexList.AddItem Trim(Reco.Fields(1).Value)
    Sheet3.Cells(s3Start, 4) = Reco.Fields(0)
    Sheet3.Cells(s3Start, 5) = Trim(Reco.Fields(1))
    Reco.MoveNext
    s3Start = s3Start + 1
Wend
Reco.Close'ѧÀú±í
s3Start = 2
Sheet3.Range("G1").Value = "ѧÀúID"
Sheet3.Range("H1").Value = "ѧÀúÃû³Æ"
Reco.Open "Select * From Hr_EDU "
While Not Reco.EOF
Sheet3.Cells(s3Start, 7) = Reco.Fields(0)
Sheet3.Cells(s3Start, 8) = Trim(Reco.Fields(1))
    Reco.MoveNext
    s3Start = s3Start + 1
Wend
Reco.Close
'ÈËÔ±ÀàÐͱí
s3Start = 8
Sheet3.Range("D7").Value = "ÈËÔ±ÀàÐÍID"
Sheet3.Range("E7").Value = "ÈËÔ±ÀàÐÍÃû³Æ"EmpTypeList.Clear
EmpTypeList.AddItem "δѡÔñ"
EmpTypeList.ListIndex = 0   Reco.Open "Select * From Hr_Emptype "
While Not Reco.EOF
 EmpTypeList.AddItem Trim(Reco.Fields(1).Value)
Sheet3.Cells(s3Start, 4) = Reco.Fields(0)
Sheet3.Cells(s3Start, 5) = Trim(Reco.Fields(1))
    Reco.MoveNext
    s3Start = s3Start + 1
Wend
Reco.Close
s3Start = 2
Sheet1.ActivateReco.Open "Select * From Hr_Dept where org=1 and deptid>0 order by dept_e"
DeptList.ClearWhile Not Reco.EOF
Sheet3.Cells(s3Start, 1) = Reco.Fields("deptid").Value
Sheet3.Cells(s3Start, 2) = Reco.Fields("dept_e").Value
s3Start = s3Start + 1DeptList.AddItem Trim(Reco.Fields("dept_E").Value)
Reco.MoveNext
WendDeptList.AddItem "ËùÓв¿ÃÅ"
Reco.Close
If DeptList.ListCount > 0 Then DeptList.ListIndex = 0End Sub

Answer 2

可以到
http://www.excelhome.net/index.asp
看看有很多范例

Answer 3

Private Sub Command3_Click()
On Error GoTo err1
    Dim i As Long
    Dim j As Long
    Dim objExl As Excel.Application   '声明对象变量
    Me.MousePointer = 11            '改变鼠标样
    Set objExl = New Excel.Application '初始化对象变量
    objExl.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
    objExl.Workbooks.Add          '增加一个工作薄
    objExl.Sheets(1).Name = "book2"  '修改工作薄名称
    objExl.Sheets("book2").Select     '选中工作薄<book2>
    For i = 1 To 50                   '循环写入数据
        For j = 1 To 5
            If i = 1 Then
                objExl.Cells(i, j) = " E " & i & j
            Else
                objExl.Cells(i, j) = i & j
            End If
        Next
    Next
    
    objExl.ActiveWindow.SplitRow = 1
    objExl.ActiveWindow.FreezePanes = True    objExl.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"  '设置固定行
    objExl.ActiveSheet.PageSetup.PrintTitleColumns = ""    '打印标题
    ‘设置页脚
    objExl.ActiveSheet.PageSetup.RightFooter = "打印时间  &""Times New Roman,常规""&D"
    objExl.ActiveWindow.View = xlPageBreakPreview  '设置显示方式
    objExl.ActiveWindow.Zoom = 100                 '设置显示大小
    objExl.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    objExl.Visible = True                          '使EXCEL可见
    objExl.Application.WindowState = xlMaximized    'EXCEL的显示方式为最大化
    objExl.ActiveWindow.WindowState = xlMaximized  '工作薄显示方式为最大化
    objExl.SheetsInNewWorkbook = 3                 '将默认新工作薄数量改回3个
   
    Set objExl = Nothing    '清除对象
    Me.MousePointer = 0   '修改鼠标
Exit Sub
err1:
objExl.SheetsInNewWorkbook = 3
objExl.DisplayAlerts = False  '关闭时不提示保存
objExl.Quit                '关闭EXCEL
objExl.DisplayAlerts = True   '关闭时提示保存
Set objExl = Nothing
Me.MousePointer = 0
End Sub