「読み取り専用」でExcelで開くサンプル。
起動中のExcelがあれば、それで開く。なければ新しいExcelを起動して、そのExcelで開く。
起動中のExcelがあれば、それで開く。なければ新しいExcelを起動して、そのExcelで開く。
[履歴] スクリプトと同じフォルダ ├ computerName | ├ PC1 | | └ User1 | └ PC2 └ userName ├ User1 | └ PC1 ├ User2 └ User3
9. 秘密保持お客様は、当社の事前の書面による承諾なく Google 機密情報を開示しないことに合意するものとします。「Google 機密情報」には、(a)本サービスに関連する一切の Google のソフトウェア、技術および文書、(b)本サービスとの関係において広告媒体の実績に関連したクリックスルー率その他の統計、(c)本サービスにおけるベータ版機能の存在およびそれに関する情報、ならびに(d)Google により提供されるその他の情報であって、機密であると指定されるか、それが提示される状況において通常機密とみなされるものが含まれます。Google 機密情報には、お客様による本サービスの利用より前にお客様にとって既知であった情報、お客様の責によらず公知となった情報、お客様が独自に開発した情報、または第三者によりお客様に適法に与えられた情報は、含まれないものとします。
fs = new ActiveXObject('Scripting.FileSystemObject') shell = new ActiveXObject('WScript.Shell') // テキストファイル入出力 Read = function(path, swCreate, swUnicode){ if(!fs.FileExists(path) && !swCreate){return ''} var rs=fs.OpenTextFile(path,1,swCreate,swUnicode), str=rs.AtEndOfStream?'':rs.ReadAll() rs.Close() return str } Write = function(path,str,swUnicode,sw追記){ with(fs.OpenTextFile(path,sw追記?8:2,true,swUnicode)){Write(str); Close()} } RAS = function(path){return Read(path).split('\r\n')}