|
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)
"
と書いてもエラーになります。
|
|