- ベストアンサー
javascriptでexcel閉じる
- javascriptで開いているexcelを保存せずに閉じる方法はありますか？
- javascriptでexcelを閉じる際に表示される「保存しますか？」メッセージを非表示にする方法はありますか？
- javascriptでexcelを閉じる際の保存確認のメッセージを無視する方法を教えてください。
- aqua431118
- お礼率12% (2/16)
- JavaScript
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- JAVAscriptでexcelを編集 表示
JAVAscriptでexcelを編集 表示 こんにちは JAVAスクリプトで既存のexcelのセルの色を変えて画面に出力したいのですが うまくいきません var xlApp = new ActiveXObject("Excel.Application"); xlApp.Visible = true; xlApp.Workbooks.Open("c:\\Book1.xls"); ExcelSheet.ActiveSheet.Cells(parseInt(document.getElementById('tate').value), parseInt(document.getElementById('yoko').value)).Interior.ColorIndex=1; よろしければご教授お願い致します
- ベストアンサー
- JavaScript
- excelを上書き時の警告をなくすには
<script language="JavaScript"> var xlApp = new ActiveXObject("Excel.Application"); var ExcelSheet; ExcelSheet = xlApp.Workbooks.Open("C:xxx"); ExcelSheet.ActiveSheet.Cells(parseInt(document.getElementById('tate').value),parseInt(document.getElementById('yoko').value)).Interior.ColorIndex = 3; ExcelSheet.SaveAs("C:Excel.xls"); //C:Excelは既に存在しています ExcelSheet.Application.Quit(); ExcelSheet = ""; </script> 色を付け編集したExcelを上書き保存する場合なのですが 確認のダイアログを出さずに保存を完了させる方法はございませんでしょうか？ ExcelSheet.Application.DisplayAlerts = False こちらで試してみたところ保存されておりませんでした もしお時間がございましたらご回答いただきたく思います
- ベストアンサー
- JavaScript
- php javascriptで既存excelを起動させ色つけ
質問の場所が違ったら申し訳ありません 開発はphpで行っています IEで ボタンが押されたら指定したセルが染色された状態で既存のエクセルが画面に出力されるようにしたいのですが読み取り専用になってしまっているのか編集されていない状態で出力されてしまいます var xlApp = new ActiveXObject("Excel.Application"); xlApp.DisplayAlerts = false; xlApp.Visible = true; xlApp.Workbooks.Open("C:\\TEST.xls", 0, true); ExcelSheet.ActiveSheet.Cells(parseInt(document.getElementById('tate').value), parseInt(document.getElementById('yoko').value)).Interior.ColorIndex = 1; ExcelSheet = ""; ExcelQuit(Book1); わかりにくい質問で申し訳ありません もしお時間があればご回答おねがい致します
- 締切済み
- JavaScript
- JavascriptでのExcel起動について
JavascriptでExcelを起動させてサーバー上のxlsファイルを編集したいのですが、読み取り専用になってしまいます。 ------------------------------------------------- Excel = new ActiveXObject("Excel.Application") Excel.Visible = true Excel.Workbooks.Open("http://localhost/test.xls") ------------------------------------------------- http://～で開くと読み取り専用になるのでしょうか？ ちなみに、 １．xlsファイルは一般ユーザーも書き込み可能となっています。 ２．readonlyパラメータをfalseにしても同様でした。 同様のケースで過去に解決された方、または良い案がある方。ご教授下さい。
- 締切済み
- JavaScript
- 教えてください
簡単なことで済みません。 初心者なので分からずつまづいています。 教えてください。 下記のソースを実行するとエラーが出てきます。 「メモリーが不足しています」 「ファイルが見つかりません」 どう対処したらいいのでしょうか？ Private Sub Command1_Click() On Error GoTo dbg: ' Excelのインスタンス作成 Set xlApp = CreateObject("Excel.Application") ' Excelを表示有無 xlApp.Visible = True ' マクロの警告やメッセージを表示しないように設定 xlApp.DisplayAlerts = False ' 指定したExcelファイルを開く Set xlBook = xlApp.Workbooks.open("D:\test.xls") ' Excelの終了 xlApp.Quit ' オブジェクトを解放 Set xlBook = Nothing Set xlApp = Nothing Exit Sub dbg: ' エラーメッセージを表示 MsgBox Err.Description End Sub
- ベストアンサー
- Visual Basic
- JavaScriptで書き出したオートシェイプにテキストを挿入したいの
JavaScriptで書き出したオートシェイプにテキストを挿入したいのですができません。 先日、ExcelのシートにJavaScriptでオートシェイプを書き出す方法を質問した者です。 今度は書き出したオートシェイプにテキストを挿入したいのですが上手くいきません。 どうすれば良いのか教えてください。 ※またもやJavaScriptで解決したいです。 なお、現在悩み中のソースは以下のようです。 ※教えて頂いたソースほとんどそのままですが... function createShapes() { var excel = new ActiveXObject( "Excel.Application" ); excel.visible = true; var sheet = excel.Workbooks.Add().activeSheet; // オートシェイプ挿入：引数の１０５は吹き出しを示す sheet.Shapes.AddShape(105, 123, 37.5, 151.5, 94.5); // ココでメソッド、プロパティがないとエラーになってしまう... sheet.Shapes("AutoShape 1").Characters.Text = "ほげほげ"; } よろしくお願いします。
- ベストアンサー
- JavaScript
- 既に開いているエクセルを閉じるには？
既に該当のファイルが開いているのなら閉じたいのですが xlBook.Quitだとエラーになります。 Sub test1() Dim xlApp As Excel.Application Dim xlBook As Workbook Dim FileName As String FileName = "C:\test.xlsm" Set xlApp = GetObject("", "Excel.Application") 'GetObjectで合ってるか不安 Set xlBook = xlApp.Workbooks.Open(FileName) If xlBook.ReadOnly = True Then 'ファイルが開いてるのなら MsgBox "既にファイルが開いているので閉じます。" xlBook.Quit 'エラー 438 End If xlApp.Quit 'これって何のために必要？ Set xlBook = Nothing 'ココを通り過ぎるのにすごく時間がかかる。 Set xlApp = Nothing End Sub と言うコードを作りました。 xlBook.Quitがダメならどのコードを使えばいいでしょう？ また、 GetObject("", "Excel.Application") と言う開き方でいいのでしょうか？ あと、 xlApp.Quit は何のために必要なのでしょう？ タスクマネージーのプロセスを見ると、 Set xlApp = GetObject("", "Excel.Application") を通る時に新しいＥＸＣＥＬ．ＥＸＥが作成され、 Set xlApp = Nothing を通り過ぎる時に、そのＥＸＣＥＬ．ＥＸＥが消えます。 だから xlApp.Quit は不要ですか？
- ベストアンサー
- その他MS Office製品
- excel2000の終了
下記のVBAで Workbooks("book1.XLS").Close SaveChanges:=False Application.Quitを書いていますが、 book1.xlsは保存しないで閉じた後にEXCELを終了させる 方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- ACCESSでExcelマクロを起動
ACCESS、Excelの2003を使用しています。 常駐パソコンにACCESSプログラムを起動させておき、朝の6時になったらExcelの標準モジュールに記載しているマクロを起動し、開いたExcelを保存しようとしています。 以下ACCESSに記載しているマクロです。 If Format(Now(), "hh:nn") = "06:00" Then strXlsS = "D:\テスト用ファイル.xls" Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlbook = xlApp.Workbooks.Open(strXlsS) 'エラー箇所' Application.Run "テスト用ファイル!テスト" End If 実行時エラー2517 プロシージャを見つけることができません。 と、エラーが表示されてしまいます。 該当のExcelのブックは開けているのですが、モジュールのマクロを起動することが出来ません。 書き方がおかしいのでしょうか？
- 締切済み
- Excel（エクセル）
- エクセル アプリケーションの待機時間を設定したい
VBAで Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(MyFileName) のあとに、 xlApp.Visible = True ココを通過するときに、3分くらい経ってから 「ソースアプリケーションがビジー状態のため、オブジェクトが応答しません。」 と表示される時があります。 このメッセージが表示されるまでの時間を設定したいのですが そのようなＶＢＡコードはありますか？
- ベストアンサー
- その他MS Office製品
お礼
ありがとうございます これで、ずっと悩んでいたんです 助かりました！