第一篇：Vb操作excel的命令（范文模版）
用VB操作Excel的办法
[日期：2008-11-23]
来源：
作者：
[字体：大 中
小] 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(objExl.Sheets.Count).Name = “book1” '修改工作薄名称
objExl.Sheets.Add , objExl.Sheets(“book1”)'增加第二个工作薄在第一个之后
objExl.Sheets(objExl.Sheets.Count).Name = “book2”
objExl.Sheets.Add , objExl.Sheets(“book2”)'增加第三个工作薄在第二个之后
objExl.Sheets(objExl.Sheets.Count).Name = “book3”
objExl.Sheets(“book1”).Select
'选中工作薄
For i = 1 To 50
'循环写入数据
For j = 1 To 5
If i = 1 Then
objExl.Selection.NumberFormatLocal = “@” '设置格式为文本
objExl.Cells(i, j)= “ E ” & i & j
Else
objExl.Cells(i, j)= i & j
End If
Next
Next
objExl.Rows(“1:1”).Select
'选中第一行
objExl.Selection.Font.Bold = True '设为粗体
objExl.Selection.Font.Size = 24
'设置字体大小
objExl.Cells.EntireColumn.AutoFit '自动调整列宽
objExl.ActiveWindow.SplitRow = 1 '拆分第一行
objExl.ActiveWindow.SplitColumn = 0 '拆分列
objExl.ActiveWindow.FreezePanes = True '固定拆分
objExl.ActiveSheet.PageSetup.PrintTitleRows = “$1:$1” '设置打印固定行
objExl.ActiveSheet.PageSetup.PrintTitleColumns = “"
'打印标题
objExl.ActiveSheet.PageSetup.RightFooter = ”打印时间: “ & _
Format(Now, ”yyyy年mm月dd日 hh:MM:ss“)
objExl.ActiveWindow.View = xlPageBreakPreview
'设置显示方式
objExl.ActiveWindow.Zoom = 100
'设置显示大小
'给工作表加密码
objExl.ActiveSheet.Protect ”123“, DrawingObjects:=True, _
Contents:=True, Scenarios:=True
objExl.Application.IgnoreRemoteRequests = False
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
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
全面控制 Excel
首先创建 Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application
1)显示当前窗口：ExcelID.Visible := True;
2)更改 Excel 标题栏：ExcelID.Caption := '应用程序调用 Microsoft Excel';
3)添加新工作簿：ExcelID.WorkBooks.Add;
4)打开已存在的工作簿：ExcelID.WorkBooks.Open('C:ExcelDemo.xls');
5)设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate;或 ExcelID.WorkSheets[ 'Sheet2' ].Activate;
6)给单元格赋值：ExcelID.Cells[1,4].Value := '第一行第四列';
7)设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;
8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035;// 1厘米
9)在第8行之前插入分页符：
ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;
10)在第8列之前删除分页符：
ExcelID.ActiveSheet.Columns[4].PageBreak := 0;
11)指定边框线宽度：
ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左
2-右
3-顶
4-底
5-斜()
6-斜(/)
12)清除第一行第四列单元格公式：ExcelID.ActiveSheet.Cells[1,4].ClearContents;
13)设置第一行字体属性：
ExcelID.ActiveSheet.Rows[1].Font.Name := '隶书';ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;ExcelID.ActiveSheet.Rows[1].Font.Bold := True;ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;
14)进行页面设置：
a.页眉：ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示';b.页脚：ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页';c.页眉到顶端边距2cm：ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;d.页脚到底端边距3cm：ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;e.顶边距2cm：ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;f.底边距2cm：ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;g.左边距2cm：ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;h.右边距2cm：ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;i.页面水平居中：ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;j.页面垂直居中：ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;k.打印单元格网线：ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;
15)拷贝操作：
a.拷贝整个工作表：ExcelID.ActiveSheet.Used.Range.Copy;b.拷贝指定区域：ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;c.从A1位置开始粘贴：ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;d.从文件尾部开始粘贴：ExcelID.ActiveSheet.Range.PasteSpecial;
16)插入一行或一列：
a.ExcelID.ActiveSheet.Rows[2].Insert;
b.ExcelID.ActiveSheet.Columns[1].Insert;
17)删除一行或一列：
a.ExcelID.ActiveSheet.Rows[2].Delete;
b.ExcelID.ActiveSheet.Columns[1].Delete;
18)打印预览工作表：
ExcelID.ActiveSheet.PrintPreview;
19)打印输出工作表：
ExcelID.ActiveSheet.PrintOut;
20)工作表保存：
If not ExcelID.ActiveWorkBook.Saved then
ExcelID.ActiveSheet.PrintPreview
End if
21)工作表另存为：
ExcelID.SaveAs('C:ExcelDemo1.xls');22)放弃存盘：
ExcelID.ActiveWorkBook.Saved := True;
23)关闭工作簿：
ExcelID.WorkBooks.Close;
24)退出 Excel：ExcelID.Quit;
25)设置工作表密码: ExcelID.ActiveSheet.Protect ”123“, DrawingObjects:=True, Contents:=True, Scenarios:=True
26)EXCEL的显示方式为最大化
ExcelID.Application.WindowState = xlMaximized
27)工作薄显示方式为最大化
ExcelID.ActiveWindow.WindowState = xlMaximized
28)设置打开默认工作薄数量
ExcelID.SheetsInNewWorkbook = 3
29)'关闭时是否提示保存(true 保存；false 不保存)ExcelID.DisplayAlerts = False
30)设置拆分窗口,及固定行位置 ExcelID.ActiveWindow.SplitRow = 1 ExcelID.ActiveWindow.FreezePanes = True
31)设置打印时固定打印内容
ExcelID.ActiveSheet.PageSetup.PrintTitleRows = ”$1:$1“
32)设置打印标题
ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = ”"
33)设置显示方式(分页方式显示)ExcelID.ActiveWindow.View = xlPageBreakPreview
34)设置显示比例
ExcelID.ActiveWindow.Zoom = 100
35)让Excel 响应 DDE 请求
Ex.Application.IgnoreRemoteRequests = False
Vb操作excel的命令
1．创建Excel对象
eole=CREATEOBJECT(′Excel.application′)
2．添加新工作簿
eole.Workbooks.add
3．设置第3个工作表为激活工作表
eole.Worksheets(″sheet3″).Activate
4．打开指定工作簿
eole.Workbooks.Open(″c:templl.xls″)
5．显示Excel窗口
eole.visible=.t.6．更改Excel标题栏
eole.Caption=″VFP应用程序调用Microsoft Excel″
7．给单元格赋值
eole.cells(1,4).value=XM(XM为数据库字段名)
8．设置指定列的宽度(单位：字符个数)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．设置指定行的高度(单位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(设定行高为1厘米，1磅=0.035厘米)
10．在第18行之前插入分页符
eole.Worksheets(″Sheet1″).Rows(18).PageBreak=1
11．在第4列之前删除分页符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定边框线宽度(Borders参数如下)
ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3
13．设置四个边框线条的类型
eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1
(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)
14．设置页眉
eole.ActiveSheet.PageSetup.CenterHeader=″报表1″
15．设置页脚
eole.ActiveSheet.PageSetup.CenterFooter=″第＆P页″
16．设置页眉到顶端边距为2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．设置页脚到底边距为3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．设置顶边距为2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．设置底边距为4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．设置左边距为2厘米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．设置右边距为2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．设置页面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.23．设置页面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.24．设置页面纸张大小(1－窄行8511 39－宽行1411)
eole.ActiveSheet.PageSetup.PaperSize=1
25．打印单元格网线
eole.ActiveSheet.PageSetup.PrintGridlines=.t.26．拷贝整个工作表
eole.ActiveSheet.UsedRange.Copy
27．拷贝指定区域
eole.ActiveSheet.Range(″A1:E2″).Copy
28．粘贴
eole.WorkSheet(″Sheet2″).Range(″A1″).PasteSpecial
29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31．设置字体
eole.ActiveSheet.Cells(2,1).Font.Name=″黑体″
32．设置字体大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33．设置字体为斜体
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.34．设置整列字体为粗体
eole.ActiveSheet.Columns(1).Font.Bold=.t.35．清除单元格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36．打印预览工作表
eole.ActiveSheet.PrintPreview
37．打印输出工作表
eole.ActiveSheet.PrintOut
38．工作表另为
eole.ActiveWorkbook.SaveAs(″c:temp22.xls″)
39．放弃存盘
eole.ActiveWorkbook.saved=.t.40．关闭工作簿
eole.Workbooks.close
41．退出Excel eole.quit
第二篇：UNIX命令操作
UNIX命令操作大全 unix系统操作命令大全
用户在登录前，首先要向系统管理员申请一个用户注册名，不论用户从哪台计算机登录到ITPNET上都将访问相同的文件系统。
1.1 登录
当屏幕上出现Login提示符时，用户可以输入自己的用户注册名，并按回车键。若有口令，系统将提示用户输入密码，并按回车键，口令输入正确后，用户登录成功。这时，屏幕上会显示出一些信息和命令提示符。如：
Login: guest [Enter] passwd: ****** [Enter] sun% 注: 用户名要用小写字母输入，UNIX系统区分大小写字母。
1.2 退出
当用户准备退出自己的计算机帐号时，可在系统示符下输入logout或exit或按[Ctrl-D]。当屏幕出现Login时，用户可以安全地离开计算机了。如： sun% logout [Enter] Login：
1.3 修改口令
为了防止他人使用自己的帐号，在你首次登录后，请用passwd命令修改只有本人知道的保密口令，口令通常由此可6到8个字母数字组成。如： sun% passwd [Enter] Old Passwd: ****** New Passwd: ****** Retype New Passwd: ****** 注：当你退出系统再次登录时，就要使用新的口令。
第二章 目录操作命令
2.1 显示目录
命令：pwd（print working directory）
格式：pwd 功能：显示出用户当前工作目录的全路径名。
例如：% pwd
2.2 建立目录
命令：mkdir（make directory）
格式：mkdir directory_name 功能：建立新目录
例如：% mkdir directory
2.3 改变目录
命令：cd（change directory）
格式：cd directory_name 功能：改变当前工作目录
注释：目录名选项有:
(1)目录名，转到当前目录下的子目录。
(2)..表示转到当前目录的父目录。
(3)/ 表示转到根目录。
(4)没有选项时，转到用户的主目录。
例如：% cd directory
2.4 删除目录
命令：rmdir(remove directory)格式：rmdir directory_name 功能：删除不存在文件的子目录名。
注释：
(1)删除子目录时，要求被删除的目录中不存在文件或子目录，否则无法删除。
(2)若被删除的目录中有文件或子目录，请参考命令rm-r directory_name。
例如：% rmdir directory
第三章 文件操作命令
3.1 列出文件目录 命令：ls(list)格式：ls [option] directory_name 功能：列出指定目录中的文件名和子目录名。当无子目录名时，列出当前目录 中的文件名和子目录名。
选项：-a列出所有文件，包括以点开头的隐含文件。
-l按长格式列出文件名，包括文件类型标识，权限，链接数，文件主名，文件组名，字节数，日期。-r列出包括子目录下所有文件-g在长格式中给出用户组的标识。-t安文件生成日期排序。例如：% ls-la
3.2 显示文件内容 命令：cat(catenae)格式：cat filename 功能：显示出文件的内容。
注释：当文件内容在屏幕上滚动显示时，可按Ctrl+S键屏幕滚暂停，按Ctrl+Q 键继续显示。例如：% cat filename
3.3 按屏幕显示文件内容
命令：more 格式：more filename 功能：按屏幕一屏一屏显示出文件内容 选项：
注释：在屏幕显示过程中有功能键。空格键 继续下一屏的输出；回车键 看下 一行的输出；q键 跳出more状态；/字符串 查旬字符串所在处；a键 返 回到上一屏。
例如：% more filename
3.4 分页显示文件内容 命令：pg(page)格式：pg [option] filename 功能：分页显示指定文件的内容。在显示一页文件时，最后一行将显示等待用 户输入指令。可输入的指令有如下选项。
选项：h 显示pg命令中可使用的帮助(help)命令。q 退出pg命令。
[return] 显示下一页正文。1 显示正文的下一行 [Space] 显示下一页 d/[Ctrl-D] 将屏幕滚动半屏。
n 显示pg命令行中说明的下一个文件。p 显示pg命令行中说明的前一个文件。% 显示正文当前页的前面一页。
/pattern 在文件中向前搜索指定的字符模式。?pattern 在文件中向后搜索指定的字符模式。
注释：当pg命令显示到文件的末尾时，显示一个文件结束信息EOF(end of file)。例如：% pg filename
3.5 读文件 命令：view 格式：view filename 功能：只能读出文件内容。
注释：此命令不能对读出的原文件进行写操作。若对原文件进行了修改，可利 用命令“：w newfilename”将修改后的文件写到新文件中。例如：% view filename
3.6 显示文件头部 命令：head 格式：head [option] filename 功能：显示文件的头部
选项：缺省 显示文件的头10行。-i 显示文件的开始 i行。例如：% head filename 3.7 显示文件尾部
命令：tail 格式：tail [option] filename 功能：显示文件的尾部
选项：缺省 显示文件的末10行。-i 显示文件最后 i行。+i 从文件的第i行开始显示。例如：% tail filename
3.8 显示格式化的文件内容 命令：pr(print)格式：pr filename 功能：在屏幕上显示格式化的文件内容，即印出每页66行的文本文件，包括５ 行页头和５行页尾。页头包括两行空行，一行含有文件的时间、文件名 和页号，另外两行为空行。页尾为５行空行。例如：% pr filename
3.9 拷贝文件 命令：cp(copy)格式：cp [option] filename1 filename2 cp [option] filename...directory cp-r directory1 directon2 功能：把一个文件的全部内容拷贝到另一个文件，也可将一个或多个文件拷贝 到另一个目录中。
选项：-i 按提示进行拷贝文件。-p 按原文件日期进行拷贝。-r 对子目录下所有文件进行拷贝。
注释：当filename1拷贝到filename2时，若filename2已经存在，则filename2 的内容将被filename1覆盖。例如：% cp filename1 filename2
3.10移动文件或文件改名 命令：mv(move)格式：mv filename1 filename2 mv filename...direction mv direction1 direction2 功能：改变文件或目录的名子，或把一些文件移到另一目录下。
注释：当filename1更名为filename2时，若filename2已经存在，则filename2 的内容将被filename1覆盖 例如：% mv filename1 filename2
3.11删除文件 命令：rm(remove)格式：rm filename rm-r direction
功能：删除指定的文件或一个目录中的文件。
注释：用-r选项时，将删除指定目录的所用文件，包括目录名。例如：% rm filename
3.12链接文件 命令：ln(link)格式：ln [option] filename linkname ln [option] directory pathname 功能：为文件或目录建立一个链。其中，filename和directory是源文件名和 源目录名；linkname和pathname分别表示与源文件或源目录名相链接的 文件或目录。
选项：-s 为文件或目录建立符号链接。
注释：链接的目地在于，对一个文件或目录赋予两个以上的名字，使其可以出 现在不同的目录中，既可以使文件或目录共享，又可以节省磁盘空间。例如：% ln-s filename linkname
3.13改变文件读取权限 命令：chmod(change mode)格式：chmod {u|g|o|a}{+|-|=}{r|w|x} filename chmod [who][op][mode] directory 功能：改变文件的读写和执行权限。有符号法和八进制数字法。选项：(1)符号法： u(user)表示用户本人。g(group)表示同组用户。o(oher)表示其他用户。a(all)表示所有用户。
+ 用于给予指定用户的许可权限。-用于取消指定用户的许可权限。= 将所许可的权限赋给文件。
r(read)读许可，表示可以拷贝该文件或目录的内容。w(write)写许可，表示可以修改该文件或目录的内容。x(execute)执行许可，表示可以执行该文件或进入目录。(2)八进制数字法：
此方法用三位八进制数作任选项，每位数字分别表示用户本人、同组用 户、其他用户的权限，其中： 4(100)表示可读。2(010)表示可写。1(001)表示可执行。注释：
例如：% chmod a+rx filename 让所有用户可以读和执行文件filename。% chmod go-rx filename 取消同组和其他用户的读和执行文件filename的权限。% chmod 741 filename
让本人可读写执行、同组用户可读、其他用户可执行文件filename。
3.14改变文件所有权 命令：chown(change owner)格式：chown username filename chown-R username directory 功能：改变文件或目录的所有权。
选项：-R 将改变目录中所有文件及目录的拥有者。注释：只有文件的主人和超级用户才能改变文件的所有权。例如：% chown username filename
3.15寻找文件 命令：find 格式：find pathname [option] expression 功能：在所给的路经名下寻找符合表达式相匹配的文件。选项：-name 表示文件名
-user 用户名，选取该用户所属的文件-group 组名，选取该用户组属的文件-mtime n 选取n天内被修改的文件
-newer fn 选取比文件名为fn更晚修改的文件 注释：
例如：% find.-name '*abc*'-print
3.16搜索文件中匹配符 命令：grep 格式：grep [option] pattern filenames 功能：逐行搜索所指定的文件或标准输入，并显示匹配模式的每一行。选项：-v 找出模式失配的行-c 统计匹配行的数量-n 显示匹配模式的每一行 注释：
例如：% ps-aux | grep R
3.17比较文件不同 命令：diff(difference)格式：diff filename1 filename2 功能：显示两文件的不同之处。选项： 注释：
例如：% diff file1 file2
3.18比较文件 命令：cmp(compare)格式：cmp [-l] [-s] filename1 filename2
功能：显示比较两文件不同处的信息 选项：-l 给出两文件不同的字节数-s 不显示两文件的不同处，给出比较结果 注释：
例如：% cmp file1 file2
3.19比较文件共同处 命令：comm(common)格式：comm [-123] filename1 filename2 功能：选择或拒绝比较两文件出现的共同行 选项：-1 不显示第1列-2 不显示第2列-3 不显示第3列
注释：输出三列，第一列表示在file1中出现的行，第二列表示在file2中出现 的行，第三列表示在file1和file2中共同出现的行。例如：% comm file1 file2
3.20排序文件 命令：sort 格式：sort [option] filename 功能：将制定的文件按要求排序 选项：-r 按字母倒排序-n 按数字的值从笑到大排序-r 按当前排序规则逆序排序-f 不区分大小写排序-d 按典型顺序排序
注释：选项缺省时按ascii码顺序排序 例如：% sort-nr file
3.21压缩文件 命令：compress 格式：compress [option] filename 功能：压缩文件。选项：-f 强制压缩-v 压缩时显示压缩百分比 注释：
例如：% comproess files
3.22解缩文件 命令：uncompress zcat 格式：compress [option] filename zcat filename 功能：展开或显示压缩文件。
选项：-c 不改变文件写到标准输出 注释：zcat命令相当于uncompress-c 例如：% uncomproess files.Z
3.23显示文件类型 命令：file 格式：file filename...功能：按文件内容来推测文件类型，如text，ascii，C，executable，core。选项： 注释： 例如：% file *
3.24建立档案文件 命令：tar(tape archive)格式：tar [option] tarfile filename 功能：建立文件的存档或读存档文件。选项：-c 建立一个新的档案文件-x 从档案文件中读取文件-v 显示处理文件的信息
-f 指定档案文件名，缺省时为磁带机即/dev/rmt/0-t 列出存档文件的信息 注释：
例如：% tar cvf tarfile.% tar xvf tarfile % tar tvf tarfile
3.25磁带拷贝文件 命令：dd 格式：dd [option=value] 功能：用磁带机转换或拷贝文件。选项：if=name 指定输入文件名 of=name 指定输出文件名
ibs=n 指定输入文件块大小为n字节（缺省为512字节）obs=n 指定输出文件块大小为n字节（缺省为512字节）注释：
例如：% dd if=filename of=/dev/rmt/0 % dd if=/dev/rmt/0 of=filename ibs=1024
3.26修改文件日期 命令：touch 格式：touch filenae 功能：改变文件的日期，不对文件的内容做改动，若文件不存在则建立新文件。选项：
注释：
例如：% touch file
3.27统计文件字数
命令：wc(word characters)格式：wc [option] filename 功能：统计文件中的文件行数、字数和字符数。选项：-l 统计文件的行数-w 统计文件的字数-c 统计文件的字符数
注释：若缺省文件名则指标准输入 例如：% wc file
3.28检查拼写 命令：spell(spelling)格式：spell [option] filename...功能：检查文件中的拼写错误 选项：-b 按英国拼法检查-v 显示字面上不在拼法字典上的词-x 显示每一个可能合理的词根 注释：
例如：% spell file
第四章 有关状态信息命令
4.1显示当前注册的用户 命令：w 格式：w [option] [username] 功能：显示当前正在使用系统的用户名、注册时间和当前执行的命令。选项：-h 不显示起始行-s 按短格式显示
-l 按长格式显示（缺省设置）注释： 例如：% w
4.2 显示都谁登录到机器上 命令：who 格式：who 功能：显示当前正在系统中的所有用户名字，使用终端设备号，注册时间。例如：% who
4.3 显示当前终端上的用户名 命令：whoami
格式：whoami 功能：显示出当前终端上使用的用户。例如：% whoami
4.4 确定命令位置 命令：whereis 格式：whereis command 功能：确定一个命令的二进制行码、源码及联机手册所在的位置。选项： 注释：
例如：% whereis ls
4.5 查找非标准命令 命令：which 格式：which command 功能：查找非标准命令，即使用别名或系统中标准命令集之外的命令。选项： 注释：
例如：% which ls 4.6 显示日期 命令：date 格式：date 功能：显示或设置日期和时间。选项：
注释：只有超级用户有权设置日期。例如：% date
4.7 显示日历 命令：cal(calendar)格式：cal [month] year 功能：显示某年内指定的日历 选项： 注释：
例如：% cal 1998
4.8 计算命令执行时间 命令：time 格式：time [command] 功能：计算程序或命令在执行其间所用的时间。选项：
注释：计算出的时间为：real是命令在系统驻留的总时间，user是命令消耗CPU 的时间，sys是命令I/O所开销的时间。例如：% time myprog
4.9 查询帐目
命令：acseek(account seek)格式：acseek [-d n] [-m usersname] 功能：查询本月的用户帐目。选项：-d n-m username 注释：若没有选项，则显示本人当月的帐单。例如：% acseek
4.10显示用户标识 命令：id 格式：id [option] [user] 功能：显示用户标识及用户所属的所有组。
选项：-a 显示用户名、用户标识及用户所属的所有组 注释：
例如：% id username
4.11显示主机标识 命令：hostid 格式：hostid 功能：显示主机的唯一标识，是被用来限时软件的使用权限，不可改变。选项： 注释： 例如：% hostid
4.12显示主机名 命令：hostname 格式：hostname 功能：显示或设置主机名。选项：
注释：只有超级用户才能设置主机名。例如：% hostname
4.13显示进程 命令：ps 格式：ps [option] 功能：显示系统中进程的信息。包括进程ID、控制进程终端、执行时间和命令。选项：-a 列出当前系统中所有进程的信息-l 显示一个长列表
-e 显示当前运行的每一个进程信息-f 显示一个完整的列表 注释： 例如：% ps-ef
4.14显示磁盘空间 命令：df(disk free)格式：df [option] 功能：显示磁盘空间的使用情况，包括文件系统安装的目录名、块设备名、总 字节数、已用字节数、剩余字节数占用百分比。选项：-i 显示已用和未用的字节数-k 显示磁盘空间的使用信息 注释： 例如：% df-k
4.15显示文件盘空间 命令：du(disk usage)格式：du [option] [filename] 功能：显示目录或文件所占磁盘空间大小 选项：-a 显示所有文件的大小-s 显示制定目录所占磁盘大小 注释： 例如：% du
4.16显示盘空间限制 命令：quota 格式：quota-v [username] 功能：显示用户的磁盘空间限制和使用情况。包扩盘空间的限额和已使用数，允许建立的节点数限额和使用节点数。选项：-v 查看用户在系统中的盘空间
注释：只有超级用户可以显示任何用户的使用情况，用edquota命令可修改。例如：% quota-v
4.17显示终端选项 命令：stty 格式：stty [option] 功能：显示或设置终端的任选项。选项：-a 显示所有设置情况-g 显示当前设置 注释：
例如：% stty-a
4.18显示终端名 命令：tty 格式：tty 功能：显示终端名 选项： 注释：
例如：% tty
4.19回忆命令 命令：history 格式：history 功能：帮助用户回忆执行过的命令。选项： 注释：
例如：% history
4.20联机帮助手册 命令：man(manual)格式：man command_name 功能：显示参考手册，提供联机帮助信息。选项：
注释：-k 按制定关键字查询有关命令 例如：% man tar
4.21建立别名 命令：alias 格式：alias newname name 功能：用户可以将常用的命令用自己习惯的名称来重新命名。选项： 注释：
例如：% alias dir 'ls-F'
第五章 网络命令
5.1显示网络地址
命令：arp 格式：arp hostname 功能：显示系统当前访问的远程住机名、IP地址和硬件地址。
选项：-a 注释：
例如：% arp-a
5.2 显示用户信息
命令：finger 格式：finger username 功能：显示网上用户使用机器的情况，包括用户何时登录和最后一次注册记录。
选项：
注释：
例如：% finger username
5.3 网上对话
命令：talk 格式：talk username 功能：在网上与另一用户进行对话。
选项：
注释：对话时系统把终端分为上下两部分，上半部显示自己键入信息，下半部
显示对方用户键入的信息。键入delete或Ctrl+C则结束对话。
例如：% talk username
5.4 允许或拒绝接受信息
命令：mesg(message)格式：mesg [n/y] 功能：允许或拒绝其它用户向自己所用的终端发送信息。
选项：n 拒绝其它用户向自己所用的终端写信息
y 允许其它用户向自己所用的终端写信息（缺省值）
注释：
例如：% mesg n
5.5 给其他用户写信息
命令：write 格式：write username [ttyname] 功能：给其他用户的终端写信息。
选项：
注释：若对方没有拒绝，两用户可进行交谈，键入EOF或Ctrl+C则结束对话。
例如：write username
5.6 测试网路
命令：ping 格式：ping hostname 功能：向网络上的主机发送ICMP ECHO REQUEST信息包，检测网络是否畅通。
选项：
注释：被测试的主机名可用IP地址。当丢包率为（100% packet loss)则说明
当前网络不通。
例如：% ping hostsname
5.7 远程shell命令
命令：rsh(remote shell)格式：rsh hostsname command 功能：在本地机执行远程主机的shell命令。
选项：
注释：
例如：% rsh hostname who
5.8 远程考贝文件
命令：rcp(remote copy)格式：rcp [-r] file newfile 功能：拷贝远程主机上的文件。
选项：-r 拷贝目录
注释：
例如：% rcp hostname:/tmp/file.5.9 远程注册
命令：rlogin(remote login)格式：rlogin hostname [-l username] 功能：注册到远程主机上。
选项：-l username 注册到另一用户
注释：要有用户口令才能注册。
例如：% rlogin hostname
5.10 远程登录
命令：telnet 格式：telnet hostname 功能：远程登录到网上其它主机。
选项：
注释：支持不同的操作系统。
例如：% telnet bbs.tsinghua.edu.cn
5.11文件传输
命令：ftp(file transfer program)格式：ftp hostname 功能：网络文件传输及远程操作。
选项：ftp命令：
?/help ftp的联机帮助
open hostname 打开制定的远程机
cd [dirname] 进入远程机的目录
lcd [dirname] 设置本地机的目录
dir/ls 显示远程的目录文件
binary 以二进制方式进行传输
get/mget 从远程机取一个或多个文件
put/mput 向远程机送一个或多个文件
prompt 打开或关闭多个文件传送时的交互提示
close
关闭与远程机的连接 quit 退出ftp 注释：
例如：% ftp hostname
5.12显示到网络主机的路经
命令：traceroute
格式：traceroute hostname 功能：显示本机到达某一网络主机所经的路经和使用的时间。
选项：
注释：
例如：% traceroute hostname
第六章 Mail命令
6.1 发送或接受电子邮件
命令：mail/Mail/mailx 格式：mail username（发送）
mail [option]（接受）
功能：向网上用户发送或接受电子邮件。
选项：-r 邮件按先进先出顺序排序。缺省时为后进先出顺序排序
-q 中断mail后不改变信箱内容
-p 显示mail每份邮件，不显示提示信息
-f 从邮件格式文件中读邮件
注释：mail命令：
? 显示mail帮助命令
h 邮件标题列表
p 显示当前邮件
n 显示下一邮件
r [uers] 给发信人或用户回信
s [file] 将邮件保存到文件中，保存标题信息
w [file] 将邮件写到文件中，不保存标题信息
d [n] 删除当前邮件或第n封邮件
q 将未删除的邮件存入mbox文件，并退出mail
x 所有邮件不作修改，退出mail 例如：% mail-s “Subjet...” username < messages
6.2 显示邮件队列
命令：mailq 格式：mailq 功能：查看正在发送或接收邮件的排队情况。
选项：
注释：此命令一般在系统或网络不同时使用。
例如：% mailq
---------------6.3 邮件操作命令
命令：pine 格式：pine
功能：对自己邮件操作的程序。
选项：
注释：此操作是在菜单提示下进行。
例如：% pine
第七章 运行程序命令
7.1 按时间执行命令
命令：at/batch 格式：at [option] [time] [data] [file] 功能：在制定的时间执行命令或命令文件。
选项：-r 取消以前用at命令提交的作业
-l 显示用at命令提交的所有作业状态和作业号
注释：
例如：at 0030 Jan 20 myfile
7.2 参数回至标准输出
命令：echo 格式：echo [-n] [arguments] 功能：将参数即字符串至标准输出即显示器
选项：-n 不向标准输出回送换行符
注释：
例如：echo *
7.3 复制至文件
命令：tee 格式：tee [option] filename 功能：至标准输出的同时复制至文件
选项：-a 输出时附加到文件中
-i 不理采中断
注释：
例如：% who | tee file
7.4 给程序优先级
命令：nice 格式：nice [-n] command
功能：以低的优先级运行程序或命令。
选项：-n 为优先级0-20从高到低
注释：
例如：nice-5 progame
7.5 终止进程
命令：kill 格式：kill [option] pid 功能：向指定的进程送信号或终止进程。
选项：-9 强行终止进程
-17 将进程挂起
-19 将挂起的进程激活
注释：pid标示进程号，可由ps命令得到。
例如：% kill-9 pid
7.6 进程睡眠
命令：sleep 格式：sleep time 功能：使当前正在执行的进程在规定的时间内处于睡眠。
选项：
注释：time为进程将睡眠的时间，以秒为单位。
例如：% sleep time
7.7 显示作业状态
命令：jobs 格式：jobs [-l] 功能：显示当前作业的状态
选项：-l 长列表显示作业状态，包括所有者、作业号、终端和状态。
注释：作业状态为 +表示最近被停止的作业，-表示先前的作业，exit 1表示
退出的作业，job# done表示已完成的作业。
例如：% jobs
7.8 前台作业
命令：fg 格式：fg job# 功能：将指定作业号的作业转入前台运行。job#表示作业号。
选项：
注释：
例如：% fg job#
7.9 后台作业
命令：bg/& 格式：bg job#
command & 功能：将指定作业号的作业或命令推到后台运行。
选项：
注释：
例如：% bg job#
7.10挂起作业
命令：stop 格式：stop job# 功能：将指定作业号的后台作业挂起.选项：
注释：
例如：% stop job#
第八章 程序编译执行命令
8.1 C程序编译
命令：cc 格式：cc [option] filename 功能：编译或链接指定的C文件。
选项：-o 指定输出文件名，缺省时为a.out
-c 只编译，产生.o的目标文件
-g 产生用于符号测试的执行文件
-lm 进行连接cc数学库
-O 进行代码的一般优化
-O2 二级优化
注释：C编译器参考手册可用命令man cc查看。
例如：% cc-o test test.c
8.2 C++程序编译
命令：CC 格式：CC [option] filename 功能：编译或链接指定的C++文件。
选项：同C编译选项
注释：C++编译器参考手册可用命令man CC查看。
例如：% CC-O2 test.cc
8.3 FORTRAN77程序编译
命令：f77 格式：f77 [option] filename 功能：编译或链接指定的Fortran文件
选项：-o 指定输出文件名，缺省时为a.out
-c 只编译，产生.o的目标文件
-g 产生用于符号测试的执行文件
-O0 不进行代码优化
-O1 尽快进行代码优化-O2 二级优化
-O3 三级优化
注释：FORTRAN77编译器参考手册可用命令man f77查看
例如：% f77-c test.f
8.4 FORTRAN90程序编译
命令：f90
格式：f90 [option] filename 功能：编译或链接指定的Fortran90文件
选项：同FORTRAN77编译选项
注释：FORTRAN90编译器参考手册可用命令man f90查看
例如：% f90-O-o test test.f
8.5 GNU程序编译
命令：gcc(GNU C)
g++/c++(GNU C++)
g77(GNU FORTRAN77)格式：gcc [option] filename
g++ [option] filename
g77 [option] filename 功能：编译或链接指定的编译文件。
选项：-o 指定输出文件名，缺省时为a.out
-c 只编译，产生.o的目标文件
-O 进行代码的一般优化
-O2 二级优化
注释：GNU编译器参考手册可进入emacs中info菜单下查看。
例如：% gcc-o test test.c
8.6 运行文件
格式：a.out
filename 功能：源程序经编译后产生目标代码文件，放在a.out文件或指定输出文件名。Unix常用网络命令大全
1、FTP命令大全及其应用
2、NET命令详解
3、TELNET的命令模式
4、NETSTAT命令
5、NSLOOKUP命令
6、FINGER命令
7、PING命令
8、帮助命令
1、FTP命令大全及其应用
ftp的命令行格式为:ftp －v －d －i －n －g[主机名]
－v 显示远程服务器的所有响应信息。
－d 使用调试方式。
－n 限制ftp的自动登录,即不使用.netrc文件。
－g 取消全局文件名。
ftp使用的内部命令如下(其中括号表示可选项):
1.![cmd[args]]在本地机中执行交互shell、exit回到ftp环境,如!ls＊.zip。
2.￥ macro－ame[args]执行宏定义macro－name。
3.account[password]提供登录远程系统成功后访问系统资源所需的补充口令。
4.appendlocal－file[remote－file]将本地文件追加到远程系统主机,若未指定远程系统文件名,则使用本地文件名。
5.ascii 使用ascii类型传输方式。
6.bell每个命令执行完毕后计算机响铃一次。
7.bin使用二进制文件传输方式。
8.bye退出ftp会话过程。
9.case在使用mget时,将远程主机文件名中的大写转为小写字母。
10.cd remote－dir 进入远程主机目录。
11.cdup进入远程主机目录的父目录。
12.chmod modefile－name将远程主机文件file－name的存取方式设置为mode,如chmod 777 a.out。
13.close中断与远程服务器的ftp会话(与open对应)。
14.cr使用asscii方式传输文件时,将回车换行转换为回行。
15.delete remote－file删除远程主机文件。
16.debug[debug－value]设置调试方式,显示发送至远程主机的每条命令,如debup 3,若 设为0,表示取消debug。
17.dir[remote－dir][local－file]显示远程主机目录,并将结果存入local－file。
18.disconnection同close。
19.form format将文件传输方式设置为format,缺省为file方式。
20.getremote－file[local－file]将远程主机的文件remote－file传至本地硬盘的local－file。
21.glob设置mdelete、mget、mput的文件名扩展,缺省时不扩展文件名,同命令行的－g参数。
22.hash每传输1024字节,显示一个hash符号(＃)。
23.help[cmd]显示ftp内部命令cmd的帮助信息,如help get。
24.idle[seconds]将远程服务器的休眠计时器设为[seconds]秒。
25.image设置二进制传输方式(同binary)
26.lcd[dir]将本地工作目录切换至dir。
27.ls[remote－dir][local－file]显示远程目录remote－dir,并存入本地local－file。
28.macdef macro－name定义一个宏,遇到macdef下的空行时,宏定义结束。
29.mdelete[remote－file]删除远程主机文件。
30.mdir remote－files local－file与dir类似,但可指定多个远程文件,如mdir＊.o.＊.zipoutfile。
31.mget remote－files传输多个远程文件。
32.mkdir dir－name 在远程主机中建一目录。
33.mls remote－file local－file同nlist,但可指定多个文件名。
34.mode[mode－name]将文件传输方式设置为mode－name,缺省为stream方式。
35.modtime file－name显示远程主机文件的最后修改时间。
36.mput local－file将多个文件传输至远程主机。
37.newerfile－name如果远程机中file－name的修改时间比本地硬盘同名文件的时间更近,则重传该文件。
38.nlist[remote－dir][local－file]显示远程主机目录的文件清单,并存入本地硬盘的local－file。
39.nmap[inpatternoutpattern]设置文件名映射机制,使得文件传输时,文件中的某些字符相互转换,如nmap￥1.￥2.￥3[￥1,￥2].[￥2,￥3],则传输文件a1.a2.a3时,文件名变为a1、a2，该命令特别适用于远程主机为非U－NIX机的情况。
40.ntrans[inchars[outchars]]设置文件名字符的翻译机制,如ntrans1R,则文件名LL L将变为RRR。
41.open host[port]建立指定ftp服务器连接,可指定连接端口。
42.passive进入被动传输方式。
43.prompt设置多个文件传输时的交互提示。
44.proxyftp－cmd在次要控制连接中,执行一条ftp命令,该命令允许连接两个ftp服务器,以在两个服务器间传输文件。第一条ftp命令必须为open,以首先建立两个服务器间的连接。
45.put local－file[remote－file]将本地文件local－file传送至远程主机。
46.pwd显示远程主机的当前工作目录。
47.quit同bye,退出ftp会话。
48.quote arg1,arg2......将参数逐字发至远程ftp服务器,如quote syst。
49.recv remote－file[local－file]同get。
50.regetremote－file[local－file]类似于get,但若local－file存在,则从上次传输中断处续传。
51.rhelp[cmd－name]请求获得远程主机的帮助。
52.rstatus[file－name]若未指定文件名,则显示远程主机的状态,否则显示文件状态。
53.rename[from][to]更改远程主机文件名。
54.reset清除回答队列。
55.restart marker从指定的标志marker处,重新开始get或put,如restart 130。
56.rmdir dir－name删除远程主机目录。
57.runique设置文件名唯一性存储,若文件存在,则在原文件后加后缀。
58.send local－file[remote－file]同put。
59.sendport设置PORT命令的使用。
60.site arg1,arg2......将参数作为SITE命令逐字发送至远程ftp主机。
61.size file－name显示远程主机文件大小,如site idle 7200。
62.status显示当前ftp状态。
63.struct[struct－name]将文件传输结构设置为struct－name,缺省时使用stream结构。
64.sunique将远程主机文件名存储设置为唯一(与runique对应)。
65.system显示远程主机的操作系统类型。
66.tenex将文件传输类型设置为TENEX机所需的类型。
67.tick设置传输时的字节计数器。
68.trace设置包跟踪。
69.type[type－name]设置文件传输类型为type－name,缺省为ascii,如typebinary,设置 二进制传输方式。
70.umask[newmask]将远程服务器的缺省umask设置为newmask,如umask 3。
71.useruser－name[password][account]向远程主机表明自己的身份,需要口令时,必须输入口令,如user anonymous my@email。
72.verbose同命令行的－v参数,即设置详尽报告方式,ftp服务器的所有响应都将显示给用户,缺省为on.73.?[cmd]同help。
第三篇：VB教案命令按钮(CommandButton)
（五）命令按钮（CommandButton）
是VB中一个最常用的控件，一般用来接收单击事件，并调用指定的过程以实现程序的进程。
一、命令按钮的属性：
1、Name属性：
2、Caption属性：
3、Enabled属性：
4、Left属性和Top属性：
5、Height属性和Width属性：
6、Default属性：
设置为Ture时为缺省活动按钮（一个窗体只允许一个按钮为缺省活动按钮）按回车即相当于单击。
7、Cancel属性：
设置为True时，按
8、Visible属性：
9、Value属性：（编程用）
设为True 时相当于单击事件。
10、Style属性：
0：表示无图象功能，按钮只能显示文字
1：表示有图象功能，按钮表面可加载图片
11、Picture属性：
为按钮表面添加指定的图片。
12、DownPicture属性：
在按钮按下时为按钮表面添加指定的图片。
13、DisabledPicture属性：
当按钮无效时，为按钮表面添加指定的图片。
14、BackColor属性：
15、ToolTipText属性：
为按钮设置提示文本内容（鼠标指点时显示按钮功能提示）
二、命令按钮的事件和方法：
1、Click事件：
注：命令按钮不支持双击事件
2、MouseDown事件：
3、MouseUp事件：
4、Hide 方法：
5、Show方法：
第四篇：Shell命令文本操作命令小结
Shell命令文件操作命令小结
显示文本文档中某几行： 显示第n行： sed-n 'np' test.txt 或 head-n test.txt |tail-1 显示第m到第n行： sed-n 'm,np' test.txt 或 head-n test.txt | tail-(n-m)显示某一文件夹folder/下所占存储空间： du-sh folder/
删除某文件夹下的特定文件： 例：删除某文件加下的软连接文件 rm-f `ls-l|grep ^l|awk `{print $8}` 返回上次进入的目录：cd-删除一个文本文档中所有内容： 切换到命令行模式 :1,$d
使用rm删除一个目录下的除了ttt以外的所有文件 解决：
1.ls | grep-v ttt | xargsrm {} 2.ls | grep-v ttt | xargsrm 3.mvttt /tmp/ &&rm-rf * && mv /tmp/ttt./ 4.find.-name e-prune-o-print | xargsrm-rf 5.find.-name e-prune-o-name dir-prune-o-print | xargsrm-rf {} 6.删除目录下的除去ttt和目录外所有文件 d=/tjy/ fori in `ls $d`;do if [ $i!= “ttt” ];then
j=`file $d$i | awk '{print $2}'` if [ $j!= “directory” ];then rm-rf $d$i fi fi done
利用shell命令分割文件： 系统运维的过程中，日志文件往往非常大，这样就要求对日志文件进行分割，在此特用shell脚本对文件进行分割 方法一： #!/bin/bash
linenum=`wc-l httperr8007.log| awk '{print $1}'` n1=1 file=1
while [ $n1-lt $linenum ] do n2=`expr $n1 + 999`
sed-n “${n1}, ${n2}p” httperr8007.log > file_$file.log n1=`expr $n2 + 1` file=`expr $file + 1` done 其中httperr8007.log为你想分割的大文件，file_$file.log 为分割后的文件，最后为file_1.log，file_2.log，file_3.log……,分割完后的每个文件只有1000行（参数可以自己设置）方法二： split 参数：
-b ：后面可接欲分割成的档案大小，可加单位，例如 b, k, m 等；-l ：以行数来进行分割； #按每个文件1000行来分割除 split-l 1000 httperr8007.log httperr httpaa，httpab，httpac........#按照每个文件100K来分割 split-b 100k httperr8007.log http httpaa，httpab，httpac........使用alias来自定义命令
还有一个使工作变得轻松的方法是使用命令别名。命令别名通常是其他命令的缩写，用来减少键盘输入。命令格式为: alias ［alias-name=’original-command’］
其中，alias-name是用户给命令取的别名，original-command是原来的命令和参数。需要注意的是，由于Bash是以空格或者回车来识别原来的命令的，所以如果不使用引号就可能导致Bash只截取第一个字，从而出现错误。如果alias命令后面不使用任何参数，则显示当前正在使用的被别名化的命令及其别名。为命令取的别名在该次登录期间始终有效。如果用户需要别名在每次登录时都有效，那么就将alias命令写到初始化脚本文件中。
这是一些很多人认为有用的别名，可以把它们写入初始化脚本文件中来提高工作效率： alias ll=’ls –l’ alias log=’logout’ alias ls=’ls –F’
如果您是一名DOS用户并且习惯了DOS命令，可以用下面的别名定义使 Linux表现得象DOS一样： aliasdir=’ls’ alias copy=’cp’ alias rename=’mv’ alias md=’mkdir’ alias rd=’rmdir’
注意：在定义别名时，等号两边不能有空格，否则shell不能决定您需要做什么。仅在命令中包含空格或特殊字符时才需要引号。如果键入不带任何参数的alias命令，将显示所有已定义的别名。
第五篇：VB操作word总结
请耐心看完：问题出现得较复杂。
我的目的：
将多个文档内容逐一拷贝粘贴到另一文档后面
我的方法：
wordapp=new word.application
Set doc = wordapp.Documents.Add
while
pathTemp = App.Path & “temp.doc”
LoadFile rs(“word”), pathTemp
Set doctemp = wordapp.Documents.Open(pathTemp)
doctemp.Content.Select
wordapp.Selection.copy
Set myRange = doc.Range(Start:=doc.Content.End 缺少参数 3文件不存在 ' '*************************************************************** Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0)As Integer Attribute ReplacePic.VB_Description = “查找FindStr,并替换为PicFile所指向的图片文件,替换次数由time参数确定,为0时，替换所有” '******************************************************************************** '
从Word.Range对象mysel中查找所有FindStr，并替换为PicFile图像 ' 替换次数由time参数确定，为0时，替换所有
'******************************************************************************** If Len(C_PicFile)= 0 Then C_ErrMsg = 2 Exit Function End If Dim i As Integer Dim findtxt As Boolean mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = “".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True)If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True)Loop ReplacePic = i End Function Public Function FindThis(FindStr As String)As Boolean Attribute FindThis.VB_Description = ”查找FindStr,如果模板中有FindStr则返回True“ If Len(FindStr)= 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ”“.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.Execute End Function Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0)As Integer Attribute ReplaceChar.VB_Description = ”查找FindStr,并替换为RepStr,替换次数由time参数确定,为0时，替换所有“ '******************************************************************************** '
从Word.Range对象mysel中查找FindStr，并替换为RepStr ' 替换次数由time参数确定，为0时，替换所有
'******************************************************************************** Dim findtxt As Boolean If Len(FindStr)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With
If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne)If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End If End Function
Public Function GetPic(PicData()As Byte, FileName As String)As Boolean Attribute GetPic.VB_Description = ”把图像数据PicData,存为PicFile指定的文件“ '******************************************************************************** '
把图像数据PicData,存为PicFile指定的文件
'******************************************************************************** On Error Resume Next If Len(FileName)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If Open FileName For Binary As #1 If Err.Number <> 0 Then C_ErrMsg = 3 Exit Function End If '二进制文件用Get,Put存放，读取数据 Put #1, , PicData Close #1 C_PicFile = FileName GetPic = True End Function
Public Sub DeleteToEnd()Attribute DeleteToEnd.VB_Description = ”删除从当前位置到结尾的所有内容“ mysel.EndKey Unit:=wdStory, Extend:=wdExtend mysel.Delete Unit:=wdCharacter, Count:=1 End Sub Public Sub MoveEnd()Attribute MoveEnd.VB_Description = ”光标移动到文档结尾“ '光标移动到文档结尾 mysel.EndKey Unit:=wdStory End Sub Public Sub GotoLine(LineTime As Integer)mysel.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=LineTime, Name:=”“ End Sub Public Sub OpenDoc(view As Boolean)Attribute OpenDoc.VB_Description = ”打开Word文件,View确定是否显示Word界面“ On Error Resume Next '******************************************************************************** '
打开Word文件，并给全局变量mysel赋值
'******************************************************************************** If Len(C_TemplateDoc)= 0 Then mywdapp.Documents.Add Else mywdapp.Documents.Open(C_TemplateDoc)End If If Err.Number <> 0 Then C_ErrMsg = 4 RaiseEvent HaveError Exit Sub End If
mywdapp.Visible = view mywdapp.Activate Set mysel = mywdapp.Application.Selection 'mysel.Select
End Sub Public Sub OpenWord()On Error Resume Next '******************************************************************************** '
打开Word程序，并给全局变量mywdapp赋值
'******************************************************************************** Set mywdapp = CreateObject(”word.application“)If Err.Number <> 0 Then C_ErrMsg = 1 RaiseEvent HaveError Exit Sub End If End Sub Public Sub ViewDoc()Attribute ViewDoc.VB_Description = ”显示Word程序界面“ mywdapp.Visible = True End Sub Public Sub AddNewPage()Attribute AddNewPage.VB_Description = ”插入分页符“ mysel.InsertBreak Type:=wdPageBreak End Sub Public Sub WordCut()Attribute WordCut.VB_Description = ”剪切模板所有内容到剪切板“ '保存模板页面内容 mysel.WholeStory mysel.Cut mysel.HomeKey Unit:=wdStory End Sub Public Sub WordCopy()Attribute WordCopy.VB_Description = ”拷贝模板所有内容到剪切板“ mysel.WholeStory mysel.Copy mysel.HomeKey Unit:=wdStory End Sub Public Sub WordDel()mysel.WholeStory mysel.Delete mysel.HomeKey Unit:=wdStory End Sub Public Sub WordPaste()Attribute WordPaste.VB_Description = ”拷贝剪切板内容到当前位置“ '插入模块内容 mysel.Paste End Sub Public Sub CloseDoc()Attribute CloseDoc.VB_Description = ”关闭Word文件模板“ '******************************************************************************** '
关闭Word文件模本 '******************************************************************************** On Error Resume Next
mywdapp.ActiveDocument.Close False If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub End If End Sub Public Sub QuitWord()'******************************************************************************** '
关闭Word程序
'******************************************************************************** On Error Resume Next mywdapp.Quit
If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub End If End Sub Public Sub SavetoDoc()Attribute SavetoDoc.VB_Description = ”保存当前文档为FileName指定文件“ On Error Resume Next '并另存为文件FileName If Len(C_newDoc)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Sub End If mywdapp.ActiveDocument.SaveAs(C_newDoc)
If Err.Number <> 0 Then C_ErrMsg = 3 RaiseEvent HaveError Exit Sub End If End Sub
Public Property Get TemplateDoc()As String Attribute TemplateDoc.VB_Description = ”模板文件名.“ TemplateDoc = C_TemplateDoc End Property Public Property Let TemplateDoc(ByVal vNewValue As String)C_TemplateDoc = vNewValue End Property Public Property Get newdoc()As String Attribute newdoc.VB_Description = ”执行CloseDoc方法时，将模板文件另存为此文件名指定的新文件.如果不指定，在执行CloseDoc方法时，将产生一个错误“ newdoc = C_newDoc End Property Public Property Let newdoc(ByVal vNewValue As String)C_newDoc = vNewValue End Property Public Property Get PicFile()As String Attribute PicFile.VB_Description = ”图像文件名“ PicFile = C_PicFile End Property Public Property Let PicFile(ByVal vNewValue As String)C_PicFile = vNewValue End Property Public Property Get ErrMsg()As Integer Attribute ErrMsg.VB_Description = ”错误信息.ErrMsg代码: 1-word没有安装 2-缺少参数 3-没权限写文件 4-文件不存在“ ErrMsg = C_ErrMsg End Property 请问如何正确杀掉word进程？
楼主btl19792008（btl19792008）2005-11-04 17:05:03 在 VB / 数据库(包含打印，安装，报表)提问 我的word程序运行几次，在资源管理器中就会出现很多word进程。
我的代码写的不对吗？
代码如下：
Dim appTemplate As Word.Application
Dim docTemplate As Word.Document
Set appTemplate = GetObject(, ”Word.Application“)
If Err.Number = 429 Then
Set appTemplate = New Word.Application
End If
Set docTemplate = Nothing
Set appTemplate = Nothing
问题点数：100、回复次数：9Top 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2005-11-04 17:31:33 得分 0 markTop 楼province_（雍昊）回复于 2005-11-04 18:03:37 得分 0 要先QUIT再NOTHING。Top 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-04 19:21:30 得分 0
'引用Microsoft Word X.0 Object Library
Private Sub Command1_Click()
On Error GoTo connecterr
Dim wordApp As Object
Set wordApp = CreateObject(”word.application“)
wordApp.Visible = True
Dim myDoc As Object
Set myDoc = wordApp.Documents.Open(”c:Test.dot“)
wordApp.selection.TypeText(” Hello“)
myDoc.Close '关闭
wordApp.Quit
'退出
Set myDoc = Nothing
Set wordApp = Nothing
Exit Sub
connecterr:
End Sub
Top 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-04 19:24:16 得分 0 Dim appTemplate As Word.Application
Dim docTemplate As Word.Document
Set appTemplate = GetObject(, ”Word.Application“)
If Err.Number = 429 Then
Set appTemplate = New Word.Application
End If
'**************
docTemplate.Close
appTemplate.Quit
'**************
Set docTemplate = Nothing
Set appTemplate = NothingTop 楼rainstormmaster（暴风雨 v2.0）回复于 2005-11-06 11:01:27 得分 0 没有office没法测试，不过我想你可以参考一下这个：
http://blog.joycode.com/mvm/archive/2004/04/25/20208.aspxTop 6 楼ahlegend（爱之传奇）回复于 2005-11-06 20:51:45 得分 0 QuitTop 楼szjhxu（天野）回复于 2005-11-06 22:01:48 得分 0 Dim appTemplate As Word.Application
Dim docTemplate As Word.Document
Set appTemplate = GetObject(, ”Word.Application")
If Err.Number = 429 Then
Set appTemplate = New Word.Application
End If
appTemplate.quit
Set docTemplate = Nothing
Set appTemplate = NothingTop 楼zhf_btj（闹闹）回复于 2005-11-15 21:54:47 得分 0 引用四楼
faysky2()
myDoc.Close '关闭
wordApp.Quit
'退出
Set myDoc = Nothing
Set wordApp = Nothing
这样应该能退干净了...我的就是..光用Close和Quit.没用Nothing就老有多余的进程
偶尔试下加个Nothing就OK了~~~~Top 楼lfh103856111（）回复于 2005-11-16 12:46:09 得分 0 對,注意quit就行了
点击咨询 