WSHでスプレッドシートを読むには？

Question

WSHでJScriptを使用して、.xlsファイルからいくつかのセル値を読み取る必要があります。

COMオブジェクトまたはこれに使用できるものはありますか？

Answer 1

実は、このためのCOMコンポーネントがあります。そのプログラムは「Excel.Application」で、次のように使用します。

var XLS = WScript.CreateObject("Excel.Application") ; 
XLS.Workbooks.open(xlsFile) ; 
var cellValue = XLS.Cells(row,col).Value ; 

これはそれです。それと同じくらい簡単です。変数cellValueは、セルの値を保持します（row、col）。
これで十分でない場合は、xlsFileがファイルまたはURLへのパスになる可能性があります（はい、URL！、素晴らしいことではありません）。

Answer 2

あなたが値を読み取るためにADOを使用することができます...

http://technet.microsoft.com/en-us/library/ee692882.aspx

Answer 3

%のWINDIR％\ SYSWOW64 \ます。cscript.exe ExcelSheetName.vbs

ExcelSheetName.vbs：

Const ArrSize = 100 

Dim ArrSheetName() 

ReDim ArrSheetName(ArrSize) 

IndexArr = 0 



Dim ExcelFileName 

ExcelFileName = "D:\1\ExcelSrc.xls" 


Dim ADOCatalog, ADOTable, ADODBConnection 

Set ADOCatalog  = Createobject("ADOX.Catalog") 

Set ADOTable  = Createobject("ADOX.Table") 

Set ADODBConnection = CreateObject("ADODB.Connection") 


Dim strConnString, strSheetName 

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ExcelFileName & ";Extended Properties=Excel 8.0;" 


ADODBConnection.Open strConnString 

Set ADOCatalog.ActiveConnection = ADODBConnection 


For Each ADOTable In ADOCatalog.Tables 

    strSheetName = ADOTable.Name 

    strSheetName = Replace(strSheetName, "'", "") 

    strSheetName = Left(strSheetName, InStr(1, strSheetName, "$", 1) - 1) 

    'Wscript.Echo strSheetName 

    ArrSheetName(IndexArr)=strSheetName 

    IndexArr=IndexArr+1 

Next 

ReDim Preserve ArrSheetName(IndexArr-1) 

ADODBConnection.Close 

Set ADOCatalog  = Nothing 

Set ADOTable  = Nothing 

Set ADODBConnection = Nothing 


For Each ArrValue in ArrSheetName 

    Wscript.Echo ArrValue 

Next