Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5043 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52906】ブックを閉じることができません きゅうり 07/12/9(日) 5:36 質問[未読]
【52907】Re:ブックを閉じることができません じゅんじゅん 07/12/9(日) 7:36 発言[未読]
【52906】ブックを閉じることができません
質問  きゅうり  - 07/12/9(日) 5:36 -
引用なし
パスワード
   ブックを閉じるときに「インデックスの範囲が〜」　というエラーが出て下記のコードが実行できません＞＜
何卒よろしくお願いいたします。


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
【52907】Re:ブックを閉じることができません
発言  じゅんじゅん  - 07/12/9(日) 7:36 -
引用なし
パスワード
   >wkbs = path2 & Workbooks("株価結合システム").Sheets(1).Range("a5") & NEN >& tuki & hi & ".CSV"
>Workbooks(wkbs).Close False　　　　　←ここでエラーがおきます

たぶんで申し訳ないですが、変数wkbsにパスが含まれているからでは？

Workbooks(Replace(wkbs, path2, "")).Close False
パスを取り除いてみたらどうでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5043 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free