鹦鹉价格表:在VB中把EXCEL文件导入MSFLEXGRID
来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 02:05:38
首先需要引用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表格
vb MSFlexgrid可以用鼠标中键滚动
在Excel中导入投资基金即时行情
用DLL实现把数据库的记录导出到EXCEL中(VB) - 应用程序 - VB教程
用DLL实现把数据库的记录导出到EXCEL中(VB)转
在CAD中把dwg文件导出jpg文件
将excel数据导入oracle中- -
vb MSFlexGrid控件中怎么计算每一行,一列的和呀
在一个EXCEL文件中如何把不同工作表上的内容快速复制到一张新的工作表上? 除了一页一页复...
EXCEL文件中一次性把里面所有数字前的空格去掉
往Excel中导入文本数据的三种方法
在PS中导入动态素材
在PS中导入动态素材
【转】在VB应用程序中调用Excel2000
在VB中压缩ACCESS数据库
VB MSFlexGrid控件的几种简单的使用方法1
VB MSFlexGrid控件的几种简单的使用方法二
VB MSFlexGrid控件的几种简单的使用方法11
VB MSFlexGrid控件的几种简单的使用方法2
VB MsFlexGrid和MSHFlexGrid控件支持鼠标滚动操作
为什么在photoshop7 0中不能把图片复制到新建文件中-天涯问答
excel 工作表中如何在同一个表中把工作表复制300份?
vb 读写ini文件