各位走过路过的大神，有个关于vb调用Excel的问题想请教大家。

在程序运行到画红线的位置的时候，就会出现下面的提示：

有人做过这类似的东西没，我个人感觉虽然提示错误出现在保存的语句上，但是这个不是引发错误的原因，是因为某个地方有问题所以导致不能保存，才会出现这样的提示，具体哪里出问题了，我就不知道了。。

这个窗口的作用是，点击确定之后把文本框中的文字都保存在一个Excel文件的固定地方，本来是测试通过的，保存的时候也不会出现保存不了的现象，也没有恢复信息的提示，但是，这之后我想加一个功能，就是之前说的批量转换的那个，错误就是在这时出现的，批量转换的保存时出问题了，在这之后我发现原本没问题的这个窗口也跟着出问题了，想了好多办法，也把后来加的全都注释掉试过，这个原来是没问题的，现在也在保存的时候出现了问题，真心不知道错哪里了。

有没有人啊，有什么想法都可以说出来听听啊

app.path后面的符号/不对，应该是\。

你可以试试ado的方法，把Excel当数据库使用。

'　===========================================
'　Adodc1＋DataGrid1模式：
'　-------------------------------------------
'　在工具箱中添加两个（部件）控件：
'　①　Adodc 控件：Microsoft ADO Data Control6.0
'　②　DataGrid 控件：Microsoft DateGrid Data Control6.0
'　将这个两个控件画在 Form1 中
'　-------------------------------------------
Option Explicit
Public mPath As String '　程序所在的绝对路径
Public mLink As String '　数据库连接字符串
Public mSQL As String '　ＳＱＬ命令字符串
Public mWJ As String '　Excel 文件名
Private Sub 连接数据()
'　连接数据库表装入数据并刷新记录集
Adodc1.ConnectionString = mLink
Adodc1.CommandType = 8
Adodc1.EOFAction = 2
Adodc1.RecordSource = mSQL
Adodc1.Refresh
'　将数据填表并刷新表格控件
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
Private Sub 连接参数()
'　构成连接 Excel2003 表格命令：mLink
mLink = "Provider = Microsoft.Jet.OLEDB."
mLink = mLink & "4.0; Persist Security "
mLink = mLink & "Info = FALSE; "
mLink = mLink & "data source = " & mWJ
mLink = mLink & "; extended properties "
mLink = mLink & "= Excel 8.0"
'　构成 SQL－SELECT 语句格式
mSQL = "Select * From [Sheet1$]"
End Sub
'　===========================================
'　有这两个子程序，装载并显示数据 ——
Call 连接参数: Call 连接数据

Private Sub Form_Load()
mPath = App.Path '　获取程序所在的绝对路径
If Right(mPath, 1) <> "\" Then mPath = mPath & "\"
'　……
End Sub

　Excel 2007 版本
mLink = "Provider = MSDASQL.1; Persist Security Info = FALSE; data source = test.xls; extended properties = " & "DSN = Excel Files; DBQ = " & "Excel表.XLSX" & "; DriverID = 1046;FIL = Excel 8.0"

Excel 作为数据库表使用，要遵循以下规定：
1.　第一行是字段名；
2.　从第二行开始是数据内容；
3.　表中不能合并单元格；
4.　表外表头部分在页眉中；
5.　表外表底部分在页脚中。