VB路径未找到？

Dim i As Integer, j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

FileCopy App.Path + "\qqqq\wwww.xlt ", lujing + "\qqq\tmp.xlt "
'** wwww.xlt shi excel mo ban
FileName = App.Path + "\qqqq\wwww.xls "

Set xlApp = CreateObject("Excel.Application ")
Set xlBook = xlApp.Workbooks.Open(FileName)

xlApp.Visible = True

Set xlsheet = xlBook.Sheets("sheet1 ")
With xlsheet
For i = 0 To Grid1.Rows - 1
Grid1.Row = i
For j = 0 To 14
Grid1.Col = j

不能打开VB数据库 提示路径未找到 怎么办？ vb文件未找到dll VB未找到方法或数据成员 关于vb中的文件未找到 Microsoft VBScript 运行时错误 (0x800A004C)路径未找到 vb中不能加载控件 Winsock1; 许可证未找到。 "未找到方法或数据成员"VB提示 急！！！VB提示“未找到方法或数据成员” vb 未找到数据成员或方法 combo Help！！！VB提示“未找到方法或数据成员”