在VB中怎样打开并显示Excel文件
Visual Basic开发工具模式可以直接从Excel表格中进入,不需要另外打开。
具体步骤:
1、在电脑上桌面上找到Excel表格图标,双击打开。
2、打开Excel软件后,点击左上角按钮。
3、点击后会弹出一个菜单,在菜单中点击Excel选项按钮。
4、然后在弹出的对话框中勾选自定义功能区中的“开发工具”。
5、然后点击右下方确定按钮。
6、点击确定后,会返回Excel页面。
7、然后在Excel上方的导航栏中点击开发工具按钮。
8、然后在开发工具页面,点击Visual Basic选项。
9、点击后就会进入Visual Basic开发模式。
10、点击左侧导航栏中的Excel中的sheet表格,就可以在Visual Basic中打开了。
1、调用Excel对象打开EXCEL文件后,读取文件内容
***************************************
在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的。
因为EXCEL是以层次结构组织对象的,其对象模型中含有许多不同的对象元素。
第一层:Application对象,即Excel本身;
第二层:workbooks对象集,指Excel的工作簿文件
第三层:worksheets对象集,表示的是Excel的一个工作表;
第四层:Cells和Range对象,指向Excel工作表中的单元格。
新建立一个VB的工程,先放一个button,名称为Excel_Out。先定义好各层:
Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
我们打算做的是:打开/新建一个excel,在其中对某工作表的一些单元格修改其值,然后另存为test.xls文件。
Private Sub Excel_Out_Click()
Dimi, j As Integer
Setxlapp = CreateObject("Excel.Application") '创建EXCEL对象
'Set xlbook = xlapp.Workbooks.Open(App.Path& "est.xls")'打开已经存在的test.xls工件簿文件
Setxlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
xlapp.Visible = True '设置EXCEL对象可见(或不可见)
Setxlsheet = xlbook.Worksheets(1) '设置活动工作表''
''~~~当前工作簿的第一页,这里也可以换成“表名”
'下面就是简单的在一些单元格内写入数字
Fori = 7 To 15
For j = 1 To 10
xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列
Next j
Nexti
Withxlsheet '设置边框为是实线
.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
EndWith
'引用当前工作簿的第二页
Setxlsheet = xlapp.Application.Worksheets(2)
xlsheet.Cells(7, 2) = 2008 '在第二页的第7行第2列写入2008
xlsheet.SaveAsApp.Path&"est.xls" '按指定文件名存盘
'Setxlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿
xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close
Setxlapp = Nothing '释放xlApp对象
End Sub
这样,我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧,还挺有用的:
1.创建Excel对象
eole=CREATEOBJECT(′Excel.application′)
2.添加新工作簿
eole.Workbooks.add
3.设置第3个工作表为激活工作表
eole.Worksheets(〃sheet3〃).Activate
4.打开指定工作簿
eole.Workbooks.Open(〃c:emp\ll.xls〃)
5.显示Excel窗口
eole.visible=.t.
6.更改Excel标题栏
eole.Caption=〃VB应用程序调用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:emp\22.xls〃)
39.放弃存盘
eole.ActiveWorkbook.saved=.t.
40.关闭工作簿
eole.Workbooks.close
41.退出Excel
eole.quit
***************************************
2、调用ADO对象以数据库方式打开EXECL文件后,以SQL语句方式读取文件
***************************************
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" & App.Path & ";", "", ""
rs.Open "select * from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdText
Set Read_Text_File = rs
Set rs = Nothing
Set conn = Nothing
***************************************
然后代码如下:
Dim xlApp As Object
Dim xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
With xlApp
xlApp.Visible = False
.Rows(1).Font.Bold = True '设置第一行为粗体
.Cells(10, 10).Value="姓名"
.Application.Visible = True
End With
Set xlApp = Nothing
Set xlBook = Nothing
如想了解其他操作excel的代码,可以在excel中,点击菜单的 工具——宏——录制新宏。
然后你手动对excel操作,操作完成后停止录制。再点击 工具——宏——visual basic编辑器,找到刚才录制的宏,就可以看到刚才对excel所做的操作对应的vb代码了。
用excel控件
VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
'这么点事儿创建AcitveX控件应该没太大意义,而且要写许多属性方法等,这里写不下,就给你个窗体的例子吧,希望能按字论赏 '通用声明 Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long Private Declare ...
VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
On Error Resume Next FileNo = FreeFile Open PathName & FileName For Input As FileNo List1.Clear Do While Not EOF(FileNo) ' 循环至文件尾。Line Input #FileNo, tmp ' 读入一行数据并将其赋予某变量。List1.AddItem tmp ' 在立即窗口中显示数据。Loop Close End Sub ...
vb实现输入窗口句柄就能找到指定窗口并显示窗口信息的程序
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Type RECT Left As ...
VB怎样实现程序启动后全屏显示?
在Form的属性设置框中,设置BorderStyle为0,然后:Private Sub Form_Load()Me.Left = 0 Me.Top = 0 Me.Width = Screen.Width Me.Height = Screen.Height End Sub
怎样将两个文本框中不同的数找出来并显是在第三个文本框中?用vb程序...
以下代码调试通过,注意数字间用空格隔开 Private Sub Command1_Click()Dim numArr1 Dim numArr2 Dim i As Integer numArr1 = Split(Text1.Text, " ") ‘如果用逗号隔开就应该是Split(Text1.Text,",")numArr2 = Split(Text2.Text, " ")For i = 0 To UBound(numArr1)If InStr(Text2....
VB 中 如何让两个窗口在一个主窗口中显示
其实你这个用个标准的选项卡控件就可解决的。不过如果你找不到选项卡控件,你也可以用两个PictureBox控件来自己做,就是把两个页面的控件分别放到这两个PictureBox中(比如用鼠标把“棉棉弹力”中除两个按钮外的其他全部控件选中,按Ctrl+x,再把Picture1选中,按Ctrl+v。另一个也同样处理),然后用...
vb.net中,如何点击按钮调出选择文件窗口选中图片并在picturebox中显示出 ...
button , OpenFileDialog , PictureBox , textbox 控件,我把图片显示在 picturebox 中,而路 径存放在 textbox 中,不知道这样行不行。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim filename As String OpenFileDialog1....
如和用VB调用bat并显示在窗体中
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long Dim WinPaths As String Dim FileText As String Dim handle As Integer WinPaths = environ$("windir")Shell "cmd -k ***.bat > " & WinPaths & "\\result.rlt"handle = Free...
如何在vb中保存text中的数字.第二次打开时还显示那个数字的
VB可使用Write # 语句语句保存文本框的数据到文本顺序文件。再次运行程序上用Input # 语句从原保存的文本文件加载数据到原文本框。Write # 语句,将数据写入顺序文件。Input # 语句,从已打开的顺序文件中读出数据并将数据指定给变量。通常用 Input # 从文件读出 Write # 写入的数据。Open 语句,能够...
VB怎么用比较好的方法将多个图片和音频文件打包起来,并用代码快速读取并...
方法很多,各有利弊。简单说一下。1、使用一个MDB,把多媒体数据序列化后保存在备注字段里。2、可以使用第三方压缩组件。最传统的应该是ZLib。相关资料很多,你自己查一下吧。3、自定义一个文件格式,自己写读写函数。经典例子可参考暴雪的游戏,知道MPQ吧?这里面MDB法最简单,但是功能单一,很多辅助...
项容威信: 1、调用Excel对象打开EXCEL文件后,读取文件内容*************************************** 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项.由于你的Excel版本...
望花区15839672864: 如何在vb中显示excel? - ?
项容威信: 添加一个表格控件Flexgrid,然后读取excel中的内容,定时更新到表格中
望花区15839672864: VB访问Excel的几种方式 - ?
项容威信: 随着信息技术的发展,特别是网络信息交流的需要,要求有快捷的信息查询技术.VB能够通过多种方式对Excel文档进行访问[1,2],以满足各种信息查询的要求.本文讨论VB对Excel访问的三种方式:1、直接调用Excel应用程序对象进行访问;...
望花区15839672864: 请问如何使用vb调用 excel 文件? - ?
项容威信: 添加引用 Microsoft Excel 12.0 Object Library (视你的office版本不同有所差异) 然后就可以用这个来编程啦 Dim xlapp As Excel.Application '代表excel程序 Dim wkBook As Excel.Workbook '代表excelworkbook(也就是excel工作簿文件 .xls .xlsx...
望花区15839672864: 在vb窗体中显示并编辑excel文档?各位大侠请帮忙!在此感谢了! - ?
项容威信: 在窗体添加excel对象运行后在excel上双击或右键选择'打开'或'编辑'都行
望花区15839672864: 如何在VB中调用EXCEL - ?
项容威信: 1.在当前目录建立一个空xls文件,a.xls2.创建bat文件: open "a.bat" for output as #1:print #1,app.path & "\a.xls":close3.shellbat文件:shell("a.bat")
望花区15839672864: 如何用VB创建并打开一个EXCLE表格 - ?
项容威信: Dim Application As Object Dim WorkBook As Object Dim Sheet As ObjectSet Application = CreateObject("Excel.Application") '建立EXCEL对象 Set WorkBook = Application.Workbooks.Add() '建立一个新的Excel文档 Set Sheet = ...
望花区15839672864: vb用对话框打开excel - ?
项容威信: 怎样打开excel我不会,不过想要选择文件,选择路径,那就需要下面的控件了:microsoft common dialog control 6.0 找到这个部件,添加一个到窗体上,然后在代码中加如下两句:commondialog1.filter="*.*|*.*" commondialog1.showopen 这样就可以选择文件了,更多内容你可以搜索一下commondialog的教程!
望花区15839672864: 怎样在vb编的程序窗口内打开excel? - ?
项容威信: 你可以用ole控件,选择microsoft excel文档即可
望花区15839672864: 如何用VB打开EXCEL表,让他打开指定的文件. - ?
项容威信: 可以利用系统中的excel打开 excel文件.excel 本身是支持参数的.你可以参照.Private Sub Command1_Click() Dim aa = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\aa.xls", vbNormalFocus)End Sub