关于文件读取得问题

主　　题：  关于文件读取得问题
作　　者：  hzlwzpinlu (规划)
等　　级：  ^
信 誉 值：  100
所属论坛：  VB VBA
问题点数：  20
回复次数：  2
发表时间：  2003-6-2 20:12:00

我在VB开发时遇到一个问题，需要读取Excel的文件，处理对应的数据后，显示在窗口内，希望得到以下几方面的指教：
1、如何打开和读取对应的文件和数据？
2、数据处理后在窗口内显示，是一组数据，希望用Textbox来显示，对它能否进行循环处理？如:Text1.Text/Text2.Text/……（40个）。
3、希望输出的文件是以当前的日期为文件名的一部分，如何实现？
4、打印的格式如何控制？希望是打印一张表格，有7列40行。
本人新来此地，刚用也不久，那位高手可以给与支持吗？
谢了！

回复人： hzlwzpinlu(规划) ( 一级(初级)) 信誉：100 2003-6-2 20:33:18 得分:0

那位大侠出手，在下不胜感激！
有点急！

回复人： rappercn(rapper) ( 三级(初级)) 信誉：97 2003-6-2 21:06:33 得分:20

1.dim xlApp as excel.application

dim xlBook as excel.workbook
dim xlsheet as excel.worksheet

Set xlApp = CreateObject("Excel.Application") 
xlApp.Visible = False ‘隐藏EXCEL应用程序窗口 
Set xlBook = xlApp.Workbooks.Open("excel.xls") 
Set xlSheet = xlBook.Worksheets(1)
...
...
...
xlbook.save
xlbook.close
xlapp.quit
set xlbook=nothing
set xlapp=nothing

2.控件数组，text(0)-text(40)，用index循环
或者：me.control("text" & i).text = ""

3.open "c:" & format(NOW(),"YYYYMMDDHHMMSS") & ".tmp" for output as #1

4.用报表工具画（水晶或者Active Report）

该问题已经结贴，得分记录： rappercn (20)、

# 关于文件读取得问题

关于文件读取得问题