锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net编辑表格 vbnet format( 二 )

IT技术工作


四、举例：
1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的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、在D盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为"bb.xls"的EXCEL文件 。
3、在"bb.xls"中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块 ， 在模块中输入入下程序存盘：
Sub auto_open()
Open "d:\temp\excel.bz" For Output 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的无缝连接 。
VB.NET程序如何实现表格填写和打印一般情况下先用EXCEL做好一个样表文件 ， 设定好打印区域和样式，需要填内容的时候，先程序复制一个样表文件，然后调用API打开表格填写内容并打?。绻胗肁PI来实现调整模板和打印预览，可能比较困难 ， 而且很抽象，个人觉得费时费力效果还不一定理想
vb.net怎么使用表格控件？DataGridView控件，放一个DataGridView1和Button1到窗体，下面是按钮下代码\x0d\x0aPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click\x0d\x0aMe.DataGridView1.AllowUserToAddRows = False\x0d\x0aDataGridView1.RowTemplate.Height = 200\x0d\x0aDataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None\x0d\x0aFor i = 1 To 3\x0d\x0aMe.DataGridView1.Columns.Add("列"i.ToString, "列"i.ToString)\x0d\x0aMe.DataGridView1.Rows.Add()\x0d\x0aNext\x0d\x0aMe.DataGridView1.Columns(0).Width = 100\x0d\x0aMe.DataGridView1.Columns(1).Width = 500\x0d\x0aMe.DataGridView1.Columns(0).Width = 300\x0d\x0aEnd Sub\x0d\x0a'自己设置相关需要的属性即可
VB.NET Word创建表格并录入文字‘首先，创建一个VB.NET项目，再点击菜单”项目“-”添加引用“，在”Com“-”类型库“里，选择Microsoft.Word 14.0 Object Library（对应Office版本为2010），将以下代码复制粘贴到Form1窗体替换原代码 。
’PS：以下代码仅创建表格，将第行2至4列合并，添加1个文字，其他的你自己分析 。
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word'引入Word
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

推荐阅读


上一篇：如何入行电商，我想做电商,不知怎么入门

下一篇：电器专卖店直播文案，家电直播开场白