ベストアンサー

アクセスＶＢＡ　時間を止める

2009/05/23 19:21

エクセルでは動くのですがアクセスで Application.Wait (Now + TimeValue("00:00:01")) を実行すると「Wait」メソッドまたはデータメンバが見つかりません。 (Error 461) となってしまいます。「Wait」にかわる何かがあるのでしょうか？宜しくお願い致します。

dfghhj
お礼率99% (432/434)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

DreamyCat
ベストアンサー率56% (295/524)

2009/05/23 20:54 回答No.1

time関数またはtimer関数をループの中で使い、必要な秒数だけ待機させることができます。 Windows APIのSleepでもできると思います。

質問者

お礼 2009/05/23 21:09

わかりました。調べてみます。ありがとうございます。

関連するQ&A

VBAでdo内にてWAITを使うとエラーが出る

Do until内の最後に以下のコードを記載しております。 ------------------------------------- Application.Wait DateAdd("s", 5, Now) Loop ------------------------------------- Loopさせる直前に5秒停止してもらいたいだけなのですが、「コードの実行が中断されました」というエラーが出て終了してしまいます。 waitの指示を除いて時間待ち無しで実行すれば問題なくloopできます。また、調子の良いとき（？）には問題なく５秒まってさくさくloopしてくれますが、一度エラーが出ると一切loopしなくなります。エラーの黄色いマーカーはこのLoopの部分に出ます。なぜこのような現象が起こるのか全く理解できません、、、以下のコードに変えても状況は同じです With Application .Wait Now + TimeValue("00:00:05") End With 解決法ご存じの方、ご教示いただければ幸いですよろしくお願いします。
ExcelのVBAで、順次動作の実現

Excelのシートに、トグルボタンを３つ配置します。 ToggleButton1～3 そして、次のマクロを実行すると、２秒ごとに順番にトグルボタンが押されるのかと思いきや、6秒後に一斉にトグルボタンがへっこみます。どうにか？2秒ごとに順番にトグルボタンが押されるように出来ないでしょうか？ Sub test() Dim MyWait As String MyWait = 2 ToggleButton1.Value = True Application.ScreenUpdating = True DoEvents 'この間にもマクロを入れたい(0.1秒以内に処理できるものです) Application.Wait (Now + TimeValue("0:00:" & MyWait)) ToggleButton2.Value = True DoEvents Application.Wait (Now + TimeValue("0:00:" & MyWait)) ToggleButton3.Value = True Application.ScreenUpdating = True DoEvents End Sub
Waitメソッド　なぜブール型？

エクセルvbaを勉強中の者なのですが Sub Sample() Application.Wait (Now + TimeValue("00:00:01")) End Sub このコードのWait メソッドのヘルプを見たのですが、戻り値がブール型 (Boolean)になっています。そもそもメソッドなのに、ブール型ってあり得るのでしょうか？ブール型って、trueかFalseが返るってことなんですよね？上記コードは、どうやればtrueかFalseが返るのでしょうか？
エクセル VBA 自動処理の途中終了について

エクセルで単語のフラッシュカードを自動表示させたいと考えています。エクセルの１セルの大きさを縦最大、横120位に広げ、C列に単語、D列に意味を縦に並べ、 C２　１秒後　D２　１秒後　C２　１秒後　D２　１秒後　 C３　１秒後　D４　のように単語と意味を交互に２度ずつ表示させます。 For Next を使い表示はできるようになりましたが、途中で止めたいときに、escを押すと For Nextの処理を最後まで一気に行ってから止まってしまいます。 C５を表示していたら、その場所でPause をし、スタートボタンで再度継続して表示したいと思います。また、単語や意味のセルにはそれぞれ別の文字装飾をしてあるので、（赤や青、大きさなど）セルを移動して表示したいと考えています。実は他のサイトでも質問しましたが、思ったような回答を得られませんでした。よろしくお願いします。 Sub セル移動() Dim waitTime As Variant i = 0 Range("c2").Select waitTime = Now + TimeValue("0:00:01") Application.Wait waitTime Range("c3").Select waitTime = Now + TimeValue("0:00:01") Application.Wait waitTime For i = 1 To 50 ActiveCell.Select Selection.Offset(0, 1).Select waitTime = Now + TimeValue("0:00:01") Application.Wait waitTime Selection.Offset(0, -1).Select waitTime = Now + TimeValue("0:00:01") Application.Wait waitTime Selection.Offset(0, 1).Select waitTime = Now + TimeValue("0:00:01") Application.Wait waitTime Selection.Offset(1, -1).Select waitTime = Now + TimeValue("0:00:01") Application.Wait waitTime Application.OnKey ("{esc}"), "shuryo" i = i + 1 Next i End Sub Sub shuryo() Application.ScreenUpdating = False Range("c2").Select Application.GoTo reference:=ActiveCell, scroll:=True Application.ScreenUpdating = True Exit Sub End Sub
エクセルにpdfのテキストを表示させたい

色々やってみたのですがうまくいかないので質問させてください。エクセルで直接pdfのテキストを表示させるスマートな方法はありませんでしょうか？エクセルで編集するために元データのpdfファイルのテキストを取り込みたいのです。 Sub test() Dim strFilePath As String strFilePath = Application.GetOpenFilename _ ("PDFファイル,*.pdf", MultiSelect:=False) Call Shell("explorer.exe " & strFilePath) 　Application.Wait Time:=Now + TimeValue("00:00:05") 　Application.SendKeys "^a" 　Application.Wait Time:=Now + TimeValue("00:00:03") 　Workbooks(1).Activate 　Application.SendKeys "^c" End Sub まったく動かないのですが今はこんな感じになっています。
Excel VBA でイベント"Worksheet_Change"を使

Excel VBA でイベント"Worksheet_Change"を使って，データの追加処理中に，イベントが連続発生してしまい，エラー発生となります。解決方法のヒントがありませんか？１）イベント発生を一時的に受け付けない構文の "Application.EnableEvents = False" を処理ルーチンの先頭に入れています。２）データテーブル表の特定処理「データを追加のため，"セル挿入"→"データ投入"」を行うとイベントの連続発生があるので，"セル挿入"と"データ投入"との間に "Application.Wait (Now() + TimeValue("00:00:01"))" を入れて，タイミングを遅らせていますが効果ありません。
EXCEL　VBA　IEからダウンロード

まず以下のコードを見てください(一部を抜粋） objIE.Navigate URL02 Do While objIE.Busy = True DoEvents Loop objIE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT objIE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT Application.Wait Now() + TimeValue("00:00:05") objIE.Quit Worksheets("商品情報").Select Range("A2:J100").Clear Range("A2").Select Application.Wait Now() + TimeValue("00:00:05") Application.SendKeys "^v", True とりあえずこれで使えてはいるのですが、これだと一度IEを終了することになるので、終了せずにエクセルのシートにペーストしたいと思いobjIE.Quitを削除しました。そうしたらコピーまではするのですがペーストしなくなってしまいました。なんとかIEを起動したままでペーストしたいのですが、どう直したらいいですか？教えてください。宜しくお願いします。
エクセルVBA

VBAの素人です。以下のようなVBAを実行しようと、何とか形にしました。単独のBOOKではうまくいくのですが、同時に他のBOOKを開くと「インデックスが有効範囲にありません」とエラーになります。エラー箇所は、With Sheets("Sheet1").Range("B1")部分です。修正をご教示頂ける方、何卒よろしくお願い致します。全くVBA無知なのにすみません。 Private Sub Workbook_Open() test01 test02 Application.OnTime Now + TimeValue("00:10:00"), "終了" End Sub Sub 終了() Application.OnTime Now + TimeValue("0:00:02"), "test01", , False ThisWorkbook.Close Savechanges:=False Application.Quit End Sub Sub test01() With Sheets("Sheet1").Range("B1") .Value = Time .NumberFormatLocal = "mm:ss" End With Application.OnTime Now + TimeValue("0:00:02"), "test01" End Sub Sub test02() With Sheets("Sheet1").Range("B2") .Value = Time .NumberFormatLocal = "mm:ss" End With End Sub
VBAでエクセルの表をワードに入力

Excel/Word2002使用です。ワードへの入力を自動化するためにVBAを使用してエクセルの表をワードのテンプレートに渡したいのですが。エクセルのA1：C8のセルに表として値が入力されています。この表をコピーしてワードに貼り付けます。ワード側は何も入力されていない文書ですが、テンプレートが用意されているので、このテンプレートを指定してワードを立ち上げます。ワードに貼り付けられる表はタブ区切りです。具体的には下記コード3行目の”winword.exe”を具体的なテンプレートのパス名にしたいのですが・・・ Sub word貼り付け() Dim mytskID As Double Range("A1:C8").Copy 　mytskID = Shell("winword.exe", vbNormalFocus) 　Application.Wait Now + TimeValue("00:00:10") 　Application.SendKeys "^v", True 　Application.Wait Now + TimeValue("00:00:10") 　Application.SendKeys "%fa", True 　Range("A1").Copy 　AppActivate mytskID 　Application.SendKeys "^v", True 　Application.SendKeys "~", True 　Application.Wait Now + TimeValue("00:00:05") 　Application.SendKeys "%fx", True 　Application.CutCopyMode = False MsgBox "完了しました" End Sub なお、上記コードも教科書通りにしたはずなのですが、何故か「名前をつけて保存」のSendKeys "%fa"のときだと思うのですが、ワード側ではファイルメニューの罫線が反応してしまいます。あわせてご教授いただければ幸いです。よろしくお願いします。
VBA ACCESSからexcel操作

仕事でアクセスから二つのファイルを操作したいです。アクセスのテーブルから新規excel（BOOK１）にデータを抽出し、そのデータを既存のデータが入っているexcel（BOOK２）にコピーしたいです。どうしてもコピーメソッドのRANGEクラスのところで「アプリケーションの定義エラー」なってしまいます。 BOOK１のデータをBOOK２の新規シートにコピー、BOOK１とBOOK2のデータ行を数える、のは試しやってできたので、二つのファイル操作は出来ていて、RANGEクラスのところで既存シートにコピーする部分が出来ていないんだと思います。基本操作だと思いますが困っています。よろしくお願いします。
Excel2010　VBAについて

以下のソースを書いて実行したのですが「実行エラー'1004' WorksheetFunctionクラスのVlookupプロパティを取得できません」と表示されます Sub 時刻表示() '日本の時間と選択した年の時刻・時差を1秒ごとに表示しなおす Dim City As String Dim Jisa As Long Application.ScreenUpdating = False City = Range("C6").Value Jisa = WorksheetFunction.VLookup(City, _ Worksheets("都市リスト").Range("B3:C14"), 2, False) Range("E7").Value = Jisa Range("C4").Value = Now Range("C7").Value = DateAdd("h", Jisa, Now) Range("C4, C7").NumberFormat = "m/d h:mm:ss" Application.ScreenUpdating = True Application.OnTime Now + TimeValue("0:00:01"), "時刻表示" End Sub Sub 時刻表示終了() '時計を止める Application.OnTime Now + TimeValue("0:00:01"), "時刻表示", Schedule:=False End Sub デバックをすると Application.OnTime Now + TimeValue("0:00:01"), "時刻表示", Schedule:=False がマーカーで引かれます一応本通りには打ったと思うのですが、、、。どこが間違えているか教えてください
VBAでEXCELのワークシートを削除時に警告メッセージをでないようにしたい。

ACCESSのVBAでEXCELのワークシートを削除時に警告メッセージをでないようにしたいのですが、ネットを参考に下記のようにしたのですが、　Application.DisplayAlerts = False 　ActiveSheet.Delete 　Application.DisplayAlerts = True DisplayAlertsが反転してメソッドまたはデータメンバが見つかりません。とエラーメッセージがでます。ご存知の方宜しくお願いします。
エクセル時間毎ごとにマクロを実行するやり方。

　初めまして、よろしくお願いします。より正確な指定時間毎にマクロを実行させるやり方を考えています。　１分毎ごとにマクロを実行する nextTime = Now() + TimeValue("00:01:00") Application.OnTime nextTime, "時間毎ごとに実行" というやり方は解るのですが、 Application.OnTime TimeValue("09:00:00"), "時間毎ごとに実行" 　この指定時間("09:00:00")に実行するマクロを利用し ("09:01:00")、("09:02:00")、("09:03:00")、("09:04:00")、("09:05:00"),・・・・・の時間、秒が00になると("hh:ss:00")マクロを実行されるやり方は有るのでしょうか。　もし有るのでしたら、よろしくお願いします。
VBA

ACCESSのVBAにて、エクセルのデータ操作を行っています。「sum」や「vlookup」などの関数が入ったセルをコピー&貼り付けしていく処理があります。デバック―モードで実行するとエラーとなりませんが、通常に実行するとエラーになってしまいます。エラーの内容：アプリケーション定義またはオブジェクト定義のエラーです。 sleepを入れてみましたが、結果はかわらずでした。どのような原因があるのでしょうか。
エクセルVBAの値貼り付けについて

いつもお世話になっております。エクセルVBAについての質問ですが以下のコードを使用するとどうしても元の書式の貼り付けになってします。値（テキスト）貼り付けを実行したいのですがどこのコードをどのように変えればいいか教えてください。 ------------------------------------------------------------------------------------------- Sub IE_Open_Copy() Dim objIE As Object Const OLECMDID_SELECTALL = 17 Const OLECMDID_COPY = 12 Const OLECMDEXECOPT_DODEFAULT = 0 Const URL As String = "https://okwave.jp/question/" Set objIE = CreateObject("InternetExplorer.Application") With objIE .Visible = True .Navigate URL Do While .Busy DoEvents Loop Do Until .ReadyState = 4 DoEvents Loop .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT .ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT Application.Wait Now() + TimeValue("00:00:05") .Quit End With AppActivate Application.Caption, True Range("A1").Select Application.Wait Now() + TimeValue("00:00:05") Application.SendKeys "^v" Set objIE = Nothing End Sub ---------------------------------------------------------------------------------------------
エクセルＶＢＡの実行時エラー１００４の解決方法

Private tm As Double Sub Auto_Open() Call 更新 End Sub Sub 更新() Application.Calculate tm = [now()+timevalue("00:00:10")] Application.OnTime tm, "更新" End Sub '===================================================== Sub 更新やめ() Application.OnTime tm, "更新", , False End Sub この様なＶＢＡがあります。ここで「Sub 更新やめ()」のＶＢＡを何度も実行すると「実行時エラー’１００４’：’ＯｎＴｉｍｅメソッドは失敗しました；’＿Ａｐｐｌｉｃａｔｉｏｎ’オブジェクト」と表記されます。何度も実行しても上記の表示が出ない様にする為のＶＢＡはどの様に改造すれば良いでしょうか？
VBからACCESS

VBからACCESSをオープンしようとした時　メソッドまたはデータメンバが見つかりません。というエラーが出ます。参照設定で参照するモジュールを教えて下さい。
エクセルVBAの記述方法の質問です。

エクセルです。12個のセルの文字列をオートシェープの吹き出しに順に表示させるマクロをつくりました。 Sub tenki2() Dim i As Integer Dim a As String For i = 1 To 12 a = Cells(i, 2).Value ActiveSheet.Shapes("AutoShape 4").Select Selection.Characters.Text = a Application.Wait Now + TimeValue("00:00:05") Next i End Sub これで思った通り表示されるのですが、できればオートシェープをセレクトしないようにしたいのです。（シートを保護するため）それで ActiveSheet.Shapes("AutoShape 4").Select Selection.Characters.Text = a のところを ActiveSheet.Shapes("AutoShape 4").Characters.Text = a と変えたのですが、「オブジェクトはこのプロパティまたはメソッドをサポートしていません」という実行時エラーがでてしまいました。書き方のどこがまずかったのでしょうか？ご教示いただければ幸いです。
エクセルシートの順繰り表示マクロについて

エクセルにて随時更新されるデータを全画面表示し、3枚のシートを5秒置きに順繰り表示させるようマクロを組みました。始めは順調なのですが、数時間たつとフリーズしてしまいます。そもそもエンドレスのマクロプログラム実行に無理があるのでしょうか。または下記のプログラムに問題があるのでしょうか。ご教授お願いします。 Sub Macro1() Sheets("Sheet2").Select Application.OnTime Now + TimeValue("00:00:05"), "Macro2" End Sub Sub Macro2() Sheets("Sheet3").Select Application.OnTime Now + TimeValue("00:00:05"), "Macro3" End Sub Sub Macro3() Sheets("Sheet1").Select Application.OnTime Now + TimeValue("00:00:05"), "Macro1" End Sub
ExcelからAccessを操作中のウエイト

AccessのデータをExcelからSQL文を使って取り出しています。複数のレコードセットを２次元配列に取り組むために With My_RecSet On Error Resume Next .Open MySQL, My_DB On Error GoTo 0 Application.Wait Now + TimeValue("00:00:01") On Error GoTo RsCloseHdl If .EOF And .BOF Then '該当するレコードセットが一つもない場合 SQL_ext = -1　　←Function名 Exit Function Else SQL_ext = .GetRows End If としています。私のパソコンの性能の関係かもしれませんが、ウエイトを入れないとたまに、レコードセットが１つ以上あるのにも関わらず.EOF And .BOF で引っ掛かります。1秒以下のウエイトの入れ方を教えて頂けませんか？また、たまに、.Closeさせているにも関わらす、.Open MySQL, My_DBで、すでに開いているものに開けませんとエラーがでるので、やむなく、On Error Resume Nextとしています。限られた情報の提供となりますが、わかる範囲で教えて頂けないでしょうか？よろしくお願いいたします。

アクセスＶＢＡ　時間を止める

質問者が選んだベストアンサー

お礼 2009/05/23 21:09

関連するQ&A

VBAでdo内にてWAITを使うとエラーが出る

ExcelのVBAで、順次動作の実現

Waitメソッド　なぜブール型？

エクセル VBA 自動処理の途中終了について

エクセルにpdfのテキストを表示させたい

Excel VBA でイベント"Worksheet_Change"を使

EXCEL　VBA　IEからダウンロード

エクセルVBA

VBAでエクセルの表をワードに入力

VBA ACCESSからexcel操作

Excel2010　VBAについて

VBAでEXCELのワークシートを削除時に警告メッセージをでないようにしたい。

エクセル時間毎ごとにマクロを実行するやり方。

VBA

エクセルVBAの値貼り付けについて

エクセルＶＢＡの実行時エラー１００４の解決方法

VBからACCESS

エクセルVBAの記述方法の質問です。

エクセルシートの順繰り表示マクロについて

ExcelからAccessを操作中のウエイト

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

アクセスＶＢＡ 時間を止める

質問者が選んだベストアンサー

お礼 2009/05/23 21:09

関連するQ&A

VBAでdo内にてWAITを使うとエラーが出る

ExcelのVBAで、順次動作の実現

Waitメソッド なぜブール型？

エクセル VBA 自動処理の途中終了について

エクセルにpdfのテキストを表示させたい

Excel VBA でイベント"Worksheet_Change"を使

EXCEL VBA IEからダウンロード

エクセルVBA

VBAでエクセルの表をワードに入力

VBA ACCESSからexcel操作

Excel2010 VBAについて

VBAでEXCELのワークシートを削除時に警告メッセージをでないようにしたい。

エクセル時間毎ごとにマクロを実行するやり方。

VBA

エクセルVBAの値貼り付けについて

エクセルＶＢＡの実行時エラー１００４の解決方法

VBからACCESS

エクセルVBAの記述方法の質問です。

エクセルシートの順繰り表示マクロについて

ExcelからAccessを操作中のウエイト

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

アクセスＶＢＡ　時間を止める

Waitメソッド　なぜブール型？

EXCEL　VBA　IEからダウンロード

Excel2010　VBAについて

カテゴリ
一覧

専門家に質問してみよう
専門家登録