|
楼主 |
发表于 2017-5-31 15:20
|
显示全部楼层
Private Sub Form_Load()
Dim xlApp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
'retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX + 400, Me.CurrentY + 10, 249, 131, SWP_SHOWWINDOW)
On Error Resume Next
If IsFileExists(App.Path & "\" & "三小学生个人成绩前N名.xls") = True Then
Set xlApp = GetObject(, "Excel.Application") '判断Excel是否打开
If Err.Number <> 0 Then '如果未打开
' 文件存在时的处理
Set ObjExcel = CreateObject("Excel.Application") '第一层
ObjExcel.Workbooks.Open (App.Path & "\" & "三小学生个人成绩前N名.xls") ', , , , "987654321", "987654321"
'显示打开对象
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 = "年级前30名"
xlbook.Sheets(1).Range("a1") = "年级前30名"
xlbook.Sheets(1).Range("a2") = "班级"
xlbook.Sheets(1).Range("b2") = "姓名"
xlbook.Sheets(1).Range("c2") = "语文"
xlbook.Sheets(1).Range("d2") = "数学"
xlbook.Sheets(1).Range("e2") = "英语"
xlbook.Sheets(1).Range("f2") = "科学"
xlbook.Sheets(1).Range("g2") = "总分"
xlbook.Sheets(1).Range("h2") = "名次"
xlbook.SaveAs App.Path & "\" & "三小学生个人成绩前N名.xls"
'xlbook.Close
'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
If FolderExists(App.Path & "\" & "各班") = False Then
' If Dir(BackuPath, vbDirectory) = "" Then '文件夹不存在
MkDir (App.Path & "\" & "各班") '在应用程序根目下,创建文件夹Backup
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
Public Function FileExists(ByVal File As String) As Boolean
On Error Resume Next
If (GetAttr(File) And vbDirectory) = False Then FileExists = True
If Err Then FileExists = False: Err.Clear
End Function
Function FolderExists(ByVal Folder As String) As Boolean
On Error Resume Next
If GetAttr(Folder) And vbDirectory Then FolderExists = True
If Err Then FolderExists = False: Err.Clear
End Function
|
评分
-
1
查看全部评分
-
|