MySQL机房管理系统_机房管理系统vb与excel链接2
这行代码我只能控制表的第一行第一列,如果显示几十行怎么办?通过看系统里面代码可以用循环来完成。
下面看一下我今天看到的代码:
Dim xlsAppAs Excel.Application '定义Excel程序
DimxlsBook As Excel.Workbook '定义工作簿
DimxlsSheet As Excel.Worksheet '定义工作表
Dim i As Long
Dim j As Long
SetxlsApp = CreateObject("Excel.Application") '创建应用程序
Set xlsBook = xlsApp.Workbooks.Add
创建一个新工作簿。新工作簿将成为当前表的活动工作簿。
SetxlsSheet = xlsBook.Worksheets(1) '设置应用表
With xlsApp
.Rows(1).Font.Bold = True
如何在设置excel中的字体进行设置
End With
'把myflexgrid.Rows的内容写入到电子表格中
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)
’通过我上面写的可以明显的总结出这个规律
Next j
Next i
xlsApp.Visible = True '显示电子表格
'xlsSheet.PrintOut preview:=True '进入打印预览页面
' xlsBook.SaveAs App.Path & "\Test.xls" '保存路径和文件名称
要是点一下就出现一张表这样也太麻烦了,而且文件名字还是一样的。所以我觉得这段代码有点多余。
SetxlsApp = Nothing '释放控制权
这样做出来的效果比我做的好得多。
拓展:(excel更多操作)
1)显示当前窗口:
ExcelID.Visible:=True;
2)更改Excel标题栏:
ExcelID.Caption:='
应用程序调用MicrosoftExcel';
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)设置指定列的宽度(单位:字符个数),以第一列为5例:
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;
MySQL机房管理系统_机房管理系统vb与excel链接2相关推荐
- MySQL计算机机房管理系统_机房管理系统的设计与实现(JSP,MySQL)(含录像)
机房管理系统的设计与实现(JSP,MySQL)(含录像)(毕业论文7500字,程序代码,MySQL数据库) 为了提高机房管理者的管理效率和减轻管理者的劳动强度,提高机房的利用率,发挥计算机的方便性和快 ...
- mysql myeclipse图书馆_图书馆管理系统myeclipse+mysql 亲测可用
[实例简介] 图书馆管理系统 亲测可用 JSP+Servlet+JavaBean+MySQL [实例截图] [核心代码] 图书馆管理系统myeclipsemysql └── 图书馆管理系统myecli ...
- java 家谱管理系统_家谱管理系统
[实例简介] 用JAVA写了一个简易的家谱管理系统,里面有所有的实现代码与过程 [实例截图] [核心代码] 家谱管理系统 ├── JM │ └── MyJob │ ├── Bookface.j ...
- java 设备管理系统_设备管理系统
压缩包 : b679ef31dc714eb51f600211e9.rar 列表 设备管理系统/EquipmentManage/.classpath 设备管理系统/EquipmentManage/.pr ...
- 机房管理系统——vb与excel链接2
由于我之前找的文档让我以为在创建表里面走了很大的误区,所以当时我直接就在学生管理系统的文件夹里建了张表,运行时候直接打开这样表就行了.但是这里面还是存在着很大的误区. 后来我看了周坤的博客感觉他比我的 ...
- jsp人事管理系统_人事管理系统(论文+源码)(SSH+MYSQL+JSP+HTML5)
本文介绍了一款基于 Java平台的人事管理系统的开发过程,从发展现状.可行性研究.需求及功能进行了分析,从而对系统框架.数据库和数据结构进行合理的规划,最后做出展示并对各个功能进行测试,总结了开发过程 ...
- mysql系统设计论文_毕业论文管理系统的设计与实现(MyEclipse,MySQL)
毕业论文管理系统的设计与实现(MyEclipse,MySQL)(任务书,开题报告,中期检查表,文献综述,毕业论文17000字,程序代码,MySQL数据库) 目前,在许多高校对毕业论文信息化管理工作仍然 ...
- MySQL运动会管理系统_运动会管理系统(JAVA,JSP,SERVLET,SQLSERVER)
运动会管理系统(JAVA,JSP,SERVLET,SQLSERVER)的设计与实现(毕业论文16000字以上共39页,程序代码,MySQL数据库) [运行环境]MyEclipse,JDK,TOMCAT ...
- 传智播客教辅平台mysql题库_课堂管理系统;在线教辅平台;java课设
# 白泽智慧教辅平台 **说明:** 运行时需要修改位置: bzedu\src\main\resources\application.properties bzedu\src\main\resourc ...
最新文章
- JVM学习笔记(四)------内存调优
- Oracle 数据怎么实时同步到 MySQL | 亲测干货分享建议收藏
- mybatis使用经验
- chart控件做实时曲线显示_基于GDI+技术开发工业仪表盘控件
- EasyUI numbox输入框,金额格式化显示
- Java Integer常量池——IntegerCache内部类
- python基础代码大全-Python基础汇总
- 1.1 API : LinearRegression、Ridge、LASSO、ElasticNet
- C#项目”XXXXX”针对的是”.NETFramework,Version=v4.7.1”但此计算机没有安装它
- linux虚拟机安装samba服务,在虚拟机Redhat Linux下安装Samba服务器分享
- MFC界面开发帮助文档:BCG可视化设计器使用指南
- 苹果手机怎样软件签名?
- 一个小巧好用的Url编解码工具
- matlab 删除一个文件,【MATLAB】Matlab删除文件或者文件
- 半导体封装行业晶圆划片机的切割良率如何把控?
- android实战开发记账本App,android开发实战-记账本APP(一)
- 基于Java的学生兼职平台设计与实现
- 使用ADB 查看模拟器得日志,unity得日志 以及保存
- 隐藏微信小程序返回首页按钮(小房子)
- 计算机主板外频,笨鸟先飞 主板超频BIOS选项接触(图解)