不断拾金——导出为EXCEL

来源：互联网发布：sql中in与all的区别编辑：程序博客网时间：2024/06/04 18:43

第一次机房收费系统总会让我感受到自己的欠缺，但也正是这种欠缺给了我提升的机会，给了我不断去拾金的机会。加油。

将查询到的MSHFlexGrid中的内容导出为Excel：

首先：通过工程——引用——浏览添加EXCEL.exe。路径：C:\Program Files\Microsoft Office\Office15

接着：工程——引用——Microsoft Excel 15.0 ObjectLibriary ——确定

在按钮中写下如下代码：

<pre name="code" class="sql">Private Sub cmdExcel_Click()    Dim xlApp As Excel.Application<span style="color:#006600;"> 'Excel对象    </span>Dim xlBook As Excel.Workbook<span style="color:#006600;">   'excel工作簿    </span>Dim xlSheet As Excel.Worksheet<span style="color:#006600;"> 'excel工作表   </span> Dim i As Integer    Dim j As Integer    Set xlApp = CreateObject("Excel.Application")<span style="color:#006600;">   '实例化对象xlApp    </span>xlApp.Visible = True             <span style="color:#006600;">     '显示excel窗口    </span>Set xlBook = xlApp.Workbooks.Add<span style="color:#006600;">      '添加    </span>Set xlSheet = xlBook.Worksheets(1)<span style="color:#006600;">    '获取工作簿中的1表    </span>For i = 0 To myFlexGrid.Rows - 1<span style="color:#006600;">        </span>For j = 0 To myFlexGrid.Cols - 1        myFlexGrid.Row = i        myFlexGrid.Col = j        xlSheet.Cells(i + 1, j + 1) = Trim(myFlexGrid.Text)<span style="color:#006600;"> '通过for循环写入内容 </span><span style="background-color: rgb(255, 255, 255);">       Next    NextEnd Sub</span><span style="color:#006600;"></span>

0 0