2013年计算机操作员高级理论知识试卷及答案2_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
2013年计算机操作员高级理论知识试卷及答案2
上传于|0|0|文档简介
&&计算机高级操作员理论试题及答案20132
阅读已结束，如果下载本文需要使用2下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩1页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢4125人阅读
VB_Excel（1）
Private Sub cmdExport_Click()
& & Dim strTemplateFile & & & & As String
& & Dim strFileName & & & & & & As String
& & Dim FSO & & & & & & & & & & As New FileSystemObject
& & Dim excelApp & & & & & & & &As Excel.Application
& & Dim excelBook & & & & & & & As Excel.Workbook
& & Dim excelSheet & & & & & & &As Excel.Worksheet
& & Dim lngLineNo & & & & & & & As Long
& & Dim i & & & & & & & & & & & As Long
& & On Error GoTo ErrHandle
& & strTemplateFile = gStrXlt & &\模板文件名.xls&
& & If Not FSO.FileExists(strTemplateFile) Then
& & & & MsgBox &模板文件不存在&, vbCritical, Me.Caption
& & & & Exit Sub
& & End If
& & strFileName = gStrOther & &\新文件名& & Format(Date, &YYYYMMDD&) & &.xls&
& & If FSO.FileExists(strFileName) Then
& & & & FSO.DeleteFile strFileName
& & End If
& & Set excelApp = CreateObject(&Excel.Application&)
& & Set excelBook = excelApp.Workbooks.Open(strTemplateFile)
& & Set excelSheet = excelBook.Worksheets(1)
& & excelApp.Visible = False
& & excelApp.DisplayAlerts = False & & & & '禁止Excel提示
& & excelApp.Columns(&A:L&).NumberFormatLocal = &@& &'设置成文本格式
& & With prg
& & & & .Max = lvData.ListItems.Count
& & & & .Min = 0
& & & & .Value = 0
& & End With
& & lngLineNo = 4 & & & &'从第四行开始写
& & For i = 1 To lvData.ListItems.Count
& & & & excelSheet.Cells(lngLineNo, 1) = lvData.ListItems(i).SubItems(1) & & & & & & & & & & & & & &
& & & & excelSheet.Cells(lngLineNo, 2) = lvData.ListItems(i).SubItems(2) & & & & & & & & & & & & &&
& & & & excelSheet.Cells(lngLineNo, 3) = lvData.ListItems(i).SubItems(3) & & & & & & & & & & & & & &
& & & & excelSheet.Cells(lngLineNo, 4) = lvData.ListItems(i).SubItems(4) & & & & & & & & & & & & & &
& & & & excelSheet.Cells(lngLineNo, 5) = lvData.ListItems(i).SubItems(5) & & & & & & & & & & & & & &
& & & & lngLineNo = lngLineNo + 1
& & & & If prg.Value & prg.Max Then
& & & & & & prg.Value = prg.Value + 1
& & & & End If
& & & & DoEvents
& & prg.Value = prg.Max
& & With excelSheet
& & & & .Range(.Cells(1, 1), Cells(lvData.ListItems.Count + 3, 5)).Borders.LineStyle = xlContinuous
& & & & .Range(.Cells(1, 1), Cells(lvData.ListItems.Count + 3, 5)).Font.Size = 9
& & End With
& & excelBook.Saved = True
& & excelBook.SaveAs strFileName
& & '关闭Excel进程
& & excelBook.Close
& & excelApp.Quit
& & Set excelBook = Nothing
& & Set excelApp = Nothing
& & MsgBox &导出完毕!& & vbCrLf & &文件路径:& & strFileName, vbInformation, Me.Caption
& & On Error GoTo 0
& & Exit Sub
ErrHandle:
& & Call gErrList(&frmFenQiQiShuRpt.cmdExport_Click&, Err.Description, Err.Number, True)
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：926776次
积分：11625
积分：11625
排名：第1007名
原创：238篇
转载：87篇
译文：45篇
评论：64条
(1)(3)(5)(1)(1)(3)(2)(3)(6)(11)(1)(13)(10)(15)(23)(28)(32)(36)(11)(8)(25)(14)(37)(41)(9)(7)(1)(22)(20)君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
Office2007_Word
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口WPS论坛表格好帖推荐
如何创建excel默认工作簿模板
一键分享：
在Excel申可以保存的默认设置相当少，只有&工具&I&选项&中的小部分设置可以被保存下来，对于最常用的页眉页脚、打印页边距、单元格格式设置等就无能为力了。其实修改一下Excel的默认模板同样可以将它们保存为默认设置，这样当我们打开一个新的工作簿时，Excel就会应用用户选择的功能。不过和Word不一样的是，Excel本来并没有设置默认模板，我们得自己动手帮它创建。操作步骤如下：1． 新建一个空白的工作簿，在没有向单元格中输入信息之前，先对新的工作簿按 照自己希望它显示的外观进行各种设置调整，再开始其他步骤。2． 选择&文件&『&保存&命令，在打开的&另存为&对话框中输入&Book&作 为此文件的文件名。3． 将&保存位置&改变为XLStart文件夹，此文件夹是在Excel文件夹下面的一个子文件夹(在C:Documents and Settings用户名'Application Data Microsoft Excel&的目录下)。4.在&另存为&对话框的&保存类型&下拉列表框中，选择&模板，选项，然后 单击&保存一按钮。 这样，以后梅次我们在打开一个新的工作簿时，Excel就将首先查看在XI-Start文件夹中有没有book.xlt文件。如果找到，则在此文件中使用的格式化选项就将应用到打开的侮一个新工作薄中.当然你可以随时修改book.xit文件中的设置来改变默认设置。}