Question

在VB中把EXCEL文件导入MSFLEXGRID

1、在VB中把EXCEL文件导入MSFLEXGRID，EXCEL中的A列为月，了列为日，我怎么样取EXCEL中的A列和了列到MSFLEXGRID的第一列中合并为日期，格式为YYYY-MM-DD,其中的年取当前年，月和日取EXCEL中的A列和B列。
2、为什么我的MSFLEXGRID控件中没有上下或左右滑块。
3、把MSFLEXGRID中的数据导出文本格式，格式如下2009-01-01,01-0001,0,125250
2009-01-02,01-0009,0,3055
2009-01-03,01-0010,0,2214
2009-01-04,01-0011,0,5151
2009-01-05,01-0012,0,3301.5
2009-01-06,01-0013,0,4440
第一列为日期，第二列是结算号，第三列和第四列分别为借方，和贷方。
以上问题要求写出具体语句！赏金100！
4、在EXCEL中的借方和贷方是数据格式为货币型的，怎么在取数过程中转换为数值型的。如：￥12345.11转换成12345.11

Answer 1

首先需要引用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 & "\test2.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

至于滚动条，是要数据超过容器大小后才会显示出来

Answer 2

1、给你个例子
http://hi.baidu.com/cfans/blog/item/78232edd07d876d18d1029cd.html
2、scrollbar的值设置为3就都有了
3、
循环
Open "c:\a.txt" For out As #1
print #1,每行的内容
结束循环

Answer 3

嘿嘿，在高分区你的下面一个问题就是个调用实例。