|
ブックを閉じるときに「インデックスの範囲が〜」 というエラーが出て下記のコードが実行できません><
何卒よろしくお願いいたします。
Sub 株価データファイル結合()
Dim NEN As Integer
Dim tuki As String
Dim hi As String
Dim file As String
Dim path1 As String
Dim path2 As String
Dim wkbs As String
Dim i As Integer
Dim k As Integer
path1 = "C:\Documents and Settings\KANEKOAKIHIRO\デスクトップ\"
path2 = "C:\Documents and Settings\KANEKOAKIHIRO\デスクトップ\株価データ\"
NEN = Workbooks("株価結合システム").Sheets(1).Range("b5")
i = 5
tuki = Workbooks("株価結合システム").Sheets(1).Range("c" & i)
k = 8
hi = Workbooks("株価結合システム").Sheets(1).Range("d" & k)
Workbooks("株価結合システム").Activate
wkbs = path2 & Workbooks("株価結合システム").Sheets(1).Range("a5") & NEN & tuki & hi & ".csv"
Workbooks.Open Filename:=path1 & "株価データフォーム.xlsx"
Do Until i > 16
Do Until k > 36
wkbs = path2 & Workbooks("株価結合システム").Sheets(1).Range("a5") & NEN & tuki & hi & ".CSV"
If dir(wkbs) <> "" Then
Workbooks.Open (wkbs)
Range("a1").CurrentRegion.Copy
Workbooks("株価データフォーム.xlsx").Sheets(1).Activate
j = Range("a1").CurrentRegion.Rows.Count
Range("a" & j + 1).PasteSpecial Paste:=xlPasteValues
Workbooks(wkbs).Close False ←ここでエラーがおきます
Application.DisplayAlerts = False
End If
k = k + 1
Loop
i = i + 1
Loop
End Sub
|
|