用VB操作Excel详解

一、 VB读写EXCEL表：

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

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

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

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

EXCEL类型库。

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

Set xlApp =CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook =xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件

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

Set xlSheet =xlBook.Worksheets("表名") '设置活动工作表

xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值

xlSheet.PrintOut '打印工作表

xlBook.Close (True) '关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

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。然后在其中输入如下程序： 

Dim xlApp As Excel.Application '定义EXCEL类

Dim xlBook As Excel.Workbook '定义工件簿类

Dim xlsheet As Excel.Worksheet '定义工作表类

Private Sub Command1_Click() '打开EXCEL过程

If Dir("D:\temp\excel.bz")= "" Then '判断EXCEL是否打开

Set xlApp =CreateObject("Excel.Application") '创建EXCEL应用类

xlApp.Visible = True '设置EXCEL可见

Set xlBook =xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿

Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表

xlsheet.Activate '激活工作表

xlsheet.Cells(1, 1) = "abc"'给单元格1行驶列赋值

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏

Else

MsgBox ("EXCEL已打开")

End If

End Sub

Private Sub Command2_Click()

If Dir("D:\temp\excel.bz")<> "" Then '由VB关闭EXCEL

xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏

xlBook.Close (True) '关闭EXCEL工作簿

xlApp.Quit '关闭EXCEL

End If

Set xlApp = Nothing '释放EXCEL对象

End

End Sub

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

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

Sub auto_open()

Open "d:\temp\excel.bz" ForOutput As #1 '写标志文件

Close #1

End Sub

Sub auto_close()

Kill "d:\temp\excel.bz" '删除标志文件

End Sub

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

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

Dim ExcelID as Excel.Application

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

