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

小鱼儿 2022-08-10 17:32 28阅读 0赞

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

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

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

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

<table style="direction:ltr; border-collapse:collapse; border-style:solid; border-color:#A3A3A3; border-width:1pt; margin-left:.3333in"> 
 <tbody> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6673in; padding:4pt 4pt 4pt 4pt"> &nbsp; </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:7.1437in; padding:4pt 4pt 4pt 4pt"> Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 </td> 
 </tr> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6673in; padding:4pt 4pt 4pt 4pt"> &nbsp; </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:7.1437in; padding:4pt 4pt 4pt 4pt"> xlApp.Visible = True '设置EXCEL可见 </td> 
 </tr> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6673in; padding:4pt 4pt 4pt 4pt"> 1. </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:7.1437in; padding:4pt 4pt 4pt 4pt"> Set xlBook = xlApp.Workbooks.Open(App.Path &amp; "\新建 Microsoft Excel 工作表.xls") '打开EXCEL工作簿 </td> 
 </tr> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6673in; padding:4pt 4pt 4pt 4pt"> &nbsp; </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:7.1437in; padding:4pt 4pt 4pt 4pt"> Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表 </td> 
 </tr> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6673in; padding:4pt 4pt 4pt 4pt"> &nbsp; </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:7.1437in; padding:4pt 4pt 4pt 4pt"> xlSheet.Activate '激活工作表 </td> 
 </tr> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6673in; padding:4pt 4pt 4pt 4pt"> 2. </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:7.1437in; padding:4pt 4pt 4pt 4pt"> xlSheet.Cells(1, 1) = myflexgrid.TextMatrix(0, 0)……'给单元格1行驶列赋值………… </td> 
 </tr> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6673in; padding:4pt 4pt 4pt 4pt"> &nbsp; </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:7.1437in; padding:4pt 4pt 4pt 4pt"> xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏 </td> 
 </tr> 
 </tbody> 
</table>

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

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

Dim xlsAppAs Excel.Application '定义Excel程序

DimxlsBook As Excel.Workbook '定义工作簿

DimxlsSheet As Excel.Worksheet '定义工作表

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

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

With xlsApp

End With

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

Next j

Next i

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

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

SetxlsApp = Nothing '释放控制权

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

拓展：（excel更多操作）

1)显示当前窗口：

2)更改Excel标题栏：

3)添加新工作簿：

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

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

6)给单元格赋值：

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

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

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

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

11)指定边框线宽度：

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

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

<table style="direction:ltr; border-collapse:collapse; border-style:solid; border-color:#A3A3A3; border-width:1pt"> 
 <tbody> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6722in; padding:4pt 4pt 4pt 4pt"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:4.0118in; padding:4pt 4pt 4pt 4pt"> &nbsp;ExcelID.ActiveSheet.Rows[1].Font.Color&nbsp;&nbsp;=clBlue;&nbsp;&nbsp;&nbsp; </td> 
 </tr> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6722in; padding:4pt 4pt 4pt 4pt"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:4.0118in; padding:4pt 4pt 4pt 4pt"> &nbsp;ExcelID.ActiveSheet.Rows[1].Font.Bold&nbsp;:=True;&nbsp;&nbsp;&nbsp; </td> 
 </tr> 
 <tr> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:.6722in; padding:4pt 4pt 4pt 4pt"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td> 
 <td style="border-style:solid; border-color:#A3A3A3; border-width:1pt; vertical-align:top; width:4.0118in; padding:4pt 4pt 4pt 4pt"> &nbsp;ExcelID.ActiveSheet.Rows[1].Font.UnderLine:=True;&nbsp; </td> 
 </tr> 
 </tbody> 
</table>