VBscript 的问题

Ryan1984

各位,小弟写了一个vbscript来开excel file， 可是有error,我弄了很久，还是弄不到，想请各位前辈帮帮忙！
我的OS是window vista
Error Message是 the server threw an exception.
code是:-
Option Explicit

Dim ad
Dim sql_query
Dim objFSO, objOutFile
Dim intCount, i
Dim objExcel,objSheet, intRow,strExcelPath

Set objExcel = CreateObject("Excel.Application")
If (Err.Number <> 0) Then
    On Error GoTo 0
    Wscript.Echo "Excel application not found."
    Wscript.Quit
Else Wscript.Echo "Excel application found."
End If
On Error GoTo 0

strExcelPath = "C:\XXXX.xls"

objExcel.WorkBooks.open strExcelPath  ' Where place the the error Hit
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)



objExcel.ActiveWorkbook.Close
objExcel.Application.Quit

shoeeo

xxxxxxxxxxxxxxxx

答错了

[ 本帖最后由 shoeeo 于 30-12-2008 12:46 PM 编辑 ]

Ryan1984

原帖由 shoeeo 于 30-12-2008 11:33 AM 发表
strExcelPath = "C:\\XXXX.xls"

escape word
\\

不明白

shoeeo

原帖由 Ryan1984 于 30-12-2008 11:47 AM 发表

不明白

不用想了，不是我说的问题，我说错了
等其他高手帮你吧

shoeeo

试下
http://www.microsoft.com/technet ... /mar05/hey0330.mspx

Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Testsheet.xls"

objExcel.WorkBooks.open strExcelPath  ' Where place the the error Hit

open 的方法有点不同

Ryan1984

对呀，这code在xp能用。
谢谢！！！：）

[ 本帖最后由 Ryan1984 于 31-12-2008 10:26 AM 编辑 ]