accsee 2000 vba 数据导入excel 提示错误 字段溢出

[xty353535]

直接发代码

Function FSN050(FileName As String, SYSKBN As Integer) As Integer

Dim VBFileDialog As struct_VBFileDialog
Dim iOpenFileDialog As Integer
Dim sFilter As String
Dim iParentWnd As Long

iOpenFileDialog = False

sFilter = "Excel 5.0ﾌﾞｯｸ (*.XLS)|*.XLS|すべてのﾌｧｲﾙ(*.*)|*.*||"

iParentWnd = Screen.ActiveForm.hWnd

Call VBFileDialogVBFileDialog(VBFileDialog, iOpenFileDialog, sFilter, iParentWnd)
’ 运行到这步跳转

Sub VBFileDialogVBFileDialog(VBFileDialog As struct_VBFileDialog, iOpenFileDialog As Integer, sFilter As String, iParentWnd As Long)


Dim ofn As struct_OPENFILENAME

If iOpenFileDialog = True Then
VBFileDialog.iOpenFileDialog = True
Else
VBFileDialog.iOpenFileDialog = False
End If

VBFileDialog.m_ofn = ofn


VBFileDialog.m_ofn.lStructSize = Len(VBFileDialog.m_ofn)


VBFileDialog.m_ofn.hWndOwner = iParentWnd ’运行到这跳转

fput_exceldata_err:
MsgBox Error$ ’到这 提示字段溢出
On Error GoTo 0
DoCmd.Hourglass False
fput_exceldata = False
Exit Function


VBFileDialog.m_ofn ofn 这俩值查的时候 是类型不一致
VBFileDialog.m_ofn.lStructSize=0 Len(VBFileDialog.m_ofn) = 72
iParentWnd = 8388892 VBFileDialog.m_ofn.hWndOwner = 0

求高手解答，急急急

[wwwwb]

检查一下是什么字段，
直接用
select * into [excel 8.0;database=123.xls].sheet1 from tt
试试