单科成绩统计(VB封装)

lzqlaj

可以求平均分，优秀率，及格率，每班后10最高分。

lzqlaj

其实只需要“城内三小成绩统计2017.exe“这个文件就行了，工作簿没有没关系，程序自动建立一个工作簿，没有数据程序自动生成140个数据供测试用。http://club.excelhome.net/thread-1362128-1-1.html 公式版

lzqlaj

• Private Sub Form_Load()
•     Dim xlApp As Excel.Application
•     Dim xlbook As Excel.Workbook
•     Dim xlsheet As Excel.Worksheet
•     On Error Resume Next
•     Set xlApp = GetObject(, "Excel.Application")
•     If IsFileExists(App.Path & "\三小成绩统计2017.xls") = True Then
•         Set xlApp = GetObject(, "Excel.Application")
•         If Err.Number <> 0 Then
•             Set ObjExcel = CreateObject("Excel.Application")
•             ObjExcel.Workbooks.Open App.Path & "\三小成绩统计2017.xls"
•             ObjExcel.Visible = True
•             Set ObjExcel = Nothing
•             Err.Clear
•         End If
•     Else
•         Set xlApp = CreateObject("excel.application")
•         Set xlbook = xlApp.Workbooks.Add
•         xlApp.Visible = True
•         xlbook.Sheets(1).Name = "录入"
•         xlbook.Sheets(1).Range("a1") = "序号"
•         xlbook.Sheets(1).Range("b1") = "班级"
•         xlbook.Sheets(1).Range("c1") = "分数"
•         xlbook.SaveAs App.Path & "\三小成绩统计2017.xls"
•         xlbook.Sheets(1).Range("A2").FormulaR1C1 = "=IF(RC[2]<>"""",ROW()-1,"""")"
•         xlbook.Sheets(1).Range("A2").AutoFill Destination:=Range("A2:A602"), Type:=xlFillDefault
•     End If
• End Sub
• Function IsFileExists(ByVal strFileName As String) As Boolean
•     Dim objFileSystem As Object
•     Set objFileSystem = CreateObject("Scripting.FileSystemObject")
•     If objFileSystem.fileExists(strFileName) = True Then
•         IsFileExists = True
•     Else
•         IsFileExists = False
•     End If
• End Function
  

lzqlaj

以上是vb部分代码。

adasa

谢谢分享！！

jx928867128

lzqlaj 发表于 2017-8-10 14:05

Private Sub Form_Load()

    Dim xlApp As Excel.Application

    Dim xlbook As Excel.Work ...

老师您好，我这里有一贴子您能抽空帮我看下好吗https://club.excelhome.net/forum ... ;page=1#pid10963943