Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52321 / 76738

←次へ　｜　前へ→


	【29256】次の操作に移るのを20秒待ちたい。

- 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

≪