频道导航

机房管理系统——vb与excel链接2

2020-02-14 VB 前端之家

前端之家收集整理的这篇文章主要介绍了机房管理系统——vb与excel链接2，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

由于我之前找的文档让我以为在创建表里面走了很大的误区，所以当时我直接就在学生管理系统的文件夹里建了张表，运行时候直接打开这样表就行了。但是这里面还是存在着很大的误区。

后来我看了周坤的博客感觉他比我的代码优化了好多。我代码里面的好多问题都在他这里面得到解决。（ORZ！！！我做了一下午，忽然有种白做的感觉。）

“导出为excel”这个按钮大体就是点击按钮便创建一张表，然后把myflexgrid写到表格里面。

先看一下我的代码的问题：

@H_502_38@ @H_502_38@ @H_502_38@ @H_502_38@ @H_502_38@ @H_502_38@ @H_502_38@ @H_502_112@

之前我已经定义了，而我这行代码是打开已有的工作簿，但是，add这个方法就是创建一个新工作簿。新工作簿将成为当前表的活动工作簿。（我之前一直以为add是添加内容的意思）
这行代码我只能控制表的第一行第一列，如果显示几十行怎么办？通过看系统里面代码可以用循环来完成。

下面看一下我今天看到的代码：

Dim xlsAppAs Excel.Application '定义Excel程序

DimxlsBook As Excel.Workbook '定义工作簿

DimxlsSheet As Excel.Worksheet '定义工作表

	Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
	xlApp.Visible = True '设置EXCEL可见
1.	Set xlBook = xlApp.Workbooks.Open(App.Path & "\新建 Microsoft Excel 工作表.xls") '打开EXCEL工作簿
	Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
	xlSheet.Activate '激活工作表
2.	xlSheet.Cells(1,1) = myflexgrid.TextMatrix(0,0)……'给单元格1行驶列赋值…………
	xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏

@H_502_38@ @H_502_38@ @H_502_112@

SetxlsApp = CreateObject("Excel.Application") '创建应用程序

	Dim i As Long
	Dim j As Long

@H_502_38@ @H_502_112@

SetxlsSheet = xlsBook.Worksheets(1) '设置应用表

With xlsApp

Set xlsBook = xlsApp.Workbooks.Add

创建一个新工作簿。新工作簿将成为当前表的活动工作簿。

@H_502_38@ @H_502_112@

End With

'把myflexgrid.Rows的内容写入到电子表格中

.Rows(1).Font.Bold = True

如何在设置excel中的字体进行设置

@H_502_38@ @H_502_38@ @H_502_38@ @H_502_112@

Next j

Next i

xlsApp.Visible = True '显示电子表格

'xlsSheet.PrintOut preview:=True '进入打印预览页面

For i = 0 To myflexgrid.Rows - 1	很好的利用了循环语句
For j = 0 To myflexgrid.Rows - 1
xlsSheet.Cells(i + 1,j + 1) = "'" & myflexgrid.Rows.TextMatrix(i,j)	’通过我上面写的可以明显的总结出这个规律

@H_502_38@ @H_502_112@

SetxlsApp = Nothing '释放控制权

这样做出来的效果比我做的好得多。

拓展：（excel更多操作）

1)显示当前窗口：

' xlsBook.SaveAs App.Path & "\Test.xls" '保存路径和文件名称

要是点一下就出现一张表这样也太麻烦了，而且文件名字还是一样的。所以我觉得这段代码有点多余。

@H_502_38@ @H_502_112@

2)更改Excel标题栏：

ExcelID.Visible:=True;

@H_502_38@ @H_502_112@

3)添加新工作簿：

@H_8_404@ExcelID.Caption:='

应用程序调用@H_8_404@MicrosoftExcel';

@H_502_38@ @H_502_112@

4)打开已存在的工作簿：

ExcelID.WorkBooks.Add;

@H_502_38@ @H_502_112@

5)设置第2个工作表为活动工作表：

ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');

@H_502_38@ @H_502_112@

6)给单元格赋值：

ExcelID.WorkSheets[2].Activate;

或ExcelID.WorkSheets['Sheet2'].Activate;

@H_502_38@ @H_502_112@

7)设置指定列的宽度（单位：字符个数），以第一列为5例：

ExcelID.Cells[1,4].Value:='第一行第四列';

@H_502_38@ @H_502_112@

8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：

ExcelID.ActiveSheet.Columns[1].ColumnsWidth:=5;

@H_502_38@ @H_502_112@

9)在第8行之前插入分页符：

ExcelID.ActiveSheet.Rows[2].RowHeight:=1/0.035;//1厘米

@H_502_38@ @H_502_112@

10)在第8列之前删除分页符：

ExcelID.WorkSheets[1].Rows[8].PageBreak:=1;

@H_502_38@ @H_502_112@

11)指定边框线宽度：

ExcelID.ActiveSheet.Columns[4].PageBreak:=0;

@H_502_38@ @H_502_112@

12)清除第一行第四列单元格公式：

ExcelID.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3;1-左2-右3-顶4-底5-斜(\)6-斜(/)

@H_502_38@ @H_502_112@

13)设置第一行字体属性：

ExcelID.ActiveSheet.Cells[1,4].ClearContents;

@H_502_38@ @H_502_112@

ExcelID.ActiveSheet.Rows[1].Font.Name:='隶书';

@H_502_38@ @H_502_38@ @H_502_38@ @H_502_112@ 原文链接：https://www.f2er.com/vb/257879.html

上一篇：VB导出Excel 下一篇：vb.net连接远程服务器上的postgreS

猜你在找的VB相关文章

VB Format函数

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...

作者：前端之家时间：2020-08-07

vb6/ASP FORMAT MM/DD/YYYY

VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...

作者：前端之家时间：2020-08-07

VB.net 捕获项目全局异常

在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...

作者：前端之家时间：2020-08-07

实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法

转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...

作者：前端之家时间：2020-08-07

vb，wps，excel 分裂

Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...

作者：前端之家时间：2020-08-07

VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）

Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...

作者：前端之家时间：2020-08-07

VB.NET 使用ADODB連接資料庫滙出到EXCEL

‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop Private Sub A1() Di...

作者：前端之家时间：2020-08-07

vb.net 多线程運用 ping

Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...

作者：前端之家时间：2020-08-07

VB等待进程结束

VB运行EXE程序，并等待其运行结束参考：https://blog.csdn.net/useway/article/details/5...

作者：前端之家时间：2020-08-07

vb中去掉string数组的一部分

今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号因为登陆的时...

作者：前端之家时间：2020-08-07

编程分类

PHP Java Java SE Python C#C&C++Ruby VB asp.Net Go Perl netty Django Delphi Jsp .NET Core Spring Flask Springboot SpringMVC Lua Laravel Mybatis Asp Groovy ThinkPHP Yii swoole

最新文章

	ExcelID.ActiveSheet.Rows[1].Font.Color=clBlue;
	ExcelID.ActiveSheet.Rows[1].Font.Bold:=True;
	ExcelID.ActiveSheet.Rows[1].Font.UnderLine:=True;