|
各位老师看看我使用excel调用access数据,但是提示我有字段有误,
run time error '2147217900(80040e14)':
undefined function 'nz' in excpression
Sub CreateQuery()
'引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SQL As String
Dim i As Integer
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.accdb"
SQL = "SELECT * FROM qrySO_Linked_WO_Tag_Detail" '是由这个查询数据
rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
Cells.ClearContents
For i = 0 To rst.Fields.Count - 1
Cells(1, i + 1) = rst.Fields(i).Name
Next
Range("A2").CopyFromRecordset rst
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
我的access里面有一个查询”qrySO_Linked_WO_Tag_Detail”里面是由两个其他查询建立起来的
这两个查询:里面使用了NZ()这个函数。 附件中的access里面的表暂时我断了链接(原数据是链接excel表的),所以这两个表的结构是不可以修改的,请在这个附件例子上进行修改,谢谢
请帮助看看什么原因?谢谢
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|