利用VB操作Excel

用VB操作Excel详解

一、 VB读写EXCEL表：

VB本身提自动化功能可以读写EXCEL表，其方法如下：

1、在工程中引用MicrosoftExcel 类型库：

从'工程'菜单中选择'引用'栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择'确

定'。表示在工程中要引用

EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：

1. Set xlApp =CreateObject('Excel.Application') '创建EXCEL对象
2. Set xlBook =xlApp.Workbooks.Open('文件名') '打开已经存在的EXCEL工件簿文件
3. xlApp.Visible = True '设置EXCEL对象可见（或不可见）
4. Set xlSheet =xlBook.Worksheets('表名') '设置活动工作表
5. xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
6. xlSheet.PrintOut '打印工作表
7. xlBook.Close (True) '关闭工作簿
8. xlApp.Quit '结束EXCEL对象
9. Set xlApp = Nothing '释放xlApp对象
10. xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
11. xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

1. Dim xlApp As Excel.Application
2. Dim xlBook As Excel.WorkBook
3. Dim xlSheet As Excel.Worksheet

3、在程序中操作EXCEL表常用命令：

在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。

二、EXCEL的宏功能：

EXCEL提供一个VisualBasic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的'插入模块'，则增加一个'模块1'，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动

宏：一个是启动宏（Sub Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过下面命令来运行启动宏和关闭宏。

xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose)

三、VB与EXCEL的相互勾通：

充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下：

在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。

四、举例：

1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Ｃommand1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序：

1. Dim xlApp As Excel.Application '定义EXCEL类
2. Dim xlBook As Excel.Workbook '定义工件簿类
3. Dim xlsheet As Excel.Worksheet '定义工作表类
4. Private Sub Command1_Click() '打开EXCEL过程
5. If Dir('D:\temp\excel.bz')= '' Then '判断EXCEL是否打开
6. Set xlApp =CreateObject('Excel.Application') '创建EXCEL应用类
7. xlApp.Visible = True '设置EXCEL可见
8. Set xlBook =xlApp.Workbooks.Open('D:\temp\bb.xls') '打开EXCEL工作簿
9. Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
10. xlsheet.Activate '激活工作表
11. xlsheet.Cells(1, 1) = 'abc''给单元格1行驶列赋值
12. xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
13. Else
14. MsgBox ('EXCEL已打开')
15. End If
16. End Sub
17. Private Sub Command2_Click()
18. If Dir('D:\temp\excel.bz')<> '' Then '由VB关闭EXCEL
19. xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
20. xlBook.Close (True) '关闭EXCEL工作簿
21. xlApp.Quit '关闭EXCEL
22. End If
23. Set xlApp = Nothing '释放EXCEL对象
24. End
25. End Sub

2、在Ｄ盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为'bb.xls'的EXCEL文件。

3、在'bb.xls'中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入已下程序存盘：

1. Sub auto_open()
2. Open 'd:\temp\excel.bz' ForOutput As #1 '写标志文件
3. Close #1
4. End Sub
5. Sub auto_close()
6. Kill 'd:\temp\excel.bz' '删除标志文件
7. End Sub

4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。

首先创建Excel 对象，使用ComObj:

1. Dim ExcelID as Excel.Application
2. Set ExcelID as new Excel.Application

1)显示当前窗口：

EelID.Visible:=True;xc

2)更改Excel标题栏：

ExcelID.Caption:='应用程序调用MicrosoftExcel';

3)添加新工作簿：

ExcelID.WorkBooks.Add;

4)打开已存在的工作簿：

ExcelID.WorkBooks.Open('C:\Excel\Demo.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;

WithxlBook.ActiveSheet.Range('B2:L' + Trim(Str(i + 1))).Borders

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)工作表保存：

IfnotExcelID.ActiveWorkBook.Savedthen

ExcelID.ActiveSheet.PrintPreview

Endif

21)工作表另存为：

