通过按钮实现 帮帮我看看哪里错,帮我改一改
Private Sub Command4_Click()
Dim xlsRowCount As Integer, xlsColCount As Integer '生成的表格的行数和列数
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Dim i, j As Long
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
On Error Resume Next
xlsRowCount = MSHFlexGrid1.Rows
xlsColCount = MSHFlexGrid1.Cols
With xlsSheet
'设置电子表格各列的宽度
For i = 1 To xlsColCount - 1
Columns(i).ColumnWidth = 5 '每一个汉字大概占2的宽度(在默认的12号字的情况下)Next
'设置电子表格各行的高度
For i = 1 To xlsRowCount - 1
.Rows(i).RowHeight = 18
Next'把MSFlexGrid1的内容写入到电子表格中
For i = 0 To xlsRowCount - 1
For j = 0 To xlsColCount - 1
.Cells(i + 1, j + 1).Value = MSHFlexGrid1.TextMatrix(i, j + 1)
Next
Next
End WithxlsApp.Visible = True '显示电子表格
'xlsBook.SaveAs App.Path & "\Test.xls" '保存,如果不指定保存路径及文件名,则默认存到“我的文档”下 Book1.xls
Set xlsApp = Nothing '交还控制给ExcelEnd Sub
Private Sub Command4_Click()
Dim xlsRowCount As Integer, xlsColCount As Integer '生成的表格的行数和列数
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Dim i, j As Long
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
On Error Resume Next
xlsRowCount = MSHFlexGrid1.Rows
xlsColCount = MSHFlexGrid1.Cols
With xlsSheet
'设置电子表格各列的宽度
For i = 1 To xlsColCount - 1
Columns(i).ColumnWidth = 5 '每一个汉字大概占2的宽度(在默认的12号字的情况下)Next
'设置电子表格各行的高度
For i = 1 To xlsRowCount - 1
.Rows(i).RowHeight = 18
Next'把MSFlexGrid1的内容写入到电子表格中
For i = 0 To xlsRowCount - 1
For j = 0 To xlsColCount - 1
.Cells(i + 1, j + 1).Value = MSHFlexGrid1.TextMatrix(i, j + 1)
Next
Next
End WithxlsApp.Visible = True '显示电子表格
'xlsBook.SaveAs App.Path & "\Test.xls" '保存,如果不指定保存路径及文件名,则默认存到“我的文档”下 Book1.xls
Set xlsApp = Nothing '交还控制给ExcelEnd Sub
解决方案 »
- access中如何判断一个表是否存在?
- VB高手,版竹们都去哪了呀?能否帮小弟个忙呀,有完整源码耶!
- vb做的如何发送自定义字符串,因为该字符串加有报头,前面有长度数据,传给服务器时显示字数长度不对。服务器可能是用C编的。该如何处理
- 如何判断 一个 字符串 是否 位于 多个 字符串中
- 请问如得到某年某月的天数?????????????????????????????????????
- 各位怎么处理“多个程序员开发同一系统但源代码不互相覆盖”这个问题的?
- 在vb里怎样生成excel的按条件分组,谢谢
- 关于win2000的小问题,急急 。。。。。。。。。。。
- 请多指教:动态表格源码
- 为何返回值总为空
- 可用分制度的漏洞
- 查看星号密码框的内容,除了GETTEXT,还有没有别的方法?
.Cells(i + 1, j + 1).Value = "'" & MSHFlexGrid1.TextMatrix(i, j + 1)
Dim xlsRowCount As Integer, xlsColCount As Integer '生成的表格的行数和列数
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Dim i, j As Long
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
'On Error Resume Next '把這裏去掉就知道了
xlsRowCount = MSHFlexGrid1.Rows
xlsColCount = MSHFlexGrid1.Cols
With xlsSheet
'设置电子表格各列的宽度
For i = 1 To xlsColCount - 1
Columns(i).ColumnWidth = 5 '每一个汉字大概占2的宽度(在默认的12号字的情况下)Next
'设置电子表格各行的高度
For i = 1 To xlsRowCount - 1
.Rows(i).RowHeight = 18
Next'把MSFlexGrid1的内容写入到电子表格中
For i = 0 To xlsRowCount - 1
For j = 0 To xlsColCount - 1
MSHFlexGrid1.TextMatrix(i, j) = i + j '給表格賦值
.Cells(i + 1, j + 1).Value = MSHFlexGrid1.TextMatrix(i, j) '這裏溢出了
Next
Next
End WithxlsApp.Visible = True '显示电子表格
'xlsBook.SaveAs App.Path & "\Test.xls" '保存,如果不指定保存路径及文件名,则默认存到“我的文档”下 Book1.xls
Set xlsApp = Nothing '交还控制给ExcelEnd SubPrivate Sub Form_Load() Me.MSHFlexGrid1.Cols = 5
Me.MSHFlexGrid1.Rows = 30Command4_Click
End Sub
-----------
www.vicmioa.com
努力就有美好時光!
Me.MSHFlexGrid1.Rows = 30
xlsRowCount = MSHFlexGrid1.Rows
xlsColCount = MSHFlexGrid1.Cols
显示错误