在VB中制作报表一般来讲有三种方法：
1、直接使用VB6.0中自带的Data Report 来做，这种方法有很大的局限性，对于比较规则的报表，但对于比较复杂的报表，比如说一张报表，上部分是人员的工资，下部分是人员的各日的考勤，使用这种方法就无能为力。
2、使用直接的打印方法，即Printer.print ，这种方法直接向打印机打印，就象过去使用Foxpro似的，需要进行打印机定位，并且在Windows下，不同的字符数字所占的宽度也不相同，所以这种方法使用起来非常麻烦。
3、使用微软的Excel。本文重点讨论用Excel来制作报表所涉及的问题。我们用Excel做报表时，不仅是将所要的内容填到Excel的工作表中，而且还需要填写公式、定义合适的格式（格线、字体、对齐）等。
Excel的每张工作表是由若干行、若干列构成的，行列的交叉形成的小格称作单元格。我们正好可以用这些现成的单元格来做我们的报表的相应的格。为了程序简单，可以将报表的模板做好，如表头，相应的行高、列宽、字体、对齐调整好（事实上，这些也可以通过程序来实现，只是麻烦点。），然后利用VB程序来操纵Excel。
这里我们以SQL SERVER 7.0为后台数据。首先定义好需要的变量，在VB6.0的菜单"工程\引用"中确保 Microsoft Excel 8.0 Object Library（在Excel2000中，此处为Excel 9.0）复选框选中。
再向Excel工作表中填入数据：
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook 定义Excel工作簿对象
Dim xlsheet As Excel.Worksheet 定义Excel工作表对象
Dim rssalary As New ADODB.Recordset 定义记录集
rssalary.Open SQLStrsalary, CNstring, adOpenStatic, adLockReadOnly
rssalary 为已计算好的工资数据记录集。
SQLStrsalary 是SQL语句（如select * FROM SALARY）。
Cnstring 是连接字符串（如Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=False;
Initial Catalog=DBname;Data Source=servername）。
Set VBExcel = createObject("excel.application")
VBExcel.Visible = True
根据操作人员是否需要见到Excel此处可设为TRUE 或FALSE
Set xlbook = VBExcel.Workbooks.Open(ExcelFile)
ExcelFile为事先设计好的Excel模板文件（包括路径）
Set xlsheet = xlbook.Worksheets("salary")
Salary 为Excel模板工作表的名字
xlsheet.Activate
下面是向单元格中填写数据（以一个简单的工资打印为例）：
xh = 1
Row = 6 从第6行开始是工资数据，1-5 行为工资单表头
SumRow = Row SumRow用来存放合计的起始行
Do While Not rssalary.EOF
Col = 1
xlsheet.Cells(Row, Col).Value = xh
Col = Col + 1
xlsheet.Cells(Row, Col).Value = rssalary("name")
Col = Col + 1
xlsheet.Cells(Row, Col).Value = Str(rssalary("jngz").Value)
Col = Col + 1
xlsheet.Cells(Row, Col).Value = Str(rssalary("jbdx").Value)
Col = Col + 1
xlsheet.Cells(Row, Col).Value = Str(rssalary("gwgz").Value)
Col = Col + 1
xlsheet.Cells(Row, Col).Value = Str(rssalary("zygz").Value)
Col = Col + 1
xlsheet.Cells(Row, Col).Value = Str(rssalary("jfgz").Value)
Col = Col + 1
xlsheet.Cells(Row, Col).Value = Str(rssalary("yfgz").Value)
xh = xh + 1
Row = Row + 1
rssalary.MoveNext
Loop
以上可将各人的工资项打印出来，下面是合计（仅以一列的合计为例，填写公式）：
Col = 1
xlsheet.Cells(Row, Col).Value = ""
Col = Col + 1
xlsheet.Cells(Row, Col).Value = "合计"
Col = Col + 1
HeJi = "=SUM(c" + Trim(Str(SumRow)) + ":c" + Trim(Str(Row - 1)) + ")"
xlsheet.Cells(Row, Col).Value = HeJi
填入公式，HeJi是一个字符串变量。
如果用到的汇总是求平均、记数等，可用相应的Excel函数来替代上面的SUM，如COUNT、AVERAGE等。
因为Excel中所见到的格线，其实并不是实际存在的线，只是为了分割各个单元格；而如果在Exce的选项中设置上有网格线的话，那么每一个格的四周都有线，并不一定能符合实际的需要。因此，如果只是某些地方需要画线，可用以下方法为某个单元格加上边框：
xlsheet.Cells(Row, Col).Borders(xlTop).Weight = xlThin
其中Borders 的参数可为：xlTop，xlBottom，xlRight，xlLeft 代表位置。
它的Weight 的值可为：xlThin，xlMedium,xlThick.... 代表线粗。
在Excel 中，如果某个单元格的宽度小于其中内容的长度，其中的内容将显示一串"＃"，真正的内容就看不到了，我们可用以下的方法来解决：
　 xlsheet.Cells(Row, Col).ShrinkToFit = true
这样Excel可以自动将单元格中内容的字体缩小来适合所在的单元格的宽度。也可以将模板中所有可能用到的单元格格式的对齐方式中的"缩小字体填充"项选中，然后将不需要缩小字体填充的单元格设为：
　　 xlsheet.Cells(Row, Col).ShrinkToFit =false
由于Excel中对于对齐方式(即靠左、右,上、下等)有它自己默认的方式，如数字自动在单元格中靠右，文字自动靠左。如果需要中单元格的内容在某个单元格中的对齐方式可以这样来做：
水平对齐：xlsheet.Cells(Row, Col).HorizontalAlignment = xlCenter
其中xlCenter处可为xlLeft、xlRight。
垂直对齐：xlsheet.Cells(Row, Col). VerticalAlignment = xlCenter
其中xlCenter处可为xlTop、xlBottom。
如果需要用到单元格的内容在多个单元格中居中（跨列居中），可以这样来实现(下例可实现第一行的A到H列居中)：
Dim Total As Range
RangeCells = "a" + RTrim(LTrim(Str(1))) + ":" + "h" + RTrim(LTrim(Str(1)))
Set Total = Range(RangeCells)
Total.select
Total.HorizontalAlignment = xlHAlignCenterAcrossselection
然后在这几个单元格中的最前一个单元填入实际内容。
xlsheet.Cells(1, 1).Value = "实际内容"
有时我们可能会用到改变字体及尺寸，可以通过以下方法实现：
Sheet1.Cells(Row,Col).Font.Name = "隶书"
Sheet1.Cells(Row,Col).Font.Size = 20
在单元格中输入数字性的文本，如05182381104，写到Excel的单元格中时，Excel会自动将其视为数字，从而变为5182381104。要解决这个问题，可这样做：
xlsheet.Cells(Row, Col).Value=" "+"05182381104"
上句中的两个双引号中间是一个单引号。
另外，如果一张Excel工作表的长度超过了所设定的打印机的纸张的长度，Excel将自动分页，第二页就会没有表头。在出现这种情况下，如果表头是模板中固定好的，可在模板中设置好，方法是在Excel的菜单"文件\页面设置"中来设置。如果表头是在程序中形成的，可用下面的方法：
xlsheet.PageSetup.PrintTitleRows = rows("1:6").Address
这里"1:6"是根据表头所在的行来自行设定的。
xlsheet.PageSetup.PrintTitleColumns = Columns("A:p").Address
这里"A:P"是根据表头所在的列来设定的。
通过上面这些方法来制做我们平常所见的报表，应该是不会有太大的问题。其实，我们在Excel软件中所能做到的，在VB中都可以通过调用来实现。