VB 操作Excel

'首先要将“工程－引用”中的Mic… Excel…选中

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

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

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

'Range("K12").Select 设置活动单元格

'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关闭宏

'xlBook.Worksheets.Count '工作簿标签总数

Private Sub Command1_Click()

Dim xlApp As Excel.Application

Set xlApp = New Excel.Application

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

On Error Resume Next

Workbooks.Add '新建工作簿

MkDir "C:\123"

ChDir "C:\123" '在桌面上建“123”文件夹

'以下是将文件保存到“C:\\模板.xls”

ActiveWorkbook.SaveAs FileName:= _

"C:\123\模板.xls", FileFormat:=xlNormal, _

Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

'Windows("模板.xls").Activate

xlApp.Visible = True

'Sheets("Sheet1").Select

Sheets.Add '新建工作表

Sheets("Sheet2").Name = "新建工作表"

'Sheets("Sheet3").Name = "Sheet"

ActiveWorkbook.Sheets("新建工作表").Tab.ColorIndex = 7 '给工作表标签指定颜色

xlApp.Worksheets("新建工作表").Range("A1").Cells(3, 2) = "添加数据"

'xlApp.Worksheets(Sheets(i).Name).Range("A1").Cells(j, 2) = "@"

'ActiveWorkbook.Sheets("考评").Tab.ColorIndex = 7

'ActiveWorkbook.Sheets("教师任课").Tab.ColorIndex = 7

'ActiveWorkbook.Sheets("班级设置").Tab.ColorIndex = 7

'ActiveWorkbook.Sheets("Zxmd").Tab.ColorIndex = 32

xlBook.Save

xlApp.Save

ActiveWorkbook.Close

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

xlApp.Quit '结束EXCEL对象.

Set xlApp = Nothing '释放xlApp对象

End Sub

利用通用对话框：

'首先要将“工程－引用”中的Mic… Excel…选中

'将“工程－部件”中的MIcrosoft Comman Dialog Control6.0 (SP3)选中

Private Sub Cdjssj_Click()

On Error Resume Next

CommonDialog1.CancelError = True

CommonDialog1.DialogTitle = "指定要打开的Excel文件"

CommonDialog1.Filter = "文本文件(*.xls)|*.xls|所有文件(*.*)|*.*"

CommonDialog1.InitDir = App.Path

CommonDialog1.ShowOpen

Dim xlApp As Excel.Application

Set xlApp = New Excel.Application

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

If Err Then

MsgBox "你选择了“取消”按钮。"

Exit Sub

Else

xlApp.Visible = True

Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName)

MsgBox "文件已经打开"

End If

MsgBox "下面将保存并关闭文件"

xlBook.Save

ActiveWorkbook.Close

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

xlApp.Quit '结束EXCEL对象.

Set xlApp = Nothing '释放xlApp对象

Shell "cmd.exe /c taskkill /f /im excel.exe"

End Sub

Private Sub Command1_Click()

Cdjssj_Click

End Sub

以下转自:http://hi.baidu.com/ljl88900/blog/item/b1b1281071209a0f203f2e25.html

Excel基本操作

一、基本操作

Private Sub Command1_Click()

Dim S() As String, i As Integer, j As Integer

Dim xlApp

Dim xlBook

Dim xlSheet

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象(注：WPS的对象是Set ET = CreateObject("et.application")，其他用法同EXCEL)

xlApp.DisplayAlerts = False '不显示对话框

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

'Set xlBook = xlApp.Workbooks.open("c:\1.xls", password:="123") '打开已经存在的含有密码的EXCEL工件簿文件

'Set xlBook = xlApp.Workbooks.Add '新建工件簿

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

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

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

'变量 = xlSheet.Cells(1, 1) '将单元格(row,col)中的值读取到一个变量

'xlSheet.Range("A1:B2").CopyPicture 1, 2 '将单元格A1至B2的内容复制到剪切板

'xlSheet.PrintOut '打印工作表

xlBook.SaveAs FileName:="c:\1.xls" '保存工作表,结束时一定别忘了保存

xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改

xlApp.quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

End Sub

二、对于已经打开过的office文档，可通过下面方法进行操作

1、Set applicationName = GetObject(, "Excel.Application") '取得当前运行的Excel对象

Set doc = applicationName.ActiveWorkBook

'当前Excel打开的工作簿文件

2、 Set applicationName = GetObject(, "Word.Application") '取得当前运行的Word对象

Set doc = applicationName.ActiveDocument

3、当前Word的applicationName打开的文件

Set applicationName = GetObject(, "AutoCAD.Application") '取得当前运行的AutoCAD对象

Set doc = applicationName.ActiveDocument

4、当前AutoCAD打开的图挡文件

Set applicationName = GetObject(, "Powerpoint.Application") '取得当前运行的ppt对象

Set doc = applicationName.ActiveDocument

5、用法举例：

'功能：Excel与Word文件自动保存

Private Sub AutoSave()Dim xlApp

Dim xlBook

Dim i As Integer

On Error Resume Next

Err.Clear

Set xlApp = GetObject(, "Excel.Application") '

If Err.Number = 0 Then

For i = 1 To xlApp.workbooks.Count

Set xlBook = xlApp.workbooks(i) '装入已经存在的EXCEL文件

'Set xlBook = GetObject(FileName) '装入已经存在的指定文件名EXCEL文件

If Not xlBook.saved Then xlBook.saved = True '自动保存

DoEvents

Next

End If

Err.Clear

Set xlApp = GetObject(, "Word.Application")

If Err.Number = 0 Then

For i = 1 To xlApp.documents.Count

Set xlBook = xlApp.documents(i) '装入已经存在的Word文件

'Set xlBook = GetObject(FileName) '装入已经存在的指定文件名Word文件

If Not xlBook.saved Then xlBook.saved = True '自动保存

DoEvents

Next

End If

Set xlBook = Nothing '释放对象

Set xlApp = Nothing '释放对象

End Sub

三、 全面控制 Excel

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

var ExcelID: Variant

ExcelID:= CreateOleObject( 'Excel.Application')

1) 显示当前窗口：

ExcelID.Visible:= True

2) 更改 Excel 标题栏：

ExcelID.Caption:= '应用程序调用 Microsoft Excel'

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

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） 枚举工作簿：

Private Sub Command2_Click()Dim objExl, i

Set objExl = CreateObject("Excel.Application")

objExl.Workbooks.Open ("c:\1.xls")

For i = 1 To objExl.Sheets.Count

MsgBox objExl.Sheets(i).Name

'Set xlSheet = xlBook.Worksheets(ID) '打开工作表

Next

objExl.Workbooks.Close

objExl.quit

Set objExl = Nothing

End Sub

15) 进行页面设置：

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) objexcel.Application.Dialogs(8).Show '调出excel打印设置窗口

21) xlBook.saved = True '不提示是否保存，直接保存文件

22) 工作表保存：

if not ExcelID.ActiveWorkBook.Saved then

ExcelID.ActiveSheet.PrintPreview

23) 工作表另存为：

ExcelID.SaveAs( 'C:\Excel\Demo1.xls')

24) 放弃存盘：

ExcelID.ActiveWorkBook.Saved:= True

25) 关闭工作簿：

ExcelID.WorkBooks.Close

26) 退出 Excel：

ExcelID.Quit