ExcelID.SaveAs('C:\Excel\Demo1.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示例代码

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'选中工作薄<book1>

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

EndIf

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 '修改鼠标

ExitSub

err1:

objExl.SheetsInNewWorkbook=3

objExl.DisplayAlerts=False '关闭时不提示保存

objExl.Quit'关闭EXCEL

objExl.DisplayAlerts=True '关闭时提示保存

Set objExl=Nothing

Me.MousePointer=0

End Sub

本人最近在做个程序，由于以前没涉及过此类编程，且手头没有相关技术资料，于是遂在网上淘金。可不

幸的是网上搜到的此方面的代码大都是抄袭而来，错误太多，几乎无法使用和参考。为此，本人结合网上

的资料和自己的研究分析，做了很多测试。以下代码为本人初次用VB6控制并读写EXCEL时，测试的部

分代码，基本都通过了测试。在这里特意把更正且通过测试的代码做了笔记，便于自己需要时直接参考。

测试环境：VB6.0sp6企业版、Office2003、WinXP

真确的引用：“工程(P)”—“引用(N)”—引用项目

Excel 2000中：

Microsoft Excel 9.0 Object Library

Microsoft Office 9.0 Object Library

Excel 2003中：

Microsoft Excel 11.0 Object Library

Microsoft Office 11.0 Object Library

Private Sub Test_Click()

'--------------------------------

' 功能：读RESULT.TXT到EXCEL中去

' 用法：主程序自动调用处理

'--------------------------------

'打开最终结果文件resulr.txt

Dim i, j, iLen As Integer

Dim s() As String

Dim sStr As String

If iOutNum <> 0 Then

Close iOutNum '先关闭

End If

fOutFile = Trim(App.Path) &'\Result.txt' '最终格式化结果

iOutNum = FreeFile()

Open fOutFile For Input As #iOutNum

'控制EXCEL代码

Dim xlApp As Object'Excel.Application

Dim xlBook As Object 'Excel.Workbook

Dim xlSheet As Object'Excel.Worksheet

Screen.MousePointer = vbHourglass '改变鼠标样式

'On Error GoTo Err_Proc

Set xlApp =CreateObject('Excel.Application') '创建新的EXCEL文件

Set xlBook = xlApp.WorkBooks.Add

Set xlSheet = xlBook.WorkSheets(1)

'Begin to fill data to sheet

'Set xlBook =xlApp.Workbooks.Open('c:\1.xls') '打开已存在的某EXCEL文件

Set xlSheet = xlBook.Sheets(1) '设置活动工作表(1)

'***********************************************************

'试验代码部分

xlSheet.Cells(1, 1) = 'A' '把第一行第一列改成A

xlSheet.Cells(1, 2) = 'B' '把第一行第二列改成B

xlSheet.Cells(2, 1) = 'C' '把第二行第一列改成C

xlSheet.Cells(3, 2) = 'D' '把第3行第二列改成D

'**********************************************************

'显示当前窗口

xlApp.Visible = True '设置EXCEL对象可见（或不可见）

'更改Excel标题栏

xlApp.Caption = 'CDMA基站告警后台分析系统报表'

'修改单元格颜色

With xlBook.Sheets(1) '第1张工作表'或者With xlBook.ActiveSheet

.Range('A1','F10').Font.Color = RGB(112, 220, 21)

End With

'修改单元格边框

WithxlBook.ActiveSheet.Range('A2:K9').Borders '边框设置

.LineStyle = 1'xlBorderLineStyleContinuous

.Weight = 1 'xlThin

.ColorIndex = 1

End With

'单元格字体设置

WithxlBook.ActiveSheet.Range('A3:K9').Font '字体设置

.Size = 9

.Bold = True

.Italic = True

.ColorIndex = 1

End With

'设置单元格格式为文本格式

'xlBook.Sheets(1).Selection.NumberFormatLocal= '@' '设置格式为文本,没有通过

'准备修改EXCEL单元格内容

i = 0

While Not EOF(iOutNum)

Line Input #iOutNum, sStr '顺序按行读取

sStr = Trim(sStr) '压缩空格

If Len(Trim(sStr)) > 0 Then

s() = Split(sStr, ',') '空格分隔符

iLen = UBound(s())

'写EXCEL单元格

i = i + 1 '记录号+1

For j = 0 To iLen

xlSheet.Cells(i + 1, j + 2) =Trim(s(j))

Next j

End If

Wend

'其它设置

xlSheet.Rows('2:2').Select'选中第一行

xlApp.Columns('A:E').Select'选中A~E列

xlApp.Selection.Font.Bold = True '设为粗体

xlApp.Selection.Font.Size = 10 '设置字体大小

xlApp.Cells.EntireColumn.AutoFit '自动调整列宽

xlBook.Sheets(1).Cells.EntireColumn.AutoFit'自动调整列宽

'拆分

xlApp.ActiveWindow.SplitRow = 1 '拆分第一行

xlApp.ActiveWindow.SplitColumn = 2 '拆分第2列

'

'设置指定列宽、或行高:（单位：字符个数）

'xlBook.Sheets(1).Columns(1).ColumnsWidth= 5

xlBook.Sheets(1).Rows(2).RowHeight =5 / 0.035 '//1厘米

'激活某个工作表为活动工作表

xlApp.WorkSheets(2).Activate

Set xlSheet = xlBook.Sheets(3)

'

'边框设置,测试通过

WithxlBook.ActiveSheet.Range('A2:K9').Borders '边框设置

.LineStyle = 1'xlBorderLineStyleContinuous'细黑实线

.Weight = 2 'xlThin

.ColorIndex = 1

End With

'进行页面设置:代码真TMD灵活

'页眉:

xlBook.ActiveSheet.PageSetup.CenterHeader= 'XXXXC网基站掉站后台分析报表'

'页脚:

xlApp.WorkSheets(2).PageSetup.CenterFooter= '第&P页'

'页眉到顶端边距2cm:

xlApp.WorkSheets(2).PageSetup.HeaderMargin= 2 / 0.035

'页脚到底端边距3cm:

xlBook.Sheets(1).PageSetup.HeaderMargin= 3 / 0.035

'顶边距2cm:

xlApp.WorkSheets(2).PageSetup.TopMargin= 2 / 0.035

'底边距2cm:

xlApp.WorkSheets(2).PageSetup.BottomMargin= 2 / 0.035

'左边距2cm:

xlApp.WorkSheets(2).PageSetup.LeftMargin= 2 / 0.035

'右边距2cm:

xlApp.WorkSheets(2).PageSetup.RightMargin= 2 / 0.035

'页面水平居中:

xlApp.WorkSheets(2).PageSetup.CenterHorizontally= 2 / 0.035

'页面垂直居中:

xlApp.WorkSheets(2).PageSetup.CenterVertically= 2 / 0.035

'打印单元格网线:

xlApp.WorkSheets(2).PageSetup.PrintGridLines= True

'

'拷贝操作：

'拷贝整个工作表:

xlApp.ActiveSheet.Used.Range.Copy'有问题！

'拷贝指定区域:

xlApp.WorkSheets(1).Range('A1:E2').Copy

'从A1位置开始粘贴:

xlApp.WorkSheets(2).Range('A1:E2').PasteSpecial

'ExcelID.ActiveSheet.Range.['A1'].PasteSpecial

'从文件尾部开始粘贴:

ExcelID.ActiveSheet.Range.PasteSpecial

'打印预览工作表：

xlApp.ActiveSheet.PrintPreview

'打印输出工作表

xlApp.ActiveSheet.PrintOut

'工作表保存,预览

If Not xlApp.ActiveWorkBook.SavedThen

xlApp.ActiveSheet.PrintPreview

End If

'增加新工作簿、表

xlApp.WorkBooks.Add '增加一个工作薄

xlApp.WorkSheets.Add '增加一个工作表

'工作表另存为：

xlBook.SaveAs('C:\Demo1.xls') '测试通过

'设置工作表的名称

xlApp.Worksheets(2).Name = '测试工作表'

'放弃存盘：

xlApp.ActiveWorkBook.Saved = True '测试通过

'关闭工作簿：

xlApp.WorkBooks.Close

'退出Excel：

xlApp.Quit

'保存设置

xlApp.DisplayAlerts = False '关闭时不提示保存

xlApp.DisplayAlerts = True '关闭时提示保存

xlApp.Quit '关闭EXCEL

'释放资源

Set xlApp = Nothing '释放xlApp对象

Set xlBook = Nothing

Set xlSheet = Nothing

Screen.MousePointer = vbDefault

Close iOutNum

End Sub

唯一不足的是，像.LineStyle =xlBorderLineStyleContinuous这类代码，'='右边的常量

xlBorderLineStyleContinuous，类似的在网上几乎搜不到完整的定义，，相当郁闷~~~

最终成品(关键)代码，用于自动生成EXCEL报表：

Private Sub 生成报表()

Dim i, j, iLen As Integer

Dim s() As String

Dim sStr As String

If iOutNum <> 0 Then

Close iOutNum '先关闭

End If

fOutFile = Trim(App.Path) &'\Result.txt' '最终格式化结果

iOutNum = FreeFile()

Open fOutFile For Input As #iOutNum

'控制EXCEL代码，前期准备

Dim xlApp As Object'Excel.Application

Dim xlBook As Object 'Excel.Workbook

Dim xlSheet As Object'Excel.Worksheet

Screen.MousePointer = vbHourglass

'On Error GoTo Err_Proc

Set xlApp =CreateObject('Excel.Application')

Set xlBook = xlApp.WorkBooks.Add

'指定第1个工作表sheets(1)

Set xlSheet = xlBook.Sheets(1)

'激活某个工作表为活动工作表

'xlApp.Worksheets(1).Activate

'显示当前窗口

xlApp.Visible = True

'更改Excel标题栏

xlApp.Caption = '淮北(Cdma)基站告警报表'

'设置工作表的名称

xlApp.WorkSheets(1).Name =CDate(Date)

'单元格颜色设置

With xlBook.Sheets(1)

.Range('C2:C3').Font.Color= vbRed

.Range('I2:L3').Font.Color= vbRed

'.Range(xlSheet.Cells(2, 9),xlSheet.Cells(2, 12)).Font.Color = vbRed'效率低下

End With

'单元格合并

With xlSheet

.Range('B2:B3').MergeCells= True '合并

.Range('C2:C3').MergeCells= True

.Range('D2:D3').MergeCells= True

.Range('E2:E3').MergeCells= True

.Range('G2:G3').MergeCells= True

.Range('H2:H3').MergeCells= True

.Range('I2:I3').MergeCells= True

.Range('J2:J3').MergeCells= True

.Range('K2:K3').MergeCells= True

.Range('L2:L3').MergeCells= True

End With

'单元格设置

xlSheet.Columns('A:L').Select

xlApp.Selection.Font.Name = '宋体' '设置字体类型

xlApp.Selection.Font.Size = 10 '设置字体大小

'修改数据前，设置G/H列单元格格式为“自定义”格式

xlBook.Sheets(1).Range('G:H').NumberFormatLocal= 'yyyy-mm-dd hh:mm:ss' '自定义格式

'或修改成文本格式也行：xlBook.Sheets(1).Cells.NumberFormatLocal= '@' '文本格式

'

'准备修改EXCEL单元格内容

With xlBook.ActiveSheet

i = 0

While Not EOF(iOutNum)

Line Input #iOutNum, sStr '顺序按行读取

sStr = Trim(sStr) '压缩空格

If Len(Trim(sStr)) > 0 Then

s() = Split(sStr, ',') '空格分隔符

iLen = UBound(s())

'写EXCEL单元格

i = i + 1 '记录号+1

For j = 0 To iLen

.Cells(i + 1, j + 2) = Trim(s(j))

If j >= 5 And j <= 6 AndInStr(Trim(s(j)), ':') > 0 Then

xlSheet.Cells(i + 1, j + 2) =Trim(s(j))

If Right(Trim(s(j)), 8) >='00:00:00' And Right(Trim(s(j)), 8) <= '06:00:00' Then

.Cells(i + 1, j +2).Interior.ColorIndex = 37 '设置特殊颜色，00~06时段不考核

End If

End If

Next j

End If

Wend

End With

'数据修改完毕后，建议设置自动合适列宽

With xlBook.ActiveSheet

.Columns('A:H').Select

.Columns.AutoFit

End With

'或：xlBook.Sheets(1).Cells.EntireColumn.AutoFit'自动调整列宽

'

'个别单元格需要设定自动换行

WithxlBook.ActiveSheet.Range('I2:I3')

.WrapText = True

.Columns('I:I').Select

.ColumnWidth = 7.1

End With

'边框设置为“细黑实线”

WithxlBook.ActiveSheet.Range('B2:L' + Trim(Str(i + 1))).Borders '边框设置

.LineStyle = 1'xlBorderLineStyleContinuous'细黑实线

.Weight = 2 'xlThin

.ColorIndex = 1

End With

'

With xlBook.ActiveSheet '或xlApp.WorkSheets (1)

'数据区域：全部设置居左

.Range('B2:L' + Trim(Str(i+ 1))).HorizontalAlignment = 2 '1：xlLeft/2:xlRight

'

'进行页面设置:代码真TMD灵活

With .PageSetup

'顶端标题行

.PrintTitleRows = '$2:$3'

'页眉:

.CenterHeader = '淮北电信C网基站掉站报表'

'页脚:

.CenterFooter ='&''楷体_GB2312,常规''&8淮北电信无线中心' & Chr(10)& '第&P页/&N页'

'A4纸、横向

.Orientation = 2 ':xlPortrait 横向/1:xlLandscape 纵向

End With

End With

'冻结窗口

xlSheet.Range('F4').Select

xlApp.ActiveWindow.FreezePanes = True

'

'保存设置

'xlApp.DisplayAlerts = False '关闭时不提示保存

'工作表另存为：

'xlBook.SaveAs('C:\Demo1.xls') '测试通过

'xlApp.WorkBooks.Close '关闭工作簿

'xlApp.Quit '退出Excel：

'xlApp.WorkBooks.Add '增加一个工作薄

'xlApp.WorkSheets.Add '增加一个工作表

'释放资源

Set xlApp = Nothing

Set xlBook = Nothing

Set xlSheet = Nothing

Screen.MousePointer = vbDefault

Close iOutNum

End Sub

参考源码空间：

枕善居http://www.mndsoft.com/blog/(dx05611240)

人人为我http://www.winvb.com/Default.asp?page=2

搜珍网http://www.dssz.com/search.php?keyword=telnet

开源http://www.vscodes.com/

笔记2：

C:\>shutdown ?

用法: shutdown [-i | -l | -s| -r | -a] [-f] [-m \\computername] [-t xx] [-c 'co

mment'] [-d up:xx:yy]

没有参数显示此消息(与? 相同)

-i 显示GUI界面，必须是第一个选项

-l 注销(不能与选项-m 一起使用)

-s 关闭此计算机

-r 关闭并重启动此计算机

-a 放弃系统关机

-m \\computername 远程计算机关机/重启动/放弃

-t xx 设置关闭的超时为xx秒

-c 'comment' 关闭注释(最大127 个字符)

-f 强制运行的应用程序关闭而没有警告

-d [p]:xx:yy 关闭原因代码

u 是用户代码

p 是一个计划的关闭代码

xx 是一个主要原因代码(小于256 的正整数)

yy 是一个次要原因代码(小于65536 的正整数)

Qzone

vb6.0 操作excel(3)

.Range('L2:L3').MergeCells= True

EndWith

'单元格设置

xlSheet.Columns('A:L').Select

xlApp.Selection.Font.Name = '宋体' '设置字体类型

xlApp.Selection.Font.Size = 10 '设置字体大小

'修改数据前，设置G/H列单元格格式为'自定义'格式

xlBook.Sheets(1).Range('G:H').NumberFormatLocal= 'yyyy-mm-dd hh:mm:ss' '自定义格式

'或修改成文本格式也行：xlBook.Sheets(1).Cells.NumberFormatLocal= '@' '文本格式

'

'准备修改EXCEL单元格内容

With xlBook.ActiveSheet

i = 0

While Not EOF(iOutNum)

Line Input #iOutNum, sStr '顺序按行读取

sStr = Trim(sStr) '压缩空格

If Len(Trim(sStr)) > 0 Then

s() = Split(sStr, ',') '空格分隔符

iLen = UBound(s())

'写EXCEL单元格

i = i + 1 '记录号+1

For j = 0 To iLen

.Cells(i + 1, j + 2) = Trim(s(j))

If j >= 5 And j <= 6 AndInStr(Trim(s(j)), ':') > 0 Then

xlSheet.Cells(i + 1, j + 2) =Trim(s(j))

If Right(Trim(s(j)), 8) >='00:00:00' And Right(Trim(s(j)), 8) <= '06:00:00' Then

.Cells(i + 1, j +2).Interior.ColorIndex = 37 '设置特殊颜色，00~06时段不考核

End If

End If

Next j

End If

Wend

EndWith

'数据修改完毕后，建议设置自动合适列宽

With xlBook.ActiveSheet

.Columns('A:H').Select

.Columns.AutoFit

EndWith

'或：xlBook.Sheets(1).Cells.EntireColumn.AutoFit'自动调整列宽

'

'个别单元格需要设定自动换行

WithxlBook.ActiveSheet.Range('I2:I3')

.WrapText = True

.Columns('I:I').Select

.ColumnWidth = 7.1

EndWith

'边框设置为'细黑实线'

WithxlBook.ActiveSheet.Range('B2:L' + Trim(Str(i + 1))).Borders '边框设置

.LineStyle = 1'xlBorderLineStyleContinuous'细黑实线

.Weight = 2 'xlThin

.ColorIndex = 1

EndWith

'

With xlBook.ActiveSheet '或xlApp.WorkSheets (1)

'数据区域：全部设置居左

.Range('B2:L' + Trim(Str(i+ 1))).HorizontalAlignment = 2 '1：xlLeft/2:xlRight

'

'进行页面设置:代码真TMD灵活

With .PageSetup

'顶端标题行

.PrintTitleRows = '$2:$3'

'页眉:

.CenterHeader = '淮北电信C网基站掉站报表'

'页脚:

.CenterFooter ='&''楷体_GB2312,常规''&8淮北电信无线中心' & Chr(10)& '第&P页/****&N页'

'A4纸、横向

.Orientation = 2 ':xlPortrait 横向/1:xlLandscape 纵向

EndWith

EndWith

'冻结窗口

xlSheet.Range('F4').Select

xlApp.ActiveWindow.FreezePanes = True

'

'保存设置

'xlApp.DisplayAlerts = False '关闭时不提示保存

'工作表另存为：

'xlBook.SaveAs('C:\Demo1.xls') '测试通过

'xlApp.WorkBooks.Close '关闭工作簿

'xlApp.Quit '退出Excel：

'xlApp.WorkBooks.Add '增加一个工作薄

'xlApp.WorkSheets.Add '增加一个工作表

'释放资源

Set xlApp = Nothing

Set xlBook = Nothing

Set xlSheet = Nothing

Screen.MousePointer = vbDefault

Close iOutNum

End Sub