如何从Excel读数据呢?

[晨光暮曲]

最好有样例代码:)谢谢!

[MSSQL]

第一个方案：
用ADO
第二个方案：
用EXCEL的APPLICATION

[rednod]

kan

[qiuzhongshu]

将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表。

　　Function CreateExcelRecordset( XLS文件名,Sheet名 )

　　Dim conn.Driver,DBPath

　　‘ 建立Connection对象
　　Set conn = Server.CreateObject("ADODB.Connection")
　　Driver = "Driver={Microsoft Excel Driver (*.xls)};"
　　DBPath = "DBQ=" & Server.MapPath( "XLS文件名" )

　　‘ 调用Open 方法打开数据库
　　conn.Open Driver & DBPath
　　Set CreateExcelRecordset = Server.CreateObject("ADODB.Recordset")
　　‘ 打开Sheet，参数二为Connection对象,因为Excel ODBC驱动程序无法直接用‘sheet名来打开sheet,所以请注意以
下的select语句
　　CreateExcelRecordset.Open "Select * From ["&sheet&”$]”, conn, 2, 2

　　End Function

　　

[rainstormmaster]

VB中位图旋转的实现

VB中位图旋转的实现
www.codesky.net 2003-8-15 自由创意工作室



在VISUAL BASIC中没有什么命令或函数能够实现将一个位图旋转一个角度后显示出来，但我们可以用画点的方式，将一个图画盒中的位图中的像素点旋转一个角度后画入另一个图画盒中，当源图画盒中的像素都被画到目标图画盒中时，也就完成了位图的旋转。这里主要用到了VISUAL BASIC中的两个方法：POINT方法和PSET方法。POINT方法的作用是从源图画盒中提取一个像素点的颜色值；而PSET方法的作用是按照旋转后的坐标和相应像素点的颜色值在目标图画盒中画点。显然这个方法的速度不会太快，因而适用于较小的图片。

下面介绍一下实现方法：进入VISUAL BASIC中，建立一个新的窗体。在窗体中加入两个图画盒控件（Picture1和Picture2），设置它们的Name属性为PicSource和PicTarget，并为PicSource图画盒的Picture属性设置一幅位图。再在窗体中加入一个按钮（CommandRotorate），设置它的Caption属性为“旋转”。然后加入以下代码：
Option Explicit
Const Pi = 3.14
Private Sub CommandRototate_Click()
Dim x As Integer, y As Integer
Dim X1 As Integer, Y1 As Integer
Dim X2 As Double, Y2 As Double
Dim X3 As Double, Y3 As Double
Dim JiaoDu As Double
Dim HuDu As Double
JiaoDu = 45 '角度
HuDu = JiaoDu * Pi / 180 '弧度
PicSource.ScaleMode = vbPixels
PicTarget.ScaleMode = vbPixels
For x = 0 To PicTarget.ScaleWidth
X1 = x - PicTarget.ScaleWidth \ 2
For y = 0 To PicTarget.ScaleHeight
Y1 = y - PicTarget.ScaleHeight \ 2
X2 = X1 * Cos(-HuDu) + Y1 * Sin(-HuDu)
Y2 = Y1 * Cos(-HuDu) - X1 * Sin(-HuDu)
X3 = X2 + PicSource.ScaleWidth \ 2
Y3 = Y2 + PicSource.ScaleHeight \ 2
If X3 > 0 And X3 < PicSource.ScaleWidth - 1 And Y3 > 0 And Y3 <
PicSource.ScaleHeight - 1 Then
PicTarget.PSet (x, y), PicSource.Point(X3, Y3)
End If
Next y
Next x
End Sub
运行后，按下“旋转”按钮，可以见到源图画盒中的位图旋转45度后进入到目标图画盒中。如果要改变旋转的角度，只需将JiaoDu变量设置为相应值即可。

[rainstormmaster]

呵呵，发错地方了

[ufozq77]

Private Sub Command1_Click()
Dim appexcel As Object
Dim wbmybook As Object
Dim wsmysheet
Dim x As Integer
Dim y As Integer
If Text1.Text <> "" And Text2.Text <> "" Then
x = Text1.Text
y = Text2.Text

