高木万平:VB 把EXCEL文件导入MSFLEXGRID表格
来源:百度文库 编辑:九乡新闻网 时间:2024/05/19 22:03:51
首先需要引用Excel库:
从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择"确定"。表示在工程中要引用EXCEL类型库。
Private Sub Command1_Click()
Dim ExcelApp As Excel.Application
Set ExcelApp = CreateObject("excel.application")
ExcelApp.Workbooks.Open (App.Path & " est2.xls")
With MSFlexGrid1
.Rows = ExcelApp.Sheets(1).UsedRange.Rows.Count
.Cols = 4
For r = 0 To .Rows - 1
For c = 1 To .Cols
If c = 1 Then
.TextMatrix(r, c - 1) = Year(Date) & "-" & ExcelApp.Sheets(1).Cells(r + 1, c + 1) & "-" & ExcelApp.Sheets(1).Cells(r + 1, c)
Else
.TextMatrix(r, c - 1) = ExcelApp.Sheets(1).Cells(r + 1, c + 1)
End If
Next
Next
End With
ExcelApp.Quit
End Sub
Private Sub Command2_Click()
Open App.Path & "导出.txt" For Output As #1
With MSFlexGrid1
For r = 0 To .Rows - 1
For c = 0 To .Cols - 1
Print #1, .TextMatrix(r, c);
If c < .Cols - 1 Then Print #1, ",";
Next
Print #1,
Next
End With
Close #1
MsgBox "导出完毕"
End Sub
从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择"确定"。表示在工程中要引用EXCEL类型库。
Private Sub Command1_Click()
Dim ExcelApp As Excel.Application
Set ExcelApp = CreateObject("excel.application")
ExcelApp.Workbooks.Open (App.Path & " est2.xls")
With MSFlexGrid1
.Rows = ExcelApp.Sheets(1).UsedRange.Rows.Count
.Cols = 4
For r = 0 To .Rows - 1
For c = 1 To .Cols
If c = 1 Then
.TextMatrix(r, c - 1) = Year(Date) & "-" & ExcelApp.Sheets(1).Cells(r + 1, c + 1) & "-" & ExcelApp.Sheets(1).Cells(r + 1, c)
Else
.TextMatrix(r, c - 1) = ExcelApp.Sheets(1).Cells(r + 1, c + 1)
End If
Next
Next
End With
ExcelApp.Quit
End Sub
Private Sub Command2_Click()
Open App.Path & "导出.txt" For Output As #1
With MSFlexGrid1
For r = 0 To .Rows - 1
For c = 0 To .Cols - 1
Print #1, .TextMatrix(r, c);
If c < .Cols - 1 Then Print #1, ",";
Next
Print #1,
Next
End With
Close #1
MsgBox "导出完毕"
End Sub
VB 把EXCEL文件导入MSFLEXGRID表格
在VB中把EXCEL文件导入MSFLEXGRID
Excel表格导入Coreldraw的实用技巧
Excel表格导入coldraw解决方案[51自学网园地]
Excel表格导入Coreldraw的方法和处理技巧
Excel快速把Word表格行列互换
把WORD表格转换成EXCEL文档
轻松把Excel表格转换为图片
把EXCEL表格转换为WORD文档'
把EXCEL表格转换为WORD文档
用DLL实现把数据库的记录导出到EXCEL中(VB) - 应用程序 - VB教程
Excel 我扫描了一张图片,是一张表格,请问有什么办法可以导入excel或其它文字处理软...
怎样把多个EXCEL表格合并成一个EXCEL表格 - 已解决 - 搜搜问问
VB MSFlexGrid控件的几种简单的使用方法1
VB MSFlexGrid控件的几种简单的使用方法二
VB MSFlexGrid控件的几种简单的使用方法11
VB MSFlexGrid控件的几种简单的使用方法2
VB MsFlexGrid和MSHFlexGrid控件支持鼠标滚动操作
vb MSFlexgrid可以用鼠标中键滚动
Excel表格
Excel表格
Excel表格
巧借Excel快速把Word表格行列互换1
把EXCEL表格转换为WORD文档11