Office中国论坛/Access中国论坛

标题: 关于EXCEL值引用的方法及想法 [打印本页]

作者: williamwangc 时间: 2011-10-23 20:55
标题: 关于EXCEL值引用的方法及想法
我刚刚做出一个EXCEL某单元格值得引用的公共函数，可见下面的代码。但在这里我也有些疑问：
1.打开EXCEL的过程过于耗费内存和时间，是否有更加快捷的办法？
2.在下面的代码中我使用的是CreateObject,我想问的是，如果我用GetObject（文件路径，）引用未打开的EXCEL是否有效？

Public Function str_excel(ByVal path As String, ByVal h As Integer, ByVal l As Integer) As String
'path是路径，h是行,l是列
Dim appExcel As Object
Dim ws As Excel.Worksheet
Dim wk As Excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set wk = appExcel.Application.Workbooks.Add(path)
Set ws = wk.Worksheets(1)
str_excel = ws.Cells(h, l).Value
wk.Close

复制代码

PS.其实我做这段代码的主要目的是实现不规则的单独单元格内容的导入。希望大家可以借鉴和号的建议。

作者: williamwangc 时间: 2011-10-23 22:32
本帖最后由 williamwangc 于 2011-10-23 22:34 编辑

现在在这段功能函数在实际应用中出现了问题，希望有人解答一下。
代码如下：

Dim str_school As String
Dim str_class As String
Dim str_path As String
Dim str_update1 As String
Dim str_update2 As String
str_path = CurrentProject.path & "" & "导入资料.xls"
str_school = str_excel(str_path, 2, 2)
str_class = str_excel(str_path, 4, 2)
Debug.Print str_school
Debug.Print str_class
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "资料", str_path, True, "Sheet1!A6:B20"
str_update1 = "UPDATE [资料] SET [学校]=str_school WHERE [学校]='' "
DoCmd.RunSQL str_update1
str_update2 = "UPDATE [资料] SET [班级]=str_class WHERE [班级]='' "
DoCmd.RunSQL str_update2

复制代码

发现这段代码有两大问题
1.两段DEBUG.PRINT显示的内容是一样的,是不是函数在设置的时候应该用BYREF比较正确呢？
2.在两段UPDATE里面无法发现str_school和str_class的值，这是怎么回事？

作者: roych 时间: 2011-10-23 23:48
1、可以用ADO来读取Excel数据来改进。
2、未打开Excel应该用CreateObject。有些书上说，打开Excel后，可以用GetObject，不过之前我的测试貌似出错。
3、代码部分应为：
UPDATE 资料 SET 资料.学校=str_school WHERE 资料.学校 IS NULL
跟ByVal和ByRef没关系，我一般连这个前缀都不写的。直接用
Function Test( A As String, B As String) As String
…………………………
End Function

作者: williamwangc 时间: 2011-10-24 11:19
本帖最后由 williamwangc 于 2011-10-24 11:26 编辑

再问下版主，我始终在16行和18行两个引用的参数无法实现。这是为什么？我在第11和12的debug.print都是有内容的。但到update里面就认不出参数了(str_school和str_class)。这是为什么？
其实就是我上面的问题2，还是没解决。它说无法辨认我的str_excel的数值，明明debug.print里面都实现引用了。{:soso_e132:}

作者: roych 时间: 2011-10-25 20:04
给字段类型有关系么？Excel里，默认输入的数字都默认为数值型。按你的Update部分，“学校”和“班级”也应当是数值型字段噢。——你确定么？

作者: williamwangc 时间: 2011-10-25 21:06
本帖最后由 williamwangc 于 2011-10-25 21:23 编辑

我这里全是字符串型的，都是str的打头的嘛。

作者: roych 时间: 2011-10-28 03:07

williamwangc 发表于 2011-10-25 21:06
我这里全是字符串型的，都是str的打头的嘛。

如果是字符型，应当加上单引号：
str_update2 = "UPDATE [资料] SET [班级]='" & str_class & "' WHERE [班级] IS NULL "

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)