Set appexcel = CreateObject("excel.application")
appexcel.Visible = True
Set wbmybook = appexcel.workbooks.Add
Set wsmysheet = appexcel.worksheets.Add
If Text3.Text <> "" Then
wsmysheet.Name = Text3.Text
wsmysheet.cells(x, y) = Text4.Text
Else
MsgBox "名称没有填写！", vbInformation
End If

Else
MsgBox "行和列必须填写！", vbInformation

End If

End Sub

[qiuzhongshu]

哈哈
来up 看有无新情况`

[晨光暮曲]

qiuzhongshu(不长毛的猪)你只是说了如何打开Excel的表，我如何操作它？比如我要读第二行第二例的内容，我要取出有多少行多少列怎么做呀？

帮忙顶呀！谢谢！

[yijiansong]

在 up

[晨光暮曲]

还有可以帮助我吗？ADO打开Excel表的问题才解决了一半！
或者谁知道我用ADO方式好还是APPLICATION方式好呢？
我只是想从Excel的表中读出数据来！
当然我不确定Excel的行列数，可能要时实读取！
如果分不够，可另开一贴再给分！
救命呀！

帮忙顶呀！谢谢！

[dary_zhou]

我认为APPLICATION方式比较好，好控制一些，不晓得行数和列数都是小事，当你读到RANG(这里可以是变量）.VALUE，这不就把值读出来了
如果是一个数据区的话可以用 变量＋“：”＋变量

[realinico]

我在引用了几个Excel表的数据好，每次在运行程序结束后，进程里还都留有一个EXCEL.EXE的进程，怎么把它结束掉呢？
我是这么写的:
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlBook = xlApp.Workbooks.Open(SelectedFile)
Set xlSheet = xlBook.Worksheets("Sheet1")


.............................................................


xlApp.Application.Quit



Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
哪位大侠能指导一下小菜鸟,不胜感激!!!

[betagain]

用EXCEL的APPLICATION
就是vba,定位于excel的单元格

[rednod]

在 up

[晨光暮曲]

qiuzhongshu(不长毛的猪) 我如用你的方法打开EXCEL的话，如何定位游标的位置呢？我不能移动它，它总是停在第二行上！:(

ufozq77(ZQ) 你的代码俺看不明了！能给俺讲讲吗？或都少写点注释也成呀:(

[qiuzhongshu]

Dim oConn As New ADODB.Connection
Dim oRS As New ADODB.Recordset

Private Sub Form_Load()
'假设有一xls文件在d:\test目录下
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=d:\test\test.xls;" & "Extended Properties=""Excel 8.0;"""
oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic '打开Sheet1

'***************
'关于读数据
'**************
oRS.MoveFirst '到第一记录,sheet1中的第一行不被认为是记录,记录从第二行开始
Label1.Caption = oRS.Fields(0) '读第一个记录,第1列的内容

oRS.Move 2 ''指针往下移动2个记录
Label2.Caption = oRS.Fields(0) '读数据

oRS.Move -1 '指针往回移动一个记录

Label3.Caption = oRS.AbsolutePosition '当前数据在第几个记录


oRS.MoveLast '指针移动到最后的记录
oRS.MovePrevious '指针往前一个记录移动
oRS.MoveNext '指针往后移动一个记录

'一切就象是ADO打开其他类型的数据库一样去操作就行了~


End Sub

Private Sub Form_Unload(Cancel As Integer)
oRS.Close
oConn.Close
End Sub


然后附上用到的Recordset对象的属性方法等资料
希望对你有用
Recordset对象

属性

属性名称 数据类型和用途
AbsolutePage 可读写Long类型，要么是设置或返回当前记录所处的页面序号，要么是一个PositionEnum常数，见AbsolutePage用到的常数。在获取或设置AbsolutePage的值之前，必须先设定PageSize的值。AbsolutePage是从1开始计数的。如果当前记录位于第一页时，AbsolutePage的返回值为1，对AbsolutePage设置将使当前记录指针指向指定页的第一条记录。
AbsolutePosition* 可读写的Long类型（从1开始计数），设置或返回当前记录年处的位置。AbsolutePosition的最大取值是RecordCount属性的值。
ActiveCommand 可读写的String类型，Recordset所关联的先前打开的Command对象名称
ActiveConnection 指针类型，指向Recordset所关联的先前打开的Connection对象，或指向一条完整有效的ConnectionString串值。

BOF* 只读Boolean类型，若为True，表明记录指针已位于Recordset第一条记录之前，并且没有了当前记录
Bookmark* 可读写Variant类型，返回对特定记录的引用或使用一个Bookmark值使记录指针指向特定记录
CacheSize* 可读写Long类型，指定本地Cache中所存的记录条数，最小(默认值)为1。若增加了CacheSize的值，则在流动Recordset以获取更多记录时，能减少与服务器的通信次数。
CursorLocation 可读写Long类型，指定可流动游标的位置，即CursorType是位于客户端还是位于服务器端，见CursorLocation用到的常数。默认值是使用OLE DB数据源提供的游标。
CusrsorType* 可读写Long类型，指定Recordset游标的类型，见CursorType用到的常数，默认值是forward-only游标
DataMember 指针类型，指向关联的DataEnvironment.Command对象
DataSource 指针类型，指向关联的DataEnvironment.Connection对象
EditMode* 只读Long类型，返回Recordset的编辑状态，见EditMode用到的常数
EOF* 只读Boolean类型，若为True，表明记录指针已超出Recordset的最后一条记录，并且没有了当前记录。
Filter* 可读写Variant类型，要么是一条件表达式（一条有效的SQL WHERE子句但又不出现保留字WHERE），要么是指向特定记录的Bookmark数组，要么是一个Filter常数，详见Filter用到的常数。
LockType* 可读写Long类型，指定打开Recordset所使用的记录锁定方法。默认值是只读，对应于forward-only游标的只读特性。见LockType属性用到的常数。
MarshalOptions 可读写Long类型，指定客户端改动后，应返回哪个记录集合，此属性仅适合于不常见的ADOR.Recordset对象，此对象是RDS.ADOR.Recordset对象成员之一。
MaxRecords* 可读写Long类型，指定SELECT查询或存储过程返回的最大记录条数，默认值为0，即全部返回
PageCount 只读Long类型，返回Recordset所有的页数，必须设定了PageSize的值，PageCount的返回值才是真正有意义的。如果Recordset不支持PageCount属性，则返回值为-1
PageSize 可读写Long类型，设置或返回一个逻辑页所包含的记录条数。使用逻辑页可把大的Recordset分解为多个易处理的小部分。通常的做法是把PageSize设为DataGrid、MsFlexGrid或层次型的FlexGrid控件所能显示的记录条数。PageSize和锁定Jet(2k)或锁定SQL Server(6.5版及更早版本,2k;7.0版，8k)数据库时用到的表页面大小无关
PersistFormat 可读写Long类型，设置或返回由调用Save方法所创建的Recordset文件的格式。当前仅有一个值adPersistADTG(默认格式：Advanced Data TableGram)
RecordCount* 只读Long类型，如果Recordset支持近似定位或支持书签，则返回带可流动游标的Recordset所含有的记录数；如果不支持，必须使用MoveLast方法以取得确实覆盖了所有记录的准确的RecordCount数值。如果forward-only类型Recordset有一条或多条记录，Recordset返回-1(True),任何类型的空的Recordset都将返回0(False)
Sort* 可读写String类型，包含一条不含保留字ORDER BY的SQL ORDERY BY子句，用以指定Recordset的排序方式
Source* 可读写String类型，可以是SQL语句、表名、存储过程名或相关Command对象名。如果提供了Command对象名，则Source将返回Command.CommandText的值。利用Open方法的参数lngOptions可以指定提供给Source值的类型
State 可读写Long类型，为对象状态常数之一。见State常数
Status 只读Long类型，表明对Recordset进行批处理或其他多记录(bulk)操作后的状态。见Status属性用到的常数

注意：上表所列属性是ADODB.Recordset对象的标准属性，即那些被关系数据库的大多数通用OLE DB数据提供者所支持的属性。带星号的属性表示它与DAO.Recordset或rdoResultset对象的相应属性完全一样或很接近。

[qiuzhongshu]

方法

方法 用途
AddNew* 向可更新的Recordset添加一条新记录。调用语法为rstName.AddNew[{varField|avarFields},{varValue|avarValuese}],其中varField是单个字段名，avarFields是字段名数组。varValue是单个字段值，avarValue是由avarFields指定字段的值所组成的数组。调用Update方法则把新记录加到数据库的表中。如果向主关键字不是第一个字段的Recordset中添加记录，则必须在AddNew方法中指定主关键字的名称和值
Cancel 取消异步查询的执行，中止存储过程或复合SQL语句创建多个Recordset，调用语法为rstName.Cancel
CancelBatch* 取消LockEdit值为BatchOptimistic的Recordset的即将生效的批量更新操作，调用语法为：rstName.CancelBatch [lngAffectRecords],可选参数lngAffectRecords的取值见lngAffectRecords用到的常数
Clone 复制一个带有独立记录指针的Recordset对象，调用语法为：Set rstDupe=rstName.Clone()
Close 关闭Recordset对象，以后可以重新设Recordset的属性并使用Open方法来再度访问Recordset 。调用语法为:rstName.Close
Delete* 如果Recordset的LockEdit属性值未设为adLockBatchOptimistic，立刻从Recordset和相应表中删除当前记录
Find 寻找满足指定条件的记录。调用语法为：rstName.Find strCriteria [,lngSkipRecords, lngSearchDirection [,lngStart]],其中strCriteria是不含WHERE关键字的SQL WHERE子句，可选参数lngSkipRecords是应用Find前所跳过的记录数目，lngDirection指定查找方向(adSearchForward,和adSearchBackward,其中adSearchForward是默认值),可选参数lngStart指定了从哪儿开始查找，其值要么是一个Bookmark值，要么是Bookmark常数，见varStart参数用到的Bookmark常数。
GetRows 返回一个二维Variant数组（行、列），调用语法为avarname=rstName.GetRows(lngRows [,varStart[,{strFieldName|lngFieldIndex|avarFieldNames|avarFieldIndexes}]],其中lngRows是返回记录行数，varStart指定从哪儿开始查找，其值要么是一个Bookmark值，要么是Bookmark常数，见varStart参数用到的Bookmark常数。第三个参数可以是单个列（字段）的名称或索引，也可以是多个列名称或索引组成的Variant数组。如果不指定第三个参数，GetRows返回Recordset中所有列。
GetString 默认情况下，返回指定数目记录的String串值，记录间由返回代码分隔。记录内由tab分隔。调用语法为： strClip=rstname.GetString(lngRows,[, strCloumnDelimiter[,strRowDelimiter,[strNullExpr]]])。其中lngRows为返回记录行数，strColumnDelimiter为可选的列分隔符(vbTab是默认值),strRowDelimiter是可选的行分隔符(vbCr是默认值)，strNullExpr是可选参数，用于碰到Null值时的替代值（默认值是空字符串）。GetString的主要用途是通过把控件的Clip属性设为strClip来处理MSFlexGrid或MSHFlexGrid控件
Move* 从当前记录移动记录指针。调用语法为：rstName.Move lngNumRecords [, varStart],其中lngNumRecords是要跳过的记录数，可选选参数varStart指定从哪开始移动。其值要么是一个Bookmark值，要么是Bookmark常数，见varStart参数用到的Bookmark常数。
MoveFirst* 移动记录指针到第一条记录，调用语法为：rstName.MoveFirst
MoveLast* 移动记录指针到最后一条记录，调用语法为：rstName.MoveLast
MoveNext 移动记录指针到下一条记录，调用语法为：rstName.MoveNext。它是能用于forward-only Recordset的唯一Move方法
MovePrevious* 移动记录指针到前一条记录，调用语法为：rstName.MovePrevious
NextRecordset 返回另外的Recordset,它通常由能产生多个Recordset的复合SQL语句(如SELECT * FROM orders;SELECT * FROM customers)或存储过程来创建。调用语法为Next=rstName.NextRecordset [(lngRecordsAffected)],其中可选参数lngRecordsAffected指定返回到rstNext中去的记录数目。如果已不存在Recordset，rstNext被设为Nothing
Open 在一个活动Command或Connection对象上打开一个Recordset，调用语法为：rstName.Open [varSource [, varActiveConnection [, lngCursorType [, lngLockType [, lngOptions]]]]]。这些参数都是可选的，
Requery 重新从表中获取Recordset的内容，等效于Close后再Open。它是一个资源集中型操作。语法为：rstName.Requery
Resync* 重新从表中获取部分Recordset内容。调用语法为rstName.Resync [lngAffectRecords],其中lngAffectRecords的取值见lngAffectRecords用到的常数。如果把该参数设为adAffectCurrent或adAffectGroup，则比adAffectAll(默认值)所耗的资源要少。
Save 创建包含Recordset永久性拷贝的文件。调用语法为rstName.Save strFileName。其中strFileName为路径和文件名。通常用.rst作为文件的扩展名。
Supports 如果数据提供者支持指定的游标相关的方法，则返回True，否则返回为False。调用语法为Supported=rstname.Supports (lngCursorOptions).关于lngCursorOptions,见Supports方法用到的常数。
Update* 使对Recordset的修改对底层数据源中的表生效。对于批量操作，Update方法只使修改对本地(Cached)Recordset生效。调用语法为rstName.Update
UpdateBatch* 合对指量类型的Recordset(LockType属性值为adBatchOptimistic,CursorType属性值为adOpenKeyset或adOpenStatic)所做的修改对底层数据源中的表生效。调用语法为rstName.UpdateBatch [lngAffectRecords],其中lngAffectRecords的取值见lngAffectrecords用到的常数。

注：ADODB.Recordset对象不支持Edit方法。为了改变ADODB.Recordset对象当前记录的一个或多个字段的值，可以先使用rstName.Fields(n).Value=varValue把相应字段的值改为所需要的值，而后执行rstName.Update即可。

事件

事件名称 触发时机
EndOfRecordset 记录指针试图移到最后一条记录之外时
FieldchangeComplete 字段值的改变完成之后
MoveComplete Move或Move...方法执行之后
RecordsChangeComplete 对单个记录编辑完成以后
RecordsetChangeComplete 缓存中的改变对底层表生效之后
WillChangField 对字段值改变之前
WillChangeRecord 对单个记录改变之前
WillChangeRecordset 缓存中的改变对底层表生效之前
WillMove Move或Move...方法执行之前

注：事件处理模块的函数头几乎都用到了adReason参数。该参数的取值见adReason参数用到的常数。

[qiuzhongshu]

常数

AbsolutePage属性用到的常数

常数 含义
adPosUnknown 数据提供者不支持页面，Recordset为空，或数据提供者不能确定页码。
adPosBOF 记录指针定位于文件开头（BOF属性值为True）
adPosEOF 记录指针定位于文件结尾（EOF属性值为True）

CursorLocation属性用到的常数

常数 含义
adUseClient 使用客户端游标库提供的游标。ADODB.Recordset要求客户端游标
adUseServer 使用数据源提供的游标，通常（但非绝对）位于服务器上（默认值）

CursorType属性用到的常数

常数 含义
adOpenForwardonly 提供单向移动游标和只读Recordset（默认值）
adOpenDynamic 提供可滚动游标，可显示其他用户对Recordset所做的改动（包括添加新记录）
adOpenKeyset 提供可滚动游标，只隐藏其他用户所做的改动，类似于dynaset类型的DAO.Recordset
adOpenStatic 提供一个位于Recordset静态拷贝上的可滚动游标，类似于snapshot类型的DAO.Recordset，但多了可更新特性

EditMode属性用到的常数

常数 含义
adEditNone 无正在进行的编辑操作(默认值)
adEditAdd 临时添加一条记录，但尚未存入数据库的表中
adEditInProgress 当前记录中的数据已经改动，但尚未存入数据库的表中

Filter属性用到的常数

常数 含义
adFilterNone 除去已有的过滤器，显示Recordset中的所有记录（等效于把Filter属性置为空串，默认值）
adfilterAffectedRecords 只显示上次CancelBatch、Delete、Resync或UpdateBatch方法执行后所影响的记录
adFilterFetchedRecords 只当前Cache中的记录，记录条数由CacheSize来确定
adFilterPendingRecords 只显示已改动但尚未被数据源处理的记录（仅适用于批量更新模式）

LockType属性用到的常数

常数 含义
adLockRecordOnly 指定只读访问（默认值）
adLockBatchOptimistic 使用批量更新模式而不是默认的立即更新模式
adLockOptimistic 使用乐观锁（仅在更新过程中才锁定记录或页面）
adLockPessimistic 使用悲观锁（编辑或更新整个过程中均锁定记录或页面）

State常数

常数 含义
adStateClosed Connection(或其他对象)是关闭的(默认值)
adStateConnecting 正在连接数据源的状态
adStateExecuting Connection或Command对象的Execute方法已被调用
adStateFetching 返回行(row)到Recordset对象
adStateOpen Connection(或其他对象)是打开的(活动的)

Status属性用到的常数(仅适用于Batch或Bulk Recordset操作)

常数 含义
adRecOK 成功更新
adRecNew 成功添加
adRecModified 成功修改
adRecDeleted 成功删除
adRecUnmodified 无改动
adRecInvalid 未保存：Bookmark属性无效
adRecMultipleChanges 未保存：保存会影响其他记录
adRecPendingChanges 未保存：记录引用了一个等待插入操作
adRecCanceled 未保存：操作被取消
adRecCantRelease 未保存：现有记录值阻止了保存
adRecConcurrencyViolation 未保存：乐观并发锁发生了问题
adRecIntegrityViolation 未保存：操作会影响一致性
adRecMaxChangesExceeded 未保存：存在太多的等待改动
adRecObjectOpen 未保存：打开存贮对象发生冲突
adRecOutofMemory 未保存：内存不足
adRecPermissionDenied 未保存：用户权限不够
adRecSchemaViolation 未保存：记录的结构不符合数据库中的定义
adRecDBDeleted 未保存或删除：记录已被删除

lngAffectRecords参数用到的常数

Command类型常数 含义
adAffectAll 包括Recordset对象的所有记录，那些被Filter属性过滤隐藏的记录也计算在内（默认值）
adAffectCurrent 只包括当前记录
adAffectGroup 只包括那些符合当前Filter条件的记录

varStart参数用到的Bookmark常数

常数 含义
adBookmarkCurrent 从当前记录开始（默认值）
adBookmarkFirst 从第一条记录开始
adBookmarkLast 从最后一条记录开始



Supports方法用到的常数

常数 含义
adAddNew 调用AddNew方法
adApproxPosition 设置和得到Absoluteposition和AbsolutePage属性值
adBookmark 设置和得到Bookmark属性值
adDelete 调用Delete方法
adHoldRecords 获取另外的记录或改变获取记录指针的位置，但不提交未确定的改变
adMovePrevious 调用GetRows,Move,MoveFirst和MovePrevious方法（表明是一个双向可滚动游标）
adResync 调用Resync方法
adUpdate 调用Update方法
adUpdateBatch 调用UpdateBatch和CancelBatch方法



adReason参数用到的常数

常数 含义
AdRsnAddNew 调用了AddNew方法
AdRsnClose 调用了Close方法
AdRsnDelete 调用了Delete方法
AdRsnFirstChange 第一次对记录字段值做了修改
AdRsnMove 调用了Move方法
AdRsnMoveFirst 调用了MoveFirst方法
AdRsnMoveLast 调用了MoveLast方法
AdRsnMovePrevious 调用了MovePrevious方法
AdRsnRequery 调用了Requery方法
AdRsnResync 调用了Resync方法
AdRsnUndoAddNew AddNew操作被用户取消
AdRsnUndoDelete Delete操作被用户取消
AdRsnUndoUpdate Update操作被用户取消
AdRsnUpdate 调用了Update方法