Excel VBA質問箱 IV

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

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


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

34863 / 76734

←次へ　｜　前へ→


	【47074】For Each～In～Nextのマクロエラーについて

ボボ - 07/2/28(水) 13:03 -


	引用なし

	パスワード

「ファイルを開く」ダイアログを表示させ、そのファイルから、「マクロ.xls」（マクロが保存してあるファイル）の[データ]シートへコピーペーストするというマクロですが、以下のように作成すると、開いたファイルを見に行ってくれません。
どのように記述したらよいのでしょうか？
ちなみに、「OpenFileName」ではなく、ファイルを指定すると、以下のマクロでも正常に実行されるのですが。。。

---------------------------------------
Sub マクロA()
Dim WB1 As Object, WB2 As Workbook
Dim R As Variant

Application.ScreenUpdating = False

　　OpenFileName = Application.GetOpenFilename("すべてのファイル,*.*")
　　If OpenFileName <> False Then
　　　　 Workbooks.Open OpenFileName
　　Else
　　　　End
　　End If
　　
Set WB1 = Workbooks("マクロ.xls").Sheets("データ")
Set WB2 = Workbooks(Dir(OpenFileName))

For Each R In WB1.Range("B3:H3")
　 On Error Resume Next
　 WB2.Sheets(R.Text).Range("AD20:AD22").Copy
　 R.Offset(1).Select
　　　 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　 WB2.Sheets(R.Text).Range("F37").Copy
　 R.Offset(4).Select
　　　 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　 WB2.Sheets(R.Text).Range("AF6").Copy
　 R.Offset(5).Select
　　　 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　
　 If Err.Number <> 0 Then
　　　MsgBox "指定のシートはありません"
　　　GoTo 999
　 End If
Next

999:
On Error GoTo 0
Err.Clear
Set WB1 = Nothing
Set WB2 = Nothing

Application.CutCopyMode = False

End Sub
---------------------------------------

1 hits

▼

【47074】For Each～In～Nextのマクロエラーについて ボボ 07/2/28(水) 13:03

≪