首先要将“工程－引用”中的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
利用通用对话框：vb语言代码大全网页
'首先要将“工程－引用”中的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 " /c taskkill /f /"
End Sub
Private Sub Command1_Click()
Cdjssj_Click
End Sub
以下转自:hi.baidu/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)  打开已存在的工作簿：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。