VB 读取excel数据的问题

我做了一个软件可以对桌面上存放的excel里指定列里的数据进行自动求和。在我本机上测试可以使用，但是到我同学机子上使用总是提示没有那个excel，但是桌面上明显有那个文档啊。我用的是2003版本的office。我同学用的是2007版本的，是不是这个问题啊。我把源码给大家看看。

Private Sub Command1_Click()
Dim Ap As Object, Sht As Object, i As Integer, s As Long
Dim hs As Long
Dim ms As Long
Dim ss As Long
If Dir(Environ("userprofile") & "\桌面\" & "WLAN话单.xls") = "" Then
MsgBox "请将文件“WLAN话单.xls”下载下来并放到桌面上！", vbOKOnly, "文件未找到"
Else

Set Ap = CreateObject("Excel.Application")
Set Sht = Ap.Workbooks.Open(Environ$("userprofile") + "\桌面\WLAN话单.xls").Worksheets("WLAN话单")
For i = 2 To 100
s = s + Val(Sht.Cells(i, 3))
Next
hs = s \ 3600
ms = (s - hs * 3600) \ 60
ss = s - hs * 3600 - ms * 60
Text1.Text = hs
Text2.Text = ms
Text3.Text = ss

Ap.Quit
Set Sht = Nothing
Set Ap = Nothing

OFFICE2007版的EXCEL文件的扩展名不是.xls,而是.xlsx
所以会提示找不到文件

扩展名不同，可以显示扩展名看一下。

首先在桌面上用OFFICE2007建立EXCEL文档时，保存的时候一定要选择保存为2003的格式。两种格式的扩展名不一样，VB才无法找到。

路径、扩展名错误

关于VC,VB读取EXCEL表格中数据的问题 用VB读取EXCLE数据的问题 vb如何读取当前活动的excel单元格的数据？ VB的数据读取 求达人助，vb 中excel文件数据读取问题，追加50分 如何使用VB从运行的EXCEL中读取想要行想要列的数据？ vb和sql中读取数据问题 vb大侠帮忙（读取数据问题） 数据读取的问题 拿出80%分数,新手为工作求救vb读取excel内数据所在行的某列数据