[002939基金净值](871694)中裕科技

1,用VB翻开Excel，如

DimappExcelAsObject

DimwbkNameAsObject

DimshtNameAsObject

DimstrSavePathAsString

DimstrReadasstring

'CreatetheExcelfile

10SetappExcel=CreateObjec("Excel.Application")

20SetwbkName=appExcel.workbooks.Add

30SetshtName=wbkName.worksheets(1)

40wbkName.worksheets(1).Name="Sheet1"

50strRead＝appExcel.Range("A1").Value

60wbkName.Save

70appExcel.quit

2,赋值给一个列表框,可以用LIST1.ADDITEMstrRead，再赋值给另一个窗体的列表框，用窗体称号.列表框称号.ADDITEMstrRead你好！

仅代表个人观点，不喜勿喷，谢谢。

Public?ExcelTable?As?Workbook??'excel?作业表目标

Private?TextBoxA()?As?Control'以编辑框为根底动态结构数据网格

Private?FormWidth?As?Integer'窗体宽度

'以下子程序是用来树立数据网格

Sub?CreateGrid(No,?Data)

For?i?=?1?To?CInt(UBound(Data,?1))

For?j?=?1?To?CInt(UBound(Data,?2))

Set?a?=?Form1.Controls.Add("VB.TextBox",?"textbox"?&?CStr(i)?&?CStr(j)?&?CStr(No))

ReDim?TextBoxA(1?To?i,?1?To?j)??'从头界说动态数组！

Set?TextBoxA(i,?j)?=?a

With?TextBoxA(i,?j)'设置文本框特点

.Text?=?Data(i,?j)

.Visible?=?True

.Height?=?200

.Width?=?500

.Top?=?.Height?*?(i?-?1)

.Left?=?.Width?*?(j?-?1)?+?FormWidth

End?With

Next

Next

End?Sub

Private?Sub?Command1_Click()

Set?ExcelTable?=?CreateObject("Excel.sheet")?'树立目标实例

ExcelTable.Application.Workbooks.Open?(App.Path?+?"\address.xls")?'翻开数据文档address.xls

For?i?=?1?To?ExcelTable.Application.Worksheets.Count'取得作业表数目

Data?=?ExcelTable.Application.Worksheets(i).UsedRange.Value'获取每个作业表的数据

DataType?=?VarType(Data)'越过没有数据的空表

Select?Case?DataType

Case?vbArray?+?vbVariant

Call?CreateGrid(i,?Data)'传递数据,树立以文本框为根底的数据网格

Case?vbEmpty

End?Select

Next

End?Sub