工作簿_Workbook_基本操作应用示例
第三章工作簿(Workbook)基本操作应用示例
Workbook对象代表工作簿，而Workbooks集合则包含了当前所有的工作簿。下面对Workbook对象的重要的方法和属性以及其它一些可能涉及到的方法和属性进行示例介绍，同时，后面的示例也深入介绍了一些工作簿对象操作的方法和技巧。
示例03-01:创建工作簿(Add方法）
[示例 03-01-01]
Sub CreateNewWorkbookl ()
MsgBox "将创建一个新工作簿."
Workbooks.Add
End Sub
[示例 03-01-02]
Sub CreateNewWorkbook2()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Long
MsgBox "将创建一个新工作簿，并预设工作表格式."
Set wb = Workbooks.Add
Set ws = wb.Sheets(1)
https://www.360docs.net/doc/b98869478.html, ="产品汇总表"
ws.Cells(1, 1)="序号"
ws.Cells(1, 2)="产品名称"
ws.Cells(1, 3)="产品数量"
For i = 2 To 10
ws.Cells(i, 1) = i -1
Next i
End Sub
示例03-02:添加并保存新工作簿
Sub AddSaveAsNewWorkbook()
Dim Wk As Workbook
Set Wk = Workbooks.Add
Application.Disp丨ayAlerts = False
Wk.SaveAs Filename:="D:/SalesData.xls"
End Sub
示例说明：本示例使用了 Add方法和SaveAs方法，添加一个新工作簿并将该工作簿以文
件名SalesData.xls保存在D盘中。其中，语句Application.Disp丨ayAlerts = False表示禁止弹出警告对话框。
示例03-03:打开工作簿(Open方法）
[示例 03-03-01]
Sub openWorkbook1()
Workbooks.Open "<需打开文件的路径>\<文件名>"
End Sub
示例说明：代码中的<>里的内容需用所需打开的文件的路径及文件名代替。Open方法共有15个参数，其中参数FileName为必需的参数，其余参数可选。
[示例 03-03-02]
Sub openWorkbook2()
Dim fname As String
MsgBox "将D盘中的<测试.xls>工作簿以只读方式打开"
fname = "D:\测试.xls"
Workbooks.Open Filename:=fname, ReadOnly:=True
End Sub
示例03-04:将文本文件导入工作簿中(OpenText方法）
Sub TextToWorkbook()
'本示例打开某文本文件并将制表符作为分隔符对此文件进行分列处理转换成为工作表Workbooks.O p e n T e x t F i l e n a m e:="<文本文件所在的路径>/<文本文件名>",_ DataType:=xlDelimited, Tab:=True
End Sub
示例说明：代码中的<>里的内容需用所载入的文本文件所在路径及文件名代替。OpenText 方法的作用是导入一个文本文件，并将其作为包含单个工作表的工作簿进行分列处理，然后在此工作表中放入经过分列处理的文本文件数据。该方法共有18个参数，其中参数FileName为必需的参数，其余参数可选。
示例03-05：保存工作簿(Save方法）
[示例 03-05-01]
Sub SaveWorkbook()
MsgBox "保存当前工作簿."
ActiveWorkbook.Save
End Sub
[示例 03-05-02]
Sub SaveA丨丨Workbook1 ()
Dim wb As Workbook
MsgBox "保存所有打开的工作簿后退出Excel."
For Each wb In Application.Workbooks
wb.Save
Next wb
Application.Quit
End Sub
[示例 03-05-03]
Sub SaveAllWorkbook2()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Path <> …'Then wb.Save
Next wb
End Sub
示例说明：本示例保存原来已存在且已打开的工作簿。
示例03-06：保存工作簿(SaveAs方法）
[示例 03-06-01]
Sub SaveWorkbook1()
MsgBox "将工作簿以指定名保存在默认文件夹中."
ActiveWorkbook.SaveAs "<工作簿名 >.xls"
End Sub
示例说明：SaveAs方法相当于“另存为......”命令，以指定名称保存工作簿。该方法有12
个参数，均为可选参数。如果未指定保存的路径，那么将在默认文件夹中保存该工作簿。如果文件夹中该工作簿名已存在，则提示是否替换原工作簿。
[示例 03-06-02]
Sub SaveWorkbook2()
Dim oldName As String, newName As String
Dim folderName As String, fname As String
oldName = https://www.360docs.net/doc/b98869478.html,
newName = "new" & oldName
MsgBox "将<"&o l d N a m e&“>以<“& newName & ">的名称保存"
folderName = Application.DefaultFilePath
fname = folderName & "\" & newName
ActiveWorkbook.SaveAs fname
End Sub
示例说明：本示例将当前工作簿以一个新名(即new加原名)保存在默认文件夹中。
[示例 03-06-03]
Sub CreateBak1()
MsgBox "保存工作簿并建立备份工作簿"
ActiveWorkbook.SaveAs CreateBackup:=True
End Sub
示例说明：本示例将在当前文件夹中建立工作簿的备份。
[示例 03-06-04]
Sub CreateBak2()
MsgBox "保存工作簿时，若已建立了备份，则将出现包含True的信息框，否则出现False." MsgBox ActiveWorkbook.CreateBackup
End Sub
示例03-07：取得当前打开的工作簿数(Count属性）
Sub WorkbookNum()
MsgBox "当前已打开的工作簿数为:"&C h r(10)&W o r k b o o k s.C o u n t
End Sub
示例03-08：激活工作簿(Activate方法）
[示例 03-08-01]
Sub ActivateWorkbook1 ()
Workbooks("
End Sub
示例说明：Activate方法激活一个工作簿，使该工作簿为当前工作簿。
[示例 03-08-02]
Sub ActivateWorkbook2()
Dim n As Long, i As Long
Dim b As String
MsgBox "依次激活已经打开的工作簿"
n = Workbooks.Count
For i = 1 To n
Workbooks(i).Activate
b = MsgBox("第“& i & "个工作簿被激活，还要继续吗？"，vbYesNo)
If b = vbNo Then Exit Sub
If i = n Then MsgBox "最后一个工作簿已被激活."
Next i
End Sub
示例03-09：保护工作簿(Protect方法）
Sub ProtectWorkbook()
MsgBox "保护工作簿结构,密码为123"
ActiveWorkbook.Protect Password:="123", Structure:=True
MsgBox "保护工作簿窗口,密码为123"
ActiveWorkbook.Protect Password:="123", Windows:=True
MsgBox "保护工作簿结构和窗口,密码为123"
ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=True
End Sub
示例说明：使用Protect方法来保护工作簿，带有三个可选参数，参数Password指明保护工作簿密码，要解除工作簿保护应输入此密码；参数Structure设置为True则保护工作簿结
构，此时不能对工作簿中的工作表进行插入、复制、删除等操作；参数Windows设置为True 则保护工作簿窗口，此时该工作簿右上角的最小化、最大化和关闭按钮消失。
示例03-10：解除工作簿保护(UnProtect方法）
Sub UnprotectWorkbook()
MsgBox "取消工作簿保护"
ActiveWorkbook.Unprotect "123"
End Sub
示例03-11：工作簿的一些通用属性示例
Sub testGenera丨WorkbookInfo()
MsgBox "本工作簿的名称为"& ActiveWorkbook. Name
MsgBox "本工作簿带完整路径的名称为"& ActiveWorkbook.Fu丨丨Name
MsgBox "本工作簿对象的代码名为"& ActiveWorkbook.CodeName
MsgBox "本工作簿的路径为"& ActiveWorkbook. Path
If ActiveWorkbook.ReadOnly Then
MsgBox "本工作簿已经是以只读方式打开"
Else
MsgBox "本工作簿可读写."
End If
If ActiveWorkbook.Saved Then
MsgBox "本工作簿已保存."
Else
MsgBox "本工作簿需要保存."
End If
End Sub
示例03-12：访问工作簿的内置属性(BuNtinDocumentProperties属性）
[示例 03-12-01]
Sub ShowWorkbookProperties()
Dim SaveTime As String
On Error Resume Next
SaveTime = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time").Value
If SaveTime = "“ Then
MsgBox https://www.360docs.net/doc/b98869478.html, & "工作簿未保存."
Else
MsgBox "本工作簿已于"& SaveTime & "保存"，,https://www.360docs.net/doc/b98869478.html,
End If
End Sub
示例说明：在Excel中选择菜单“文件——属性”命令时将会显示一个“属性”对话框，该对话框中包含了当前工作簿的有关信息，可以在VBA中使用BuiltinDocumentProperties属
性访问工作簿的属性。上述示例代码将显示当前工作簿保存时的日期和时间。
[示例 03-12-02]
Sub listWorkbookProperties()
On Error Resume Next
'在名为"工作簿属性"的工作表中添加信息，若该工作表不存在，则新建一个工作表Worksheets("工作簿属性").Activate
If Err.Number <> 0 Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
https://www.360docs.net/doc/b98869478.html, ="工作簿属性"
Else
ActiveSheet.Clear
End If
On Error GoTo 0
ListProperties
End Sub
Sub ListProperties()
Dim i As Long
Cells(1, 1)="名称"
Cells(1, 2)="类型"
Cells(1, 3)="值"
Range("A1:C1").Font.Bold = True
With ActiveWorkbook
For i = 1 To .BuiltinDocumentProperties.Count
With .BuiltinDocumentProperties(i)
Cells(i + 1, 1) = .Name
Select Case .Type
Case msoPropertyTypeBoolean
Cells(i + 1, 2) = "Boolean"
Case msoPropertyTypeDate
Cells(i + 1, 2) = "Date"
Case msoPropertyTypeFloat
Cells(i + 1, 2) = "Float"
Case msoPropertyTypeNumber
Cells(i + 1, 2) = "Number"
Case msoPropertyTypeString
Cells(i + 1, 2) = "string"
End Select
On Error Resume Next
Cells(i + 1, 3) = .Value
On Error GoTo 0
End With
Next i
End With
Range("A:C").Columns.AutoFit
End Sub
示例说明：本示例代码在“工作簿属性”工作表中列出了当前工作簿中的所有内置属性。
示例03-13：测试工作簿中是否包含指定工作表(Sheets属性）
Sub testSheetExists()
MsgBox "测试工作簿中是否存在指定名称的工作表"
Dim b As Boolean
b = 3卜661巳仏13("<指定的工作表名>")
If b = True Then
MsgBox "该工作表存在于工作簿中."
Else
MsgBox "工作簿中没有这个工作表."
End If
End Sub
Private Function SheetExists(sname) As Boolean
Dim x As Object
On Error Resume Next
Set x = ActiveWorkbook.Sheets(sname)
If Err = 0 Then
SheetExists = True
Else
SheetExists = False
End If
End Function
示例03-14：对未打开的工作簿进行重命名(Name方法）
Sub rename()
Name "<工作簿路径>\<旧名称>.xls" As "<工作簿路径>\<新名称>.xls"
End Sub
示例说明：代码中<>中的内容为需要重命名的工作簿所在路径及新旧名称。该方法只是对未打开的文件进行重命名，如果该文件已经打开，使用该方法会提示错误。
示例03-15：设置数字精度(PrecisionAsDisp丨ayed属性）
Sub SetPrecision()
Dim pValue
MsgBox "在当前单元格中输入1/3，并将结果算至小数点后两位"
ActiveCe丨丨.Value = 1 / 3
ActiveCe丨丨.NumberFormatLoca丨="0.00"
pValue = ActiveCe丨丨.Value * 3
MsgBox "当前单元格中的数字乘以3等于：“& pValue
MsgBox "然后，将数值分类设置为[数值]，即单元格中显示的精度"
ActiveWorkbook.PrecisionAsDisplayed = True
pValue = ActiveCe丨丨.Value * 3
MsgBox "此时，当前单元格中的数字乘以3等于：“& pValue & "而不是1" ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
示例说明：PrecisionAsDisplayed属性的值设置为True，则表明采用单元格中所显示的数值进行计算。
示例03-16：删除自定义数字格式(DeleteNumberFormat方法）
Sub DeleteNumberFormat()
MsgBox "从当前工作簿中删除000-00-0000的数字格式"
ActiveWorkbook.De丨eteNumberFormat ("000-00-0000")
End Sub
示例说明：DeleteNumberFormat方法将从指定的工作簿中删除自定义的数字格式。
示例03-17：控制工作簿中图形显示(Disp丨atyDrawingObjects属性）Sub testDraw()
MsgBox "隐藏当前工作簿中的所有图形"
ActiveWorkbook.DisplayDrawingObjects = xlHide
MsgBox "仅显示当前工作簿中所有图形的占位符"
ActiveWorkbook.DisplayDrawingObjects = xlPlaceholders
MsgBox "显示当前工作簿中的所有图形"
ActiveWorkbook.DisplayDrawingObjects = xlDisp丨ayShapes
End Sub
示例说明：本属性作用的对象包括图表和形状。在应用本示例前，应保证工作簿中有图表或形状，以察看效果。
示例03-18：指定名称(Names属性）
Sub testNames()
MsgBox "将当前工作簿中工作表Sheet1内单元格A1命名为myName." https://www.360docs.net/doc/b98869478.html,s.Add Name:="myName", RefersToR1C1 :="=Sheet1 !R1C1"
End Sub
示例说明：对于Workbook对象而言，Names属性返回的集合代表工作簿中的所有名称。示例03-19：检查工作簿的自动恢复功能(Enab丨eAutoRecover属性）Sub UseAutoRecover()
'检查是否工作簿自动恢复功能开启，如果没有则开启该功能
If ActiveWorkbook.EnableAutoRecover = False Then
ActiveWorkbook.EnableAutoRecover = True
MsgBox "刚开启自动恢复功能."
Else
MsgBox “自动恢复功能已开启."
End If
End Sub
示例03-20：设置工作簿密码(Password属性）
Sub UsePassword()
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
wb.Password = InputBox("请输入密码:"）
wb.Close
End Sub
示例说明：Password属性返回或设置工作簿密码，在打开工作簿时必须输入密码。本示例代码运行后，提示设置密码，然后关闭工作簿；再次打开工作簿时，要求输入密码。
示例03-21：返回工作簿用户状态信息(UserStatus属性）
Sub UsePassword()
Dim Users As Variant
Dim Row As Long
Users = https://www.360docs.net/doc/b98869478.html,erStatus
Row = 1
With Workbooks.Add.Sheets(1)
.Cells(Row, 1)="用户名"
.Cells(Row, 2)="日期和时间"
.Cells(Row, 3)="使用方式"
For Row = 1 To UBound(Users, 1)
.Cells(Row + 1, 1) = Users(Row, 1)
.Cells(Row + 1, 2) = Users(Row, 2)
Select Case Users(Row, 3)
Case 1
.Cells(Row + 1, 3).Value ="个人工作簿"
Case 2
.Cells(Row + 1, 3).Value ="共享工作簿"
End Select
Next
End With
Range("A:C").Columns.AutoFit
End Sub
示例说明：示例代码运行后，将创建一个新工作簿并带有用户使用当前工作簿的信息，即用户名、打开的日期和时间及工作簿使用方式。
示例03-22：检查工作簿是否有密码保护(HasPassword属性）
Sub IsPassword()
If ActiveWorkbook.HasPassword = True Then
MsgBox "本工作簿有密码保护，请在管理员处获取密码."
ExcelVBA>>ExcelVBA编程入门范例>>第三章 Workbook对象(fanjy)
Else
MsgBox "本工作簿无密码保护，您可以自由编辑."
End If
End Sub
示例03-23：决定列表边框是否可见(InactiveListBorderVisib丨e属性）
Sub HideListBorders()
MsgBox "隐藏当前工作簿中所有非活动列表的边框."
ActiveWorkbook.InactiveListBorderVisible = False
End Sub
示例03-24：关闭工作簿
[示例 03-24-01]
Sub CloseWorkbook1()
Msgbox“不保存所作的改变而关闭本工作簿”
ActiveWorkbook.Close False
或 ActiveWorkbook.Close SaveChanges:=False
或 ActiveWorkbook.Saved=True
End sub
[示例 03-24-02]
Sub CloseWorkbook2()
Msgbox “保存所作的改变并关闭本工作簿”
ActiveWorkbook.Close True
End sub
[示例 03-24-03]
Sub CloseWorkbook3()
Msgbox “关闭本工作簿。如果工作簿已发生变化，则弹出是否保存更改的对话框。”ActiveWorkbook.Close True
End sub
[示例03-24-04]关闭并保存所有工作簿
Sub CloseA丨丨Workbooks()
Dim Book As Workbook
For Each Book In Workbooks
If https://www.360docs.net/doc/b98869478.html,<>https://www.360docs.net/doc/b98869478.html, Then
Book.Close savechanges:=True
End If
Next Book
ThisWorkbook.Close savechanges:=True
End Sub
[示例03-24-05]关闭工作簿并将它彻底删除
Sub KillMe()
With ThisWorkbook
.Saved = True
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close False
End With
End Sub
[示例03-24-06]关闭所有工作簿，若工作簿已改变则弹出是否保存变化的对话框
Sub closeAllWorkbook()
MsgBox "关闭当前所打开的所有工作簿"
Workbooks.Close
End Sub
<其它一些有关操作工作簿的示例>
示例03-25：创建新的工作簿
Sub testNewWorkbook()
MsgBox "创建一个带有10个工作表的新工作簿"
Dim wb as Workbook
Set wb = NewWorkbook(10)
End Sub
Function NewWorkbook(wsCount As Integer) As Workbook
'创建带有由变量wsCount提定数量工作表的工作簿，工作表数在1至255之间
Dim OriginalWorksheetCount As Long
Set NewWorkbook = Nothing
If wsCount < 1 Or wsCount > 255 Then Exit Function
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Set NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
End Function
示例说明：自定义函数NewWorkbook可以创建最多带有255个工作表的工作簿。本测试示例创建一个带有 10个工作表的新工作簿。
示例03-26：判断工作簿是否存在
Sub testFi丨eExists()
MsgBox "如果文件不存在则用信息框说明，否则打开该文件."
If Not FileExists("C:\文件夹\子文件夹\文件.xls") Then
MsgBox "这个工作簿不存在!"
Else
Workbooks.Open "C:\文件夹\子文件夹\文件.xls"
End If
End Sub
Function FileExists(FullFileName As String) As Boolean
'如果工作簿存在,则返回True
FileExists = Len(Dir(Fu丨丨FileName)) > 0
End Function
示例说明：本示例使用自定义函数FileExists判断工作簿是否存在，若该工作簿已存在，则打开它。代码中，“C:\文件夹\子文件夹\文件.xls”代表工作簿所在的文件夹名、子文件夹名和工作簿文件名。
示例03-27：判断工作簿是否已打开
[示例 03-27-01]
Sub testWorkbookOpen()
MsgBox "如果工作簿未打开，则打开该工作簿."
If Not WorkbookOpen("工作簿名.xls") Then
Workbooks.Open "工作簿名.xls"
End If
End Sub
Function WorkbookOpen(WorkBookName As String) As Boolean
|如果该工作簿已打开则返回真
WorkbookOpen = False
On Error GoTo WorkBookNotOpen
If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
WorkbookOpen = True
MsgBox "该工作簿已打开"
Exit Function
End If
WorkBookNotOpen:
End Function
示例说明：本示例中的函数WorkbookOpen用来判断工作簿是否打开。代码中，“工作簿名.xls”代表所要打开的工作簿名称。
[示例 03-27-02]
Sub testWookbookIFOpen()
Dim wb As String
Dim bwb As Boolean
w b="<要判断的工作簿名称>"
bwb = WorkbookIsOpen(wb)
If bwb = True Then
MsgBox "工作簿"& wb & "已打开."
Else
MsgBox "工作簿"& wb & "未打开."
End If
End Sub
Private Function WorkbookIsOpen(wbname) As Boolean
Dim x As Workbook
On Error Resume Next
Set x = Workbooks(wbname)
If Err = 0 Then
WorkbookIsOpen = True
Else
WorkbookIsOpen = False
End If
End Function
示例03-28：备份工作簿
[示例03-28-01]用与活动工作簿相同的名字但后缀名为.bak备份工作簿
Sub SaveWorkbookBackup()
Dim awb As Workbook, BackupFi丨eName As String, i As Integer, OK As Boolean If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
Set awb = ActiveWorkbook
If awb.Path = "“ Then
Application.Dialogs(xlDialogSaveAs).Show
Else
BackupFi丨eName = awb.Fu丨丨Name
i = 0
While InStr(i + 1, BackupFi丨eName,".") > 0
i = InStr(i + 1, BackupFi丨eName,".")
Wend
If i > 0 Then BackupFi丨eName = Left(BackupFi丨eName, i - 1)
BackupFileName = BackupFileName & ".bak"
OK = False
On Error GoTo NotAbleToSave
With awb
Application.StatusBar ="正在保存工作簿…"
.Save
Application.StatusBar ="正在备份工作簿…"
.SaveCopyAs BackupFileName
OK = True
End With
End If
NotAbleToSave:
Set awb = Nothing
Application.StatusBar = False
If Not OK Then
MsgBox "备份工作簿未保存!", vbExclamation, https://www.360docs.net/doc/b98869478.html,
End If
End Sub
示例说明：在当前工作簿中运行本示例代码后，将以与工作簿相同的名称但后缀名为.bak 备份工作簿，且该备份与当前工作簿在同一文件夹中。其中，使用了工作簿的Fu丨丨Name属性和SaveCopyAs方法。
[示例03-28-02]保存当前工作簿的副本到其它位置备份工作簿
Sub SaveWorkbookBackupToFloppyD()
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
Set awb = ActiveWorkbook
If awb.Path = "“ Then
Application.Dialogs(xlDialogSaveAs).Show
Else
BackupFileName = https://www.360docs.net/doc/b98869478.html,
OK = False
On Error GoTo NotAbleToSave
If Dir("D:\" & BackupFileName) <> "“ Then
Kill "D:\" & BackupFileName
End If
With awb
Application.StatusBar ="正在保存工作簿…"
.Save
Application.StatusBar ="正在备份工作簿…"
.SaveCopyAs "D:\" & BackupFileName
OK = True
End With
End If
NotAbleToSave:
Set awb = Nothing
Application.StatusBar = False
If Not OK Then
MsgBox "备份工作簿未保存!", vbExclamation, https://www.360docs.net/doc/b98869478.html,
End If
End Sub
示例说明：本程序将把当前工作簿进行复制并以与当前工作簿相同的名称保存在D盘中。
其中，使用了 Kill方法来删除已存在的工作簿。
示例03-29：从已关闭的工作簿中取值
[示例 03-29-01]
Sub testGetValuesFromClosedWorkbook()
GetVa丨uesFromAClosedWorkbook "C:", "Book1.xls", "Sheet1", "A1:G20"
End Sub
Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
With ActiveSheet.Range(ce丨丨Range)
.Formu丨aArray = "='" & fPath & "\[" & fName & “]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub
示例说明：本示例包含一个子过程GetVa丨uesFromAClosedWorkbook，用来从已关闭的工作簿中获取数据，主过程testGetVa丨uesFromClosedWorkbook用来传递参数。本示例表示从C盘根目录下的Book1 .xls工作簿的工作表Sheet1中的A1 :G20单元格区域内获取数据，并将其复制到当前工作表相应单元格区域中。
[示例 03-29-02]
Sub ReadDataFromAllWorkbooksInFolder()
Dim FolderName As String, wbName As String, r As Long, cValue As Variant
Dim wbList() As String, wbCount As Integer, i As Integer
FolderName = "C:\文件夹名"
'创建文件夹中工作簿列表
wbCount = 0
wbName = Dir(FolderName & "\" & "*.xls")
While wbName <> "“
wbCount = wbCount + 1
ReDim Preserve wbList(1 To wbCount)
wbList(wbCount) = wbName
wbName = Dir
Wend
If wbCount = 0 Then Exit Sub
'从每个工作簿中获取数据
r = 0
Workbooks.Add
For i = 1 To wbCount
r = r + 1
cValue = GetInfoFromClosedFile(FolderName, wbList(i), "Sheet1", "A1")
Cells(r, 1).Formula = wbList(i)
Cells(r, 2).Formula = cValue
Next i
End Sub
Private Function GetInfoFromClosedFile(ByVal wbPath As String, _
wbName As String, wsName As String, cellRef As String) As Variant
Dim arg As String
GetInfoFromClosedFile ="“
If Right(wbPath, 1) <> "\" Then wbPath = wbPath & "\"
ExcelVBA>>ExcelVBA编程入门范例>>第三章 Workbook对象(fanjy)
If Dir(wbPath & "\" & wbName) = "“ Then Exit Function
arg = "'" & wbPath & "[“ & wbName & “]" & _
wsName & "'!" & Range(cellRef).Address(True, True, xlR1C1)
On Error Resume Next
GetInfoFromClosedFile = ExecuteExcel4Macro(arg)
End Function
示例说明：本示例将读取一个文件夹内所有工作簿中工作表Sheetl上单元格A1中的值到一个新工作簿中。代码中，“C:\文件夹名”代表工作簿所在的文件夹名。
[示例 03-29-03]
Sub GetDataFromClosedWorkbook()
Dim wb As Workbook
Application.ScreenUpdating = False
'以只读方式打开工作簿
Set wb = Workbooks.〇pen("C:\文件夹名\文件.xls", True, True)
With ThisWorkbook.Worksheets("工作表名"）
'从工作簿中读取数据
.Range("A10").Formula = wb.Worksheets("源工作表名").Range("A10").Formula
.Range("A11").Formula = wb.Worksheets("源工作表名").Range("A20").Formula
■Range("A12").Formula = wb.Worksheets("源工作表名").Range("A30").Formula
■Range("A13").Formula = wb.Worksheets("源工作表名").Range("A40").Formula End With
wb.Close False '关闭打开的源数据工作簿且不保存任何变化
Set wb = Nothing '释放内存
Application.ScreenUpdating = True
End Sub
示例说明：在运行程序时，打开所要获取数据的工作簿，当取得数据后再关闭该工作簿。将屏幕更新属性值设置为False，将看不出源数据工作簿是否被打开过。本程序代码中，“C:\ 文件夹名\文件.xls”、"源工作表名"代表工作簿所在的文件夹和工作簿文件名。
By fanjy in 2006-10-23
WORD基本操作
Windows基本操作：学员能熟练掌握Windows操作系统的基本概念、资源管理器的基本使用；相关属性的基本设置、磁盘操作和控制面板中的常规操作。 Word文字处理：学员能熟练掌握文挡编辑；文字、段落格式设置与编排；表格与公式的制作；图文混排；熟悉批注、脚注、尾注、题注及修订标记等的建立；熟悉样式与模板的应用、宏的使用；掌握页面设置与打印输出。 Excel电子表格：学员应掌握Excel的基本概念和基本操作、熟练掌握工作表的编辑和格式化；公式与函数的基本使用；各种图表的操作应用；数据清单的使用与管理；掌握页面设置与打印输出。 PowerPoint演示文稿：创建演示文稿，修改母板，新建模板，设置演示文稿的页面格式：演示文稿的页面设置；设置演示文稿的编排格式；演示文稿的插入设置；动画设置及放映，打包。 1、将默认的输入法去除： 打开选项窗口，点击其中的“编辑”选项卡，去除最下面的“输入法控制处于活动状态”前的对号，点击确定。重新启动word后，就会发现微软拼音不会一起启动了。 2、翻译文字： 先要安装好字典库，连线上网，通过网上资源翻译。选择准备翻译的文字，然后点选word菜单栏“工具”→“信息检索”;界面右边将出现“信息检索”版面。在“搜索”栏选择“翻译”，再在“翻译”栏选择“将”哪国语言“翻译为”哪国语言，结果马上就会显示出来。要快速翻译下一个词，可以按住Alt键不放，然后点选生词。 3、快速显示文档中的图片： 如果一篇word文档中有好多图片，打开后显示比较慢。但我们打开文档时，快速点击“打印预览”按钮，图片就会立刻清晰的显示出来，然后关闭打印预览窗口，所有插入的图片都会快速显示出来了。 4、给图片注解文字： 选定要添加说明的图片，单击鼠标右键，在快捷功能菜单中选“题注”，以打开题注窗口;然后在“标签”栏选择“公式”、“表格”或“图表”;最后在“题注”栏输入注解文字，再点“确定”按钮结束。此时，注解文字会自动显示在图片下方。注解文字可以随时更改，如改变字体大小，或者删除等等。 5、制作水印： word2003具有添加文字和图片两种类型水印的功能，而且能够随意设置大小、位置等等。在word菜单栏点击“格式”→“背景”→“水印”。在“水印”对话框中选择“文字水印”，然后在“文字”栏选择合适的字句，或另外输入文
初中：信息技术 - 中文Excel 97电子表格基本操作(教案)
初中信息技术新课程标准教材信息技术( 2019 — 2020学年度第二学期 ) 学校： 年级： 任课教师： 信息技术教案 / 初中信息技术 编订：XX文讯教育机构
信息技术 - 中文Excel 97电子表格基本操作(教案) 教材简介:本教材主要用途为学习本知识能够调动学生的激情与兴趣，对相关教师和学生创造力的开发有促进作用，对教学效果提升有着积极的影响，本教学设计资料适用于初中信息技术科目, 学习后学生能得到全面的发展和提高。本内容是按照教材的内容进行的编写，可以放心修改调整或直接进行教学使用。 Excle教案 单元备课： 一、教学目的与要求 ⑴了解电子表格软件EXCEL97的功能和特点。 ⑵熟练掌握建立和管理(包括打印)不太复杂的电子表格的基本操作。 ⑶掌握EXCEL97公式和函数的使用。 (4)掌握EXCEL97图表的建立和使用。 ⑸初步掌握管理多工作表的方法。 (6)掌握工作表数据库的排序、筛选、查找、分类汇总和建立数据透视表的操作。 ⑺掌握建立模拟运算表和使用单变量求解的简单数据分析方法。 ⑻培养学生的实际操作能力和利用EXCEL97解决实际问题的能力。 ⑼培养学生对使用计算机的兴趣。
二、教学内容与课时安排 第一节EXCEL97基础知识1课时 第二节EXCEL97的基本操作3+2课时 第三节EXCEL97公式和函数的应用2+1课时 第四节工作表的打印输出0.5+0.5课时 第五节EXCEL97的图表1+1课时 第六节管理多工作表0.5+0.5课时 第七节使用工作表数据库3+2课时 第八节数据分析初步2+1课时 三、重点与难点 1、本章重点： ⑴建立和管理(包括打印)电子表格的基本操作。 ⑵EXCEL97公式和函数的使用。 ⑶EXCEL97图表的建立和使用。 ⑷多工作表的管理。 ⑸工作表数据库的操作。
《excel工作表的基本操作》教学设计
《excel工作表的基本操作》教学设计 【教学目标】 1、掌握工作表的插入、复制、移动、删除方法 2、训练学生自学能力 3、培养学生有计划的学习习惯 【教学重难点】 1、掌握工作表的插入、复制、移动、删除方法 2、训练学生自学能力 【教材分析】本节是科教版第四章第二节《表格信息加工》的第一课时内容。【学生分析】高一年级学生在初中已学会工作表数据的录入与修改的基础上学习本节内容，将学生被分为四个大组，每个大组中，四人一小组团结合作，互帮互助，每个组挑选一个操作较好的做小组长，负责帮助有困难的同学并协助老师上课。 【教学模式与设计】在课前，教师把设计好的EXCEL练习发送到学生机上，课上教师利用大屏幕、Powerpoint课件展示教学内容及操作步骤，教学采用先让学生根据老师给的操作步骤自己操作、后学生反馈演示、教师总结演示等方法完成教学内容。 【课时安排】一课时 【教具】计算机网络教室、投影、广播教学软件 【教学流程】 【课件展示】问候语 一、导入新课 教师：上节课我们已经学会给一张工作表输入数据，并能对工作表进行一些简单的修改，同学们已基本上完成老师布置的任务。这节课我们讲的内容还和输入有关，也许有的同学认为输入这么简单的问题还要再讲吗？用键盘敲就是了！ 其实数据输入里面有很多学问，想又快又准确的输入数据吗？ 学生回答：想知道…… 激发学生的求知欲，使教师乐“教”变成学生乐“学” 广播：打开“演示”工作簿中“课外活动表” 教师：这是大家上节课输入的工作表，大部分同学完成了老师的任务，也有一些同学在输入过程中遇到一些小困难，如有的同学忘记输入第一行的标题了，这该怎么办呢？大家有什么办法能帮助这位同学完成任务吗？ 学生：插入等…… 教师：很好，有的同学已经预习了今天的学习内容，我们今天要学习的内容就是： 【课件展示】：本节课的课题“工作表的基本操作”及本节课主要教学任
WORD的基础知识与基本操作培训
WORD的基础知识与基本操作 沿河第三高级中学 张小华 2017.12.2 WORD简介： WORD是微软公司的Office系列办公软件中的一个组件。它集文字处理，电子表格、传真、电子邮件，HTML和web页面制作功能于一身，让用户能方便地处理文字，图形和数据等。 Word文档的培训目标： 1文档基本编辑技术 2文档版面编排 3文档高级编排技术 第一次课：word文档基本编辑技术： 1、启动与退出 2、认识工作环境 3、文档的基本编辑方法 4、设置字符格式 5、设置段落格式 一、启动与退出： 1．用菜单命令建立 （1）单击“文件 /新建”命令，打开“新建文档”任务窗格。 （2）单击“空白文档”或“ XML 文档”或“网页”或“电子邮件”等按钮，可以新建不同类型的空白文档。 2．用工具栏图标按钮建立 单击“常用”工具栏中“新建空白文档”按钮，可快速建立一个新的空白文档。 3．使用快捷键建立 按压 Ctrl+N 键，将以缺省的模板文件创建一个空白文档。 2..退出 单击WORD主窗口标题栏右侧的关闭按钮 执行菜单命令文件---退出 单击WORD主窗口标题栏左侧的系统控制菜单图标，选择“关闭”命令 二、认识工作环境：
境： 三、文档的基本编辑方法 1. 文本的输入 第一步：启动Word 第二步：选择输入法：用鼠标点击任务栏右端的输入法状态图标，在弹出菜单中用鼠标点击“智能ABC”或其它中文输入法或英文输入； 第三步：用鼠标在白色输入区内任意地方点击一下，出现闪动的黑色竖杠光标“|”； 第四步：开始输入文本； 第五步：当本行打满后，光标将自动转到下一行的开头位置，可继续输入； 第六步：本段输入完毕后，在键盘上敲击一下“Enter”键，即可开始新的段落的输入，直至输入全部文本内容。 1. 文本的输入中文，英文，标点符号 大小写切换：caps lock 特殊符号：shift+数字键 特殊文字：插入/符号或特殊符号 快捷方式介绍： 键盘方向键：上下左右移动 Page Up:插入点上移一页 Page Down:插入点下移一页 Home:从当前位置移动到本行首 End:从当前位置移动到本行末 Ctrl+Home：从当前位置移动到文档首 2. 选定文本 选择任意文本 选择一行文本 选择多行文本 选择一段文本 选择全部文本 鼠标方式：拖动、单击、双击、三击 鼠标和键盘结合的方式：按住Shift键的同时单击鼠标左键，可以选定从原来光标处到单击
Excel工作表的建立和编辑等基本操作
E x c e l工作表的建立和编辑 等基本操作 -标准化文件发布号：（9556-EUATWK-MWUB-WUNN-INNUL-DDQTY-KII
Excel工作表的建立和编辑等基本操作（2课时） 教学目的： 学习excel的使用，初步了解工作表的建立和编辑操作。 教学重点： 工作表的数据输入（包括不同文本、数值、日期等类型，有规律数据的输入，公式的编辑），工作表的格式设置（包括字体、对齐、边框和图案的设置）。 教学难点： 电子表格自动填充和公式编辑、函数应用。 上机任务 2
任务一：建立一个成绩表并简单设置格式 1、运行Excel，创建一个工作簿文件，文件命名为“学生成绩.xls”； 2、在sheet1中输入如下图所示的数据。注意，学号采用自动填充的功能快速输入； 3
3、在第1行上面插入一行，在A1单元格中输入标题“2009级学生入学成绩表”，将A1到I1单元格合并居中，设置标题为黑体、16号字、红色，单元格背景色为浅黄色； 4
4、在学号为“20080008”的记录前插入一行，任意输入数据。 5、删除学号为“20080006”的那一行。 6、将所有学号中的“2008”改为“2009”。 7、运用函数或公式计算出每个学生的“总分、平均分”，填入相应的单元格中。 8、分别在A11和A12单元格输入“最高分”、“最低分”，求出所有学生中各门课程的最高分和最低分，填入相应的单元格中。 9、设置表中各单元格水平居中对齐、垂直居中对齐。 10、设置第1行的行高为30，其余各行行高为16;列宽为“最适合的列宽”。 11、设置平均分列中的数值格式为保留2位小数位数。 5
Word的基本操作教程
Word的基本操作 新建文档 我们讲了Word第一课后，有位朋友和我说用起来太麻烦了，问他怎么个麻烦法，他说，有时要打印几份文件，每打印一份就要退出一次Word重来，所以特别麻烦。其实根本用不着退出Word。你可以在Word里面关掉已经打印出来的文件，然后新建一个文档或者打开另外的文档，同时打开几个文件也可以。 怎么做呢？很简单的，先看新建文档。我们打开Word。Word启动之后自动建立了一个新文档，注意现在标题栏上的文档名称是“文档1.doc”，单击工具栏上的"新建空白文档"按钮，现在我们就又新建了一个空白的文档，它的名字叫做“文档2.doc”。再单击这个按钮，就出现了“文档3”。这是我们新建一个文档最常用的方法。 打开文档 怎么在Word里打开以前存盘的文档呢？我的朋友说他一直都是先退出Word，然后去双击要打开的文件，Word就会自动启动并打开那个文件。 其实打开和新建一样，不用退出Word也可以打开文件，单击工具栏上的“打开”按钮，就可以打开一个“打开文件”对话框。 我们来看看怎么打开D盘“笑话”文件夹中的“笑话.doc”。 单击这个下拉列表框，从弹出的列表中选择“D：”，也就是D盘，现在下面的文件列表中出现的就是D盘的内容了，双击打开这个“笑话”文件夹，列表中就出现了“笑话.doc”文件，选中这个文件，单击“打开”按钮，就打开这个文件了。
保存文档 现在我们来看看保存文档。这次我们讲一点新东西： 打开“另存为”对话框；这里有一个“新建文件夹”按钮，它可是很有用的： 我们平时的文件都是分类存放的，而有时要保存编辑的稿件，觉得放到哪里都不合适，这时我们就可以新建一个文件夹把文件放到里面。单击这个“新建文件夹”按钮，在打开的对话框中输入文件夹的名字“稿件”， 单击“确定”按钮，回到“另存为”对话框；输入文档的名字，单击“保存”按钮，我们就可以把文档保存在新建的文件夹中了。 多文档切换 不过现在就有另一个问题了，现在我们打开了几 个文档，而不是像以前那样只打开一个文档，如果我 们想从现在这个文档切换到另外的一个文档中，该怎 么办呢？一般的办法是使用窗口菜单来切换当前编辑 的文档。 打开窗口菜单，菜单的最下面列出了我们打开的 所有文档，带有对号的是当前编辑的文档，单击“文 档2.doc”，就切换到了“文档2.doc”。当然你也 可以按下ALT+TAB键来切换，这是Word 2000新增的 切换功能。
Excel表格的基本操作常用版
Excel表格的基本操作常用版 目录 一、基本方法7 1.快速选中全部工作表7 2.快速启动E XCEL7 3.快速删除选定区域数据 7 4.给单元格重新命名7 5.在E XCEL中选择整个单元格范围 8 6.快速移动/复制单元格8 7.快速修改单元格式次序 8 8.彻底清除单元格内容8 9.选择单元格9 10.为工作表命名9 11.一次性打开多个工作簿 9 12.快速切换工作簿10 13.选定超级链接文本（微软O FFICE技巧大赛获奖作品）10 14.快速查找10 15.修改默认文件保存路径 10 16.指定打开的文件夹11 17.在多个E XCEL工作簿间快速切换 11 18.快速获取帮助11 19.创建帮助文件的快捷方式11 20.双击单元格某边移动选定单元格12 21.双击单元格某边选取单元格区域12 22.快速选定不连续单元格 12 23.根据条件选择单元格12 24.复制或移动单元格12 25.完全删除E XCEL中的单元格13
26.快速删除空行13 27.回车键的粘贴功能13 28.快速关闭多个文件13 29.选定多个工作表13 30.对多个工作表快速编辑 14 31.移动和复制工作表14 32.工作表的删除14 33.快速选择单元格14 34.快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品）15 35.备份工件簿15 36.自动打开工作簿15 37.快速浏览长工作簿15 38.快速删除工作表中的空行15 39.绘制斜线表头16 40.绘制斜线单元格16 41.每次选定同一单元格16 42.快速查找工作簿17 43.禁止复制隐藏行或列中的数据17 44.制作个性单元格17 二、数据输入和编辑技巧18 1.在一个单元格内输入多个值18 2.增加工作簿的页数18 3.奇特的F4键18 4.将格式化文本导入E XCEL18 5.快速换行19 6.巧变文本为数字19 7.在单元格中输入0值19 8.将数字设为文本格式20 9.快速进行单元格之间的切换（微软O FFICE技巧大赛获奖作品）20
Word的基本操作详解
第五章中文Word2000 第一节使用入门 一、启动Word2000中文版 方法1 [开始][程序][Microsoft Word] 方法2 用鼠标单击“开始”按钮，在打开“开始”菜单后，选择“新建Office文档”或“打开Office文档”（如果我们的计算机上已存有Word文档的话）并单击之。 方法3 如果“Office快捷工具栏”显示在屏幕上，用鼠标单击“Microsoft Word”图标按钮即可启动中文Word2000。 方法4 在桌面上制作一个中文Word2000的快捷键，以后只要用鼠标的左键双击此快捷键，就可以启动中文Word2000。 方法5 在“我的电脑”或“资源管理器”中，双击扩展名为.DOC 的文档。 二、Word2000工作环境 1、W ord2000应用程序窗口的组成 标题栏、菜单栏、工具栏和状态栏。 工具栏的显示与隐藏：[视图][工具栏]，再在级联菜单中，选中要显示的工具栏或取消要隐藏的工具栏即可。 2、W ord2000文档窗口 标题栏、菜单栏、工具栏、标尺、水平、垂直滚动条，状态栏、工作区。 注意：
●在Word2000中的滚动条与常用窗口滚动条的区别。在垂直滚动条中多三个按钮，“选择浏览对象”按钮。在水平滚动条左边有“视图”按钮。 ●文字插入点标志、文件结束标志、段落结束标志： 3、使用菜单和对话框。：快捷菜单 4、帮助功能 1)Office 助手 2)[帮助][目录和索引] 3)屏幕提示:[帮助][这是什么？] 三、创建文档的操作步骤 1.新建文档 2.文字录入：包括文字、符号、图片、公式和艺术字等。要注意的 是：当用户输入文件达到行末时，WORD能自动移到下一行，称为自动换行，而不必按回车键，除非用户想开始新的一段或增加一空行。 3.编辑：用户可在WORD的帮助下进行插入、删除、修改、复制、移 动等操作。（剪贴板） 4.文件格式设置及排版：通过格式设置可以控制文件的外观显示。 例如设置黑体、斜体、下划线、使正文居中、左排等等。在文件中，还可以添加所需的图画与表格，从而将文件修饰得更加美观。 （工具按钮）
Word基本操作全套教案
Word基本操作---文字编辑和页面设置教学设想:通过两个课堂练习，介绍Word软件中文字编辑操作和页面设置。 教学目标:认知目标：1、了解Word软件的操作界面，掌握菜单命令的选择。 2、了解Word中字体的概念，掌握文字编辑方法。 3、了解Word中段落的概念，掌握页面设置方法。 4、尝试在Word文档中插入艺术字和图片。 能力目标：通过课堂练习，使学生回忆Word常用操作并进行练习。 教学重点：对操作练习要求的正确理解，了解Word软件的基础知识。 教学难点:学生对于习题的下载、安装不熟练，对题目的理解模糊。 【教学方法】 演示法、观察法、任务驱动法 本课重实际操作的准确性和熟练性。难点在于对题目要求的准确理解并选择适当的操作步骤，检验自己操作是否正确。 【学法指导】 对于学法指导，主要是（1）在老师的提示下，让学生自己分析问题、解决问题的能力。（2）学生通过练习完成指定的任务，强调对题目要求或考核目标的正确理解。在上课的过程中，要引导学生自己理解习题的要求，不能老师说一步做一步，老师不说自己就不能做。 导言： 教师边演示边进行讲解：同学们！现在让我们来看字处理软件
word2000在实际生活中的应用，如（报纸、书籍、板报）。偏重介绍文字编辑和页面设置方面的知识。 这节课，我们来进一步学习：字处理软件Word——编辑文字、设置页面。 新授课： 1、WORD字处理软件功能 教师边演示边进行讲解：同学们！Word字处理软件不仅可以让我们快捷方便地输入和编写文字，而且可以让我们对文档方便快捷的进行各种编辑和设置。 通过观察后你认为Word2000有哪些主要功能？生……？？ 老师小结：Word具有对文章进行编辑、修改、设置、插入、排版、打印等功能。 今天我们学习Word的主要目的是让大家进一步了解Word的字处理功能。 2、演示教学word3练习 打开WORD文件夹下的weiruan.doc文件，完成下列操作： 1.将文章中所有的“Microsoft”替换为“微软” 2.将页面设置为B5，左边距1.5厘米，右边距1.2厘米 3.在文章右上角插入横排文本框，并输入文字：正当竞争有利于IT 发展！ 3、演示教学word4练习 1、将word文件夹下的n1.doc中全文字体设为宋体、四号字；添加
excel表格的基本操作教案
竭诚为您提供优质文档/双击可除excel表格的基本操作教案 篇一：《excel工作表的基本操作》教学设计 《excel工作表的基本操作》教学设计 【教学目标】 1、掌握工作表的插入、复制、移动、删除方法 2、训练学生自学能力 3、培养学生有计划的学习习惯 【教学重难点】 1、掌握工作表的插入、复制、移动、删除方法 2、训练学生自学能力 【教材分析】本节是科教版第四章第二节《表格信息加工》的第一课时内容。 【学生分析】高一年级学生在初中已学会工作表数据的录入与修改的基础上学习本节内容，将学生被分为四个大组，每个大组中，四人一小组团结合作，互帮互助，每个组挑选一个操作较好的做小组长，负责帮助有困难的同学并协助老师上课。 【教学模式与设计】在课前，教师把设计好的excel练
习发送到学生机上，课上教师利用大屏幕、powerpoint课件展示教学内容及操作步骤，教学采用先让学生根据老师给的操作步骤自己操作、后学生反馈演示、教师总结演示等方法完成教学内容。 【课时安排】一课时 【教具】计算机网络教室、投影、广播教学软件 【教学流程】 【课件展示】问候语 一、导入新课 教师：上节课我们已经学会给一张工作表输入数据，并能对工作表进行一些简单的修改，同学们已基本上完成老师布置的任务。这节课我们讲的内容还和输入有关，也许有的同学认为输入这么简单的问题还要再讲吗？用键盘敲就是了！ 其实数据输入里面有很多学问，想又快又准确的输入数据吗？ 学生回答：想知道…… 激发学生的求知欲，使教师乐“教”变成学生乐“学” 广播：打开“演示”工作簿中“课外活动表” 教师：这是大家上节课输入的工作表，大部分同学完成了老师的任务，也有一些同学在输入过程中遇到一些小困难，如有的同学忘记输入第一行的标题了，这该怎么办呢？大家
excel工作簿与工作表的基本操作讲解
工作簿与工作表的基本操作 （Excel 2010的功能和使用） 目录 一.工作薄的基本操作 (1) 二.工作表的基本操作 (3) 2. 删除工作表 (4) 5. 移动或复制工作表 (5) 三.多窗口的视图控制 (8) 一.工作薄的基本操作 Excel 的工作薄实际上就是保存在磁盘上的工作文件，其基本操作主要包括创建、打开、关闭和保存等。 1. 创建工作簿 创建工作簿一般有以下两种方法： 方法1：创建空白工作簿。默认情况下，启动Excel时系统会自动创建一个基于Normal模板的工作薄，名称默认为“工作簿1.xlsx”。 方法2：使用模板创建工作簿。如果用户已经启动了Excel，在编辑表格的过程中还需要创建一个新的空白工作簿，则可以执行【文件】|【新建】命令，在右侧“可用模板”列表中选择“空白工作簿”，单击“创建”按钮，即可创建一个新的空白工作簿，如图所示。 在联网的情况下，执行【文件】|【新建】命令，在“https://www.360docs.net/doc/b98869478.html, 模板”区域中选择合适的模板，单击“下载”按钮，即可快速创建一个带有格式和内容的工作簿。 2. 打开、关闭与退出工作薄 （1）打开工作薄的方法主要有以下3种： 方法1：双击Excel文档图标。
方法2：启动Excel，单击【文件】选项卡“打开”命令，在弹出的“打开”对话框选择相应的文件即可。 方法3：启动Excel，单击【文件】选项卡“最近所用文件” 命令，右侧的文件列表中显示最近编辑过的Excel工作薄名，单击相应的文件名即可打开。 （2）关闭工作薄 要想只关闭当前工作薄而不影响其他正在打开的Excel文档，可从【文件】选项卡上单击“关闭”按钮。 （3）退出工作薄 要想退出Excel程序，可从【文件】选项卡上单击“退出”按钮，如果有未保存的文档，将会出现提示保存的对话框。 3. 保护工作簿 保护工作簿主要有两种情况：一是防止他人非法打开或对表内数据进行编辑，设置工作簿的打开和修改权限。二是需要限制对工作簿结构和窗口的操作。 （1）限制打开、修改工作簿 可以在保存工作薄文件时为其设置打开或修改密码，以保存数据的安全性，具体操作步骤如下： 步骤1：单击快速访问工具栏中的“保存”按钮，或者从【文件】选项卡上单击“保存”或“另存为”命令，打开“另存为”对话框。 步骤2：依次选择保存位置、保存类型，并输入文件名。 步骤3：单击“另存为”对话框右下方的“工具”按钮，从打开的下拉列表中选择“常规选项”，打开“常规选项”对话框，如图所示。 步骤4：在相应文本框中输入密码，所输入的密码以星号*显示：若设置“打开权限密码”，则打开工作薄文件时需要输入该密码；若设置“修改权限密码”，则对工作薄中的数据进行修改时需要输入改密码；当选中“建议只读”复选框时，在下次打开该文件时会提示可以以只读方式打开。 说明：上述三项可以只设置一项，也可以三项全部设置。如果要取消密码，只需再次进入到“常规选项对话框”中删除密码即可。步骤5：单击“确定”按钮，在随后弹出的“确认密码”对话框中再次输入相同的密码并确定，最后单击“保存”按钮。 说明：一定要牢记自己设置的密码，否则将再不能打开或修改自己的文档，因为Excel不提供取回密码帮助。 （2）限制对工作簿结构和窗口操作 当用户不希望他人对工作簿的结构或窗口进行改变时，可以设置工作簿保护，具体操作步骤如下： 步骤1：打开需要保护的工作簿。 步骤2：在【审阅】|【更改】组中单击“保护工作簿”按钮，弹出“保护结构和窗口”对话框，如图所示。
Word基本操作教程
Word基本操作教程 1、WORD的启动与关闭 启动：开始→程序→MicrosoftWord 关闭：文件→退出、关闭按钮 2、WORD窗口的组成：标题栏、菜单栏、工具栏、文档窗口、状态栏 3、打开或关闭工具栏：“视图”菜单→工具栏→选择工具选项(右击工具栏→选择工具选项) 4、文本的基本制作 1)选择汉字输入法： 方法二：Ctrl+Shift组合键选择 2)中英文切换的方法：Ctrl+空格键或在中文输入时，第一个字母输入v，随后输入的便是英文。 3)汉字输入方法：(智能ABC输入法) 输入完整汉语拼音;例如新世纪：xinshiji 输入词组前一字完整的拼音和后一字的声母;例如信息：xinx。 用数字键选择汉字;第一字词用空格键选择;用“+-”键翻页。 拼音中ǔ用v代替;如女同学：nvtongxue 输入大写的一、二……一○等：io+数字 重复输入：先输入要重复的文字→将插入点移到适当的位置→按F4或CTRL+Y。 4)标点符号的输入：
中西文标点选择：，.和，。 常用标点符号的输入：顿号、—书名号《》—<> 5)关闭软键盘的方法：单击软键盘图标。 6)保存文件：文件→保存(另存为); “常用工具栏”上“保存”按钮。 7)打开文件：文件→打开→查找范围、文件名→打开。 5、上机操作：输入下列文字。 迎着新世纪的曙光，“世界华人学生作文大赛”向我们走来。 第二节文本的基本编辑 教学目的：学习文本编辑的方法，掌握文字段落的设置与修饰。 教学重点：文本编辑的方法;文字的设置与修饰;段落的设置。 教学时间：2课时 教学步骤： 1、文本编辑的方法 插入文字：①用键盘移光标到插入文字处;②在插入文字处单击鼠标光标。 输入特殊符号：①插入→符号;②右键→快捷菜单中“符号” 删除不需要的文字：按Delete键删除光标后面的字符;按Backspace键删除光标前面的字符。 选定一段文字：单击段首选中当前行;双击段首选中当前段;三击段落任意处选中当前段。 移动或复制一段文字 移动：选定文字→剪切→选定目标位置→粘贴(或用鼠标选定直接拖动到目标位置)
Word文档的基本操作
《文档的基本操作》100招技巧 1、即时取消的后台打印 当我们刚刚编辑完一篇文档按了打印命令后，后来又不想打印当前的文档了，那么怎样才能即时取消后台打印任务呢？一般来说，大家在发出打印任务后，程序会自动将打印任务设置为后台打印，同时在状态栏上出现打印机图标，打印机图标旁边的数字显示的是正在打印的页的页码。要想即时取消后台打印任务的话，大家只要用鼠标双击打印机图标就可以了。 2、 2003让文字随文本框大小变化 当我们在用进行文档编辑时，经常需要用文本框来实现一些特殊的应用，比如在文本框中输入文字来达到特殊效果，但有个问题是，当我们在文本框中输入文字并调整了文本框的大小后文字并不会跟着变化。其实我们可让文本框里的文字大小随文本框大小“同步”变化；单击选中该文本框，然后选择“剪切”，再执行菜单“[编辑]—[选择性粘贴]”，在粘贴形式中选择“图片（增强型图元文件）”，现在再拖动文本框看看，是不是可以随意改变文字大小了。 3、 2003/2007快速切换英文大小写
在中输入英文句子时，一般每个单词的第一个字母都是大写，通常的输入方法就是输入第一个字母时就要进行一次大小写切换。这样很麻烦。不妨全部输入小写字符，然后选中所有单词，按一次组合键“3”试试，是不是每个单词的第一个字母都变成了大写？再按一次试试，所有的字母都变成了大写！再按一次，又变了小写。原来，组合键3是个英文大小写切换键，充分利用这个组合键，以后输入英文就方便多了。 4、 2003/2007 表格中“方向键”调整行序 表格编辑时可以使用一些快捷键提高效率，比如“方向键”组合，非常有用，用“上（或下）方向键”能够调整文档中段落的顺序，也可以调整表格中的行序。方法是：将插入点置于要调整行的任意一个单元格内（或行尾段落标记前），按下“”键，然后按上下方向键，按“向上箭头”键可使该行在表格内向上移动，按“向下箭头”键可使该行向下移动。 5、 2003剔除试卷中的选择题答案 如果想在 2003中去掉选择题后括号内已有的答案，可按下面的步骤操作：按“”组合键打开“替换”对话框，在“查找内容”框中输入“（^$）”，在“替换为”框中输入“（）”（括号中间有空格），单击“全部替换”按钮即可。但“$”只能表示一个任意的字母，即以上操作只能剔除单选题中的
(考试课程)Excel2007实用技巧(一)工作表的基础操作
（考试课程）Excel2007实用技巧（一）工作表的基础操作 一、判断题 1. 在Excel 2007中，MAX函数是求最大值的函数。对 3. 在Excel 2007中，网格线是可以隐藏的。对 5. Excel工作表标签上文字的字号是由Windows系统设置决定的，但是更改的话，在Excel 里也是可以完成的。错 12. 在Excel 2007中，在单元格内输入“4/2”和输入“2”是一样的。错 19. 在进行数据有效性操作的时候，数据源的单元格数据删除或者修改后，下拉列表的选项不会跟随变化。错 4. Microsoft Office 2007版本比以往的版本新增了工具提示功能。对 12. Microsoft Office 2007版本的界面与2003版的是有些不同的。对 8. 安装兼容包并不能为旧版本的Excel提供Excel2007新增功能，只能提供打开和编辑文件的功能。错 9. 在进行查找操作之前一定要选择一个数据区域，否则Excel会查找当前工作簿的所有单元格，如果工作簿的内容比较多，就需要很长时间才能查找完毕。对 13. 利用Excel的“数据有效性”功能，创建下拉列表来选择需要输入的数据，可以提高数据输入速度和准确性。对 4. 在Excel 2007中，当在单元格中输入函数或公式时，必须在前面加上“=”号。对 二、单选题 7. (单选题)在Excel 2007中，“图表”组在（）选项卡中。 C. 插入 9. (单选题)在Excel 2007中，（）的数据才能进行加减乘除等运算。 B. 数值 13. (单选题)Excel中，在D列和E列之间插入一列，应选择（）列再操作。 B. E列17. (单选题)在Microsoft Office 2007中，更改工作表的标签颜色很简单，在标签上单击右键，在弹出的菜单中选择（）命令，然后从调色板中选择一种颜色方可。 B. 工作表标签颜色 1. (单选题)在Excel 2007中，要统计最高工资，应选择（）的汇总方式。 D. MAX 5. (单选题)Excel工作表标签上文字的字号是由Windows系统设置决定的，要更改的话，（）。 B. 设置Windows 1. (单选题)在Microsoft Office 2007中，利用（）可以大大节省到功能区去寻找命令的时间。 B. 浮动工具栏 2. (单选题)Microsoft Office 2007版本的界面，把功能区界面改成（）的形式。D. 选项卡5. (单选题)Excel 2007的扩展名是（）。 B. .xlsx 10. (单选题)在Excel 2007中，（）选线卡是不存在的。 B. 文件 13. 在Excel 2007中，“隐藏”功能只能对工作簿隐藏，不能隐藏表格的行或列。错 15. (单选题)Excel 2007中可以把数据表快速变成图片的功能叫做（）。 B. 创建快照 16. (多选题)单元格的数据类型可以是（）。全选 17. (单选题)在Excel 2007中，要为一数增加小数位数，应使用“开始”选项卡（）组中的工具。 B. 数字 19. (多选题)在Excel 2007中，能帮助用户更好的掌握功能区使用的技巧包括（）。全选
Excel2007实用技巧(一)工作表的基础操作
1. 如果直接复制excel表格应用于其他软件（Word、PoewerPoint），会出现主题颜色、样式不一的问题。对 对错 2. (单选题)在Excel 2007中，（）函数是求最大值的函数。B A. COUNT B. MAX C. MIN D. A VERAGE 3. Excel工作表标签上文字的字号是由Windows系统设置决定的，但是更改的话，在Excel 里也是可以完成的。错 对错 4. (单选题)在Excel 2007中，若选定多个不连续的行所用的键是（）。A A. Crtl B. Shift + Ctrl C. Alt D. Shift 5. (单选题)在Excel 2007中，在输入数据的时候，有些连续单元格要输入的数据是有规律的时候，可以采取（）的快捷功能.C A. 剪切粘贴 B. 逐个输入 C. 自动填充 D. 复制粘贴 6. (单选题)Excel操作中，如果将某些单元格抹黑（选中），然后按一下Del键，将删除单元格中的（）。D错A A. 输入内容（数值或公式），保留格式和附注 B. 数据和公式，只保留格式 C. 附注 D. 全部内容（包括格式和附注） 7. (单选题)Microsoft Office 2007版本的界面，把功能区界面改成（）的形式。D A. 窗口 B. 菜单 C. 工具栏 D. 选项卡 8. (多选题)单元格的数据类型可以是（）。ABCD A. 数值型 B. 文本型 C. 日期型 D. 货币型 9. (单选题)在Excel 2007中，要为一数增加小数位数，应使用“开始”选项卡（）组中的工具。 B A. 样式 B. 数字 C. 字体 D. 对齐方式10. 10. (多选题)下面有关单元格的描述中，正确的有（）。CDE错ACDE A. 单元格的边框线是可以改变的 B. 单元格的高度和宽度不能调整 C. 同列单元格的宽度必须相同 D. 同行单元格的高度必须相同 E. 单元格能有底纹 11. 在Excel 2007中，“隐藏”功能只能对工作簿隐藏，不能隐藏表格的行或列。错 对错 12. (单选题)在Excel 2007中，在单元格内输入电话号码025-*******应如何输入（）。A A. ‘025-******* B. “025-******* C. 025-******* D. ^025-******* 13. (单选题)使用Excel 2007时，在编辑菜单中，可以将选定单元格的内容清空，而保留单元格格式信息的是（）。C A. 撤消 B. 剪切 C. 清除 D. 删除 14. (单选题)在Excel 2007中，“图表”组在（）选项卡中。D错B A. 公式 B. 插入 C. 数据 D. 开始 15. 安装兼容包并不能为旧版本的Excel提供Excel2007新增功能，只能提供打开和编辑文件的功能。错 对错 16. (单选题)Excel 2007中可以把数据表快速变成图片的功能叫做（）。D错C A. 创建文件 B. 另存为 C. 创建快照 D. 快速截图 17. (单选题)在Excel 2007中，下列哪个快捷键可以在一个单元格内容换行。D A. Ctrl + Enter B. Enter C. Shift + Enter D. Alt + Enter 18. (多选题)在Excel 2007中，一般情况会显示（）这些选项卡。BCD错ABCD
工作表的基本操作
工作表的基本操作 一、教学目标 1、知识与技能目标: 1. 通过实践操作，掌握数据的插入、复制、移动、删除等操作方法 2. 理解并掌握“删除”与“清除”的区别，体验用Excel解决实际问 题的方法。 2、过程与方法目标: 通过教师设置问题、引导学生分小组合作探讨、汇总多种解决问题方法,培养学生勇于探究、归纳总结的能力. 3、情感态度与价值观目标: 1.小组探究学习,培养学生合作的意识,增强学生集体荣誉感 2.学生在解决问题过程中体验成就感,为自主学习打下良好基础. 二、重点和难点 掌握对工作表的各种操作 三、教学过程 （1）新课导入 在了解窗口时提到了Sheet工作表，这儿怎么又是工作簿，还 有单元格，这三者都有些混了，怎么区分它呢？ 学生思思考回答教师操作并讲解…… 教师问：一个工作表中能有多少个单元格呢？ 单元格、当前单元格、单元格区域怎样区分呢？
学生思思考回答教师操作并讲解…… （2）教学过程 ◆选定单元格 教师：下面请同学们先阅读一下课本第11页到第12页“选定单元格”的内容，并完成第10页“做一做”。 学生阅读课本，操作练习。 教师：如同在Word对文字进行处理时必须选定文字或文字块一样，在Excel中向表格内输入数据，对表格进行编辑、修饰等操作前，也必须先选择操作对象。Excel工作表中有成千上万个单元格，每次只能在当前单元格中输入数据。 教师讲解并演示操作课本第10页“做一做” 第1步：选定单个单元格。将鼠标指针移动到C6单元格上单击，选定C6单元格。 第2步：选定连续的单元格区域。单击选中A2单元格，然后按住shift键单击C8单元格，选定A2到C8的连续单元格区域。
Word基本操作大全
把文字替换成图片 首先把图片复制到剪贴板中，然后打开替换对话框，在“查找内容框中输入将被替换的文字，接着在替换为”框中输入“ “C”（注意：输 入的一定要是半角字符，c要小写），单击替换即可。说明：““的意思就是指令WordXP 以剪贴板中的内容替换“查找内容（框中的内容。按此原理，“八还可替换包括回车符在内的任何可以复制到剪贴板的可视内容，甚至Excel 表格。 三招去掉页眉那条横线 1、在页眉中，在“格式（－“边框和底纹（中设置表格和边框为“无（，应用于“段落（ 2、同上，只是把边框的颜色设置为白色（其实并没有删的，只是看起来没有了，呵呵） 3、在“样式（栏里把“页眉（换成“正文（就行了——强烈推荐！会多出- -（两个横杠）这是用户不愿看到的,又要多出一步作删除-- 解决方法：替换时在前引号前加上一个空格问题就解决了插入日期和时间的快捷键 Alt+Shift+D ：当前日期 Alt+Shift+T ：当前时间 批量转换全角字符为半角字符首先全选。然后格式” T更改大小写”，在对话框中先选中半角”，确定即可
Word 启动参数简介 单击开始-运行”命令，然后输入Word所在路径及参数确定即可运行，如 “C\: PROGRAM FILES \MICROSOFT Office \Office 10\ WINWord.EXE /n ”，这些常用的参数及功能如下： /n ：启动Word 后不创建新的文件。 /a ：禁止插件和通用模板自动启动。 /m :禁止自动执行的宏。 /w ：启动一个新Word 进程，独立与正在运行的Word 进程。 /c :启动Word，然后调用Netmeeting。 /q :不显示启动画面。 另外对于常需用到的参数，我们可以在Word 的快捷图标上单击鼠标右键，然后在“目标”项的路径后加上该参数即可。 快速打开最后编辑的文档如果你希望Word 在启动时能自动打开你上次编辑的文档，可以用简单的宏命令来完成： （1）选择“工具”菜单中的“宏”菜单项，单击“录制新宏”命令打开“录制宏对话框；⑵在录制宏”寸话框中，在宏名”输入框中输入“autoexec,”点击确定”； （3）从菜单中选择“文件”，点击最近打开文件列表中显示的第一个文件名；并“停止录制”。保存退出。下次再启动Word 时，它会自动加载你工作的最后一个文档。
Excel表格的基本操作(精心整理)
Excel表格的基本操作 1、Excel表格的基本操作：Excel单元格的合并 2、Excel表格的基本操作：Excel字符格式设置 3、Excel表格的基本操作：给Excel中的数据添加单位 4、Excel表格的基本操作：Excel大写数字设置 5、Excel表格的基本操作：Excel中文日期格式 6、Excel表格的基本操作：Excel中行列隐藏操作 7、Excel表格的基本操作：Excel表格列宽行高设置 8、Excel表格的基本操作：Excel标题跨列居中 9、Excel表格的基本操作：Excel表格标题重复打印 10、Excel表格的基本操作：给Excel数据表添加页眉页脚 11、Excel表格的基本操作：Excel表格边框设置 12、Excel表格的基本操作：Excel单元格的合并 13、Excel表格的基本操作：Excel字符格式设置 14、Excel表格的基本操作：给Excel中的数据添加单位 15、Excel表格的基本操作：添加数据说明文字 16、Excel表格的基本操作教程：拆分窗口 17、Excel表格的基本操作教程：冻结行列标题 18、Excel表格的基本操作教程：添加多个视图 19、Excel表格的基本操作教程：打印指定页面 20、Excel表格的基本操作教程：设置打印区域
21、ExcelExcel表格的基本操作：“高级筛选” 22、Excel表格的基本操作：Excel 加密文件 23、Excel表格的基本操作：Excel分区域锁定 24、Excel表格的基本操作：共享Excel工作簿 25、Excel表格的基本操作：保护Excel 工作簿 26、Excel表格的基本操作：Excel工作表的移动 27、Excel表格的基本操作：Excel工作表的复制 28、Excel表格的基本操作：锁定和隐藏Excel公式 29、Excel表格的基本操作教程：加载“宏” 30、Excel表格的基本操作教程：保存“加载宏” 31、Excel表格的基本操作教程：按钮调用“宏” 32、Excel表格的基本操作教程：用窗体调用“宏” 33、Excel表格的基本操作教程：直接编辑“宏” 34、Excel表格的基本操作教程：运行“宏” 35、Excel表格的基本操作：在Excel中录制“宏” 36、Excel表格的基本操作：Excel中设置数据对齐方式 37、Excel表格的基本操作：Excel中特殊符号的输入 38、Excel表格的基本操作：Excel自定输入数据下拉列表 39、Excel表格的基本操作：Excel数据输入范围控制 40、Excel表格的基本操作：Excel正确输入身份证号码 41、Excel表格的基本操作：Excel自定义自动填充序列 42、Excel表格的基本操作：Excel内置序列批量填充
工作簿基本操作
第2章工作簿基本操作 本章先介绍Excel的基本信息表结构——单元格、工作表、工作簿和工作范围。然后介绍如何输入中英文文字、标点符号和其他各种文本。最后介绍怎样建立一张表格并且保存，以及如何打开已建立的表格和关闭表格。 2.1 Excel基本对象 Excel基本对象包括单元格、工作表、工作簿和工作范围，以下就分别对它们进行介绍。 2.1.1单元格 单元格可以说是Excel工作簿的基本对象的核心，也是Excel工作簿组成的最小单位。 图中的白色长方格就是单元格。单元格可以记录简单的字符或者数据，从Excel97/2000开始，就可以记录多达32000个字符的信息。在Excel的操作中，一个单元格内记录信息的长短并不重要，关键的是以单元格作为整体进行操作。实际上，单元格的长度、宽度及单元格内字符串的大小类型是可以根据你的需要进行改变的。 单元格可以通过位置标识，每一个单元格均有对应的列号（列标）和行号（行标）。一般来说，B2、C4、D6等就是相应的单元格位置，你可以向上找到列号字母，再向左找到行号数字，将他们合在一起就可以作为该单元格的标识。 2.1.2 工作表 使用工作表可以对数据进行组织和分析。可以同时在多张工作表上输入并编辑数据，并且可以对来自不同工作表的数据进行汇总计算。在创建图表之后，既可以将其置于源数据所在的工作表上，也可以放置在单独的图表工作表上。工作表由单元格组成，纵向为列，分别以字母命名（A，B，C，····），横向为行，分别以数字命名（1，2，3，····）。 工作表的名称显示于工作簿窗口底部的工作表标签上。要从一个工作表移动到另一工作表进行编辑，可以单击工作表标签。活动工作表的名称以单下划线显示。可以在同一工作簿内或两个工作簿之间对工作表进行改名、添加、删除、移动或复制操作。 每张工作表均有一个工作表标签与之对应，标签上的内容就是工作表的名字。一张工作表最多可以有65536行256列数据。江鼠标移到工作表中某一单元格上，单击鼠标左键，该单元格边框将变为粗黑线，表示该单元格贝选中，在工作表中选定单元格后就可以输入字符串、数字、公式、图表等信息了。 2.1.3 工作簿 Excel工作簿是计算和储存数据的文件，每一个工作簿都可以包含多张工作表，因此可在单个文件中管理各种类型的相关信息。 在工作簿中，要切换到相应的工作表，只需要用鼠标单击工作表名字标签，相应的工作表就会成为当前工作表，而其他工作表就隐藏起来。如果想要在屏幕上同时看到一个工作簿的多个工作表，，只需打开该工作簿并且显示其中一个工作表，然后执行以下操作步骤： （1）单击“窗口”菜单，再单击“新建窗口”选项； （2）单击“窗口”菜单，在下拉菜单中单击“重排窗口”选项； （3）将出现“重排窗口”对话框，选择“平铺”选项，单击“确定”按钮。 这样就可以看到工作簿1的Sheet1和Sheet2工作表。 一个工作簿包含工作表多少可以根据自己的需要决定，具体修改步骤如下： （1）单击“工具”菜单，在出现的下拉菜单中单击“选项”菜单项； （2）出现“选项”对话框，单击“常规”选项卡。 （3）修改“新工作簿内的工作表数”后面输入框中的数字，然后单击“确定”按钮。 注意：设置了工作簿内的工作表数后，以后新建的工作簿就采用新的工作表数目，当前工作簿的工作表数并不改变，而且事实上一个工作簿中的工作表可以任意增加和删减，上述方法只是用来设置新建工作簿中的工作表数目。 2.1.4 工作范围 在Excel中的范围是指选定的单元格，它们可以是连续的，也可以是离散的。如果选定一个范围以后再进行操作，则这些操作将作用于该范围内的所有单元格。例如，可以将一个范围内的单元格一起设定大小、边框、注释。当然，范围是由你选定的，它可以是只有一个单元格，也可以使许多单元格，甚至是整个工作表和整个工作簿。