• 締切済み

HTML内に組み込んだVBScriptでExcelの値を取得したい

ローカルドライブに C:\Book1.xls があります。 VBScriptで下記の記述をして、拡張子.vbsで保存し、そのファイルをダブルクリックすると、メッセージボックスにC:\Book1.xls のシート「管理」のセルA1の値を表示することができます。 Set objExcel = WScript.GetObject("C:\Book1.xls") WScript.Echo objExcel.Sheets("管理").Cells(1,1) これと同じようなことをHTML内に埋め込んだVBScriptでやりたいと考えています。 C:\Book1.xls のシート「管理」のセルA1に入力されている値を取得して、document.write を使って書き出したいと考えています。 出来れば、ネットワーク上のパスに置かれたExcelファイルに対しても同様のことをしたいと考えています。 サンプルコードなどをご教授願えないでしょうか？

  • Bonk
  • お礼率0% (0/2)

みんなの回答

回答No.2

http://www.happy2-island.com/vbs/cafe02/capter00803.shtml Set objRS = objADO.Execute("select * from 管理") Msgbox objRS(0).Name Msgbox objRS(0).Value

回答No.1

ローカルのHTMLなのでしょうか htmやhtmlから　htaやwsfに拡張子を変えてもいいでしょうか スクリプトは　深刻な障害が起きないように　 ローカルファイルへのアクセスが制限されています htaなどはその制限がありませんが　Webページとしては表示できません HTMLのVBS　とはどういうものを指しているでしょうか どういう使い方なのでしょうか　社内　社外　Web　LAN内 くわしく教えてください http://tuka.s12.xrea.com/index.xcg?p=HTA http://www.google.co.jp/search?num=50&hl=ja&q=HTA+APPLICATION&suggest=2&sa=X&oi=cjkrefinements&resnum=1&ct=result&cd=3 　

Bonk
質問者

補足

レスいただきまして、ありがとうございます。 LAN内でやりたいと考えています。 具体的には、ネットーワーク上のフォルダにExcelのブックがあり、複数人でこれを編集しています。 集計値がシート［管理］のセルC3に表示されるようになっているので、常に最新の値をWebページから確認できるようにしたいのです。 下記のようにHTML内にVBScriptを記述して、Excelから取得した値を変数「atai」に格納して、document.writeで表示したいと考えています。 拡張子はhtmlである必要があります。 <html> <head> <title>sample</title> </head> <body> <script language="VBScript"> <!-- dim atai '------------------------------ 'ここで、ネットワーク上のパス　 '\\192.169.2.20\test\Book1.xls 'のシート［管理］のセルC3の値を '変数 atai に格納して、下の 'document.write でWebページ上に '表示したい '------------------------------ document.write atai --> </script> </body> </html>

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VBScript実行時エラーについて

    filemakerでデータをコピーし下記のようなVBScriptを使いエクセルファイル（グラフを下準備してある）を開きそのデータを貼り付けグラフを完成させ、そのグラフをgifファイルにエクスポートで保存し、次にfilemaker側でそのgifファイルを読み込む作業するスクリプトを組んでいます。ここで,PCを起動したときとか、作業中でも度々VBScript実行時エラー（パスまたはファイル名が無効です）が発生します。エクスポート先のgifファイル名を替えると1時的に問題は解決しますが・・・あくまで一時的なものなのでなんとか根本的解決策をご教示願います。 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\Users\hhh gggg\Documents\FM_Trial\グラフ6.xlsx") objExcel.Visible = True objExcel.Sheets("sheet1").Select Createobject("WScript.Shell").AppActivate("グラフ6.xlsx") ' --A1のセルに値を設定 objExcel.Sheets("sheet1").Range("A1").Select objExcel.Sheets("sheet1").Paste objExcel.Sheets("sheet1").ChartObjects("グラフ 1").Chart. Export ("C:\Users\hhh gggg\Documents\FM_Trial\test61.gif") ' --0.5秒待つ WScript.Sleep(1500) ' --Excel終了 objWorkbook.Close False objExcel.Quit ' --Excelオブジェクトクリア Set objExcel = Nothing

  • エクセルVBAとVBScript

    WinXP/Pro 　エクセル2002使用です。 VBScriptで下記のメール送信のプログラムを作り、 それをエクセルVBA→BATファイル→VBScript（→エクセルVBAに戻る）という流れで自動化させましたが、下記のコードでは、現在進行中のエクセルVBAとは別のブックを作るのでうまくいきません。 （エクセルブックを2重起動してしまいます） Set objExcel =GetObject( "d:\auto\aaa.xls") Dim stradrs Dim strkk Dim strjikan with objExcel stradrs = .Worksheets("Sheet1").Cells(5,1).Value strkk= .Worksheets("Sheet1").Cells(4,1).Value strjikan = .Worksheets("Sheet1").Cells(4,2).Value end with Set objEmail = CreateObject("CDO.Message") objEmail.From = "***@***.com" objEmail.To = stradrs objEmail.Subject = "表題" objEmail.Textbody = "内容" objEmail.AddAttachment("d:\auto\" & strkk & strjikan & ".doc") objEmail.Send Set objEmail = nothing Set objExcel = nothing 目的は、最初に立ち上げている（VBScriptを呼び出したVBAを実行中の）エクセルから値を取得したいのです。 下記いずれかの方法によると思っています。 (1)エクセルVBAから直接VBScriptに引数で値を渡すことは可能でしょうか？ (2)VBScriptからエクセルブックを起動させずに値を取得することは可能でしょうか？ 値はテキスト文字です。 何卒よろしくお願いします。

  • エクセルマクロ　コピー元と貼り付け先を指定してコピー＆ペーストを実行するマクロ

    単刀直入にやりたいことを述べます。 Cドライブと仮定します。３つのBOOKがあります。 それぞれ ----- BOOK1.xls「○○Sheet」・・・（実行するファイル） 　　A 1　BOOK2.xls「△△Sheet」・・・（コピーするファイル名の指定です） 2　A2:E2・・・（コピーするセル範囲の指定） 3　BOOK3.xls「□□Sheet」・・・（貼り付け先のファイル名の指定です） 4　A5・・・（貼り付け先のセルの指定） ----- BOOK2.xls「△△Sheet」・・・（コピー元ファイル） 　 ＡＢＣＤＥ 1　あいうえお 2　かきくけこ 3　・・・・・ ----- BOOK3.xls「□□Sheet」・・・（貼り付け先のファイル） 　 ＡＢＣＤＥ 1　・・・・・ 2　かきくけこ・・・（貼り付け） 3　・・・・・ ----- ＞やりたいこと BOOK1.xls「○○Sheet」のA1のセルの値とA2セルの値を参照し、 その該当BOOKのセル範囲（BOOK2.xls「△△Sheet」のA2:E2）をコピーして、 BOOK1.xls「○○Sheet」のA3のセルの値と、A4セルの値を参照し、 その該当BOOKのセル範囲（BOOK3.xls「□□Sheet」のA5）へペーストする。 別のブックの指定したセルの値を別のブックの指定したセルへ貼り付けるだけなんですが、 以前関数を使って似たような事をしようとしたのですが、うまくいかなかったので、マクロならできるのでしょうか。 よろしくお願いします。（ちなみにエクセル2000又は2003です）

  • VBScriptで自動リンクONでExcelファイルのOpen

    お世話になっております。VBScriptでExcelの既存ブックファイル をオープンさせるのを見よう見真似で作成したのですが、開こうと しているブックに自動リンクが設定されていて、毎回 「開いているブックには、ほかのファイルへの自動リンク・・・・」 と聞かれ「Y」をクリックしています。 希望としてはYを自動で選択してオープンしてくれたらと思っています。 調べてみてUpdateLinkがTrueとか書けばいいように思っていろいろ 試してみたのですがイマイチうまく行きません。 すいませんが教えてもらえませんか？ [Source]------------------------------------------------------- Option Explicit Dim objExcel 'エクセルオブジェクトを作成します Set objExcel = CreateObject("Excel.Application") 'エクセル画面を表示します objExcel.Visible = True 'ワークブックを開きます objExcel.Workbooks.Open "C:\Book1.xls" 'エクセルオブジェクトの破棄 Set objExcel = Nothing

  • HTML + VBScript で Sleep できない

    お世話になります。ご教授ください。 類似の質問が既にあるのかもしれませんが、質問させていただきます。。。 HTML上に記述するVBScriptでは、WScriptは使用できないという記事を見かけます。 実際、HTML+VBScriptで使用すると、 変数は宣言されていません：'WScript' とエラーが出ました。 WSH は WScript のインスタンスを読み込むことができないうんぬん、と書かれていました。 書きたいことは、 WScript.Sleep 1000 です。 もしくは、これに変わる何かがしたいです。 外部ファイル化（.vbs）を試してみましたが、ダメでした。 ==== サンプル(Sample.vbs) ==== Option Explicit MsgBox "start" Dim Idx = 0 Do While Idx <> 3 WScript.Sleep 1000 MsgBox Idx Idx = Idx + 1 Loop WScript.Sleep 1000 MsgBox "end" ================ <html> <head> <meta http-equiv="Content-Script-Type" content="text/vbscript"> <script language="VBScript" type="text/vbscript" src="sample.vbs"></script> </head> … という感じです。 上記はあくまでサンプルですが、最終的には「ループの中で」待ち状態、になるようにしたいです。 Do While ある条件 １秒待ち ある条件に、なるかならないか Loop （setTimeout を使用する例が書かれていましたが、それではループ制御は走り続け、CPUが痛い目に合いました。。。） もしかして、WScript は使用できるのに、記述ミスかもしれませんし。。。 できない場合は、それに変わる案などいただけるとありがたいです。 よろしくお願いします。

  • Excel - セルの値を外部シート名として認識させる

    お世話になります。 例えばデスクトップに置いてあるブックのセルを、別のブックのセルに引っ張るとき。 ='C:\Documents and Settings\UserName\デスクトップ\[Book1.xls]Sheet1'!A1 という風になりますが。 例えばBook2のセルA1に【Book3】、A2に【Sheet5】とあってこれらが可変であるとき、セルA3に ='C:\Documents and Settings\UserName\デスクトップ\[Book3.xls]Sheet5'!A1 の値を引っ張ろうと思ったら、それは可能でしょうか。 【Book3】、【Sheet5】はそれぞれユーザが任意に入力すると、テーブルの値が変わる、という風にしたいわけですが。

  • 値のコピー

    Book1.csvの(A1:M17)と(A27:Q43)の値だけをBook2.xlsのsheet1とsheet2にコピーさせたいのですが Book2.xlsに(A27:Q43)の値だけしかコピー出来ないのですがどこが間違っているのでしょうか？ CSVの場合、形式が異なる為出来ないのでしょうか？ ご教授よろしくお願いいたします。 Sub test() Sheets("sheet1").Select Range("A1:M17").Copy Sheets("sheet1").Select Range("A27:Q43").Copy Workbooks.Open(Filename:="C:\sample\Book2.xls").RunAutoMacros Which:=xlAutoOpen Sheets("sheet1").Range("A1:M17").PasteSpecial Paste:=xlValues Sheets("sheet2").Range("A1:Q19").PasteSpecial Paste:=xlValues Application.CutCopyMode = False Application.DisplayAlerts = False ActiveWorkbook.Save ActiveWorkbook.Close End Sub

  • 別のブックのセルの値をコピーするマクロについて

    ExcelのVBAのマクロに関する質問です。 複数のブックのセルの値をコピーするマクロについての質問なのですが、現在以下のファイルがあります。 サンプル1.xls サンプル2.xls サンプル3.xls データ.xls そして、 サンプル1のセルA1～D1までの値をデータ.xlsファイルのシート1のセルA1～D1まで、 セルA2～D2までの値をデータデータ.xlsファイルのシート2のセルA1～D1まで、 サンプル2のセルA1～D1までの値をデータ.xlsファイルのシート1のセルA2～D2まで、 セルA2～D2までの値をデータデータ.xlsファイルのシート2のセルA2～D2まで、 サンプル3のセルA1～D1までの値をデータ.xlsファイルのシート1のセルA3～D3まで、 セルA2～D2までの値をデータデータ.xlsファイルのシート2のセルA3～D3まで、 上記のような形でコピーしたいのですがマクロがわかりません。 データ.xlsにボタンを作成し、そのボタンを押すとこの処理が実行されるようにしたいです。 どなかた方法を教えていただけますでしょうか。ご回答お待ちしております。 ※ファイルの名前は今回はサンプル1などとしましたが実際は違う名前も使用します。 また、ファイルの数も今回は3つにしましたが増減します。

  • VBScript で Excel の Comboboxの操作(値の選択)はできますか？

    VBScript(？)で Excel内に設定されているComboboxを選択するようにさせたいのですがうまくできません。やり方が分かりません。そもそもScriptではできないのでしょうか？ Visual Basicでないとできないのでしょうか？ どなたかご存知の方がいらっしゃいましたら、教えてください。 本当にほんとうに最近勉強しだしたばかりのため、質問自体がおかしなことを書いているかもしれませんが、その場合はご容赦下さい。 ●会社で使っているEXCEL帳票があるのですが、毎回、同じような内容をマウスで一つ一つセルを選び値を入力したり、メニュー(Combobox?)を選択する作業が面倒なため、Scriptで自動的に値を入れたり選択させて効率化を図ろうと考えています。 普通のセルの場合、次のようなコードで書き込みができるのですが、 あらかじめ登録された内容から選択するセル(＝これを"Combobox"というものと理解しています)に対しては、書き込みや選択ができません。 Comboboxのセルの選択は、どのようなコードでできるのか、教えていただけないでしょうか？ いろいろ検索してみたのですが、該当するものが見つからなかったため、質問させていただきました。 (上記で書いたVBScriptは、実はWindows Scriptと言うのが正しいかもしれません) ＜普通のセルに値を書き込む場合＞ set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\Documents and Settings\xxxxxx\My Documents\test.xls") Set objWorksheet = objWorkbook.Worksheets("YYYYYYYY") ObjExcel.Visible = True objWorksheet.Cells(10, 5).Value = "ZZZ" ＜Comboboxの値をScriptで選択するには？？＞ ．

  • エクセルで別ファイルの値を参照

    いまBOOK1.xlsがBOOK2.xlsの値を参照しています BOOK1.xlsのどこかのセルにBOOK3と入れるとBOOK3.xlsの値を参照するようにできますか？ BOOK2とBOOK3はシートなどは値が違うだけで全く同じ構成です エクセルバージョンは2003です よろしくお願いします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する