Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


52315 / 76732 ←次へ | 前へ→

【29256】次の操作に移るのを20秒待ちたい。
質問  k E-MAIL  - 05/9/29(木) 10:47 -

引用なし
パスワード
   Option Explicit
Const DateofReport = "InputSheet"
Const Fund1 As String = "AI.xls"
Const TimeFrom As String = "00:00:20"
--------------------------------------------------------------------------
Sub OpenFiles()
Workbooks.Open FileName:=\\Sv01\share_jp\14A\InputSheetAI.xls, UpdateLinks:=0
CopySheets (DateofReport & Fund1)
--------------------------------------------------------------------------
Sub CopySheets(sstr$)

'cash
 Windows(sstr).Activate
 Worksheets("CASH").Select
 If Range("d3") = "" Then
 GoTo Line1
 End If

  If Range("d4") = "" Then
  Range("a3:e3").Select
  Else
  Set activecell = Range("d3")
  Range(activecell.Offset(0, -3), activecell.End(xlDown).Offset(0, 1)).Select
  End If
・・・以下略
ここで
Workbooks.Open FileName:=\\Sv01\share_jp\14A\AI.xls, UpdateLinks:=0
から
CopySheets (DateofReport & Fund1)
に移るのに20秒間をおくにはどうやってコードを書いたらよいのですが?

Application.OnTime Now + TimeValue(TimeFrom), "CopySheets (DateofReport & Fund1)
"
と書いてもエラーになります。

0 hits

【29256】次の操作に移るのを20秒待ちたい。 k 05/9/29(木) 10:47 質問
【29258】Re:次の操作に移るのを20秒待ちたい。 じゅん 05/9/29(木) 10:55 回答
【29272】Re:次の操作に移るのを20秒待ちたい。 k 05/9/29(木) 12:41 お礼

52315 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free