|
ボボ さん、こんにちわ。
>「ファイルを開く」ダイアログを表示させ、そのファイルから、「マクロ.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
'ここでセットする
Set WB2 = Workbooks.Open(OpenFileName)
> Else
> End
> End If
>
>Set WB1 = Workbooks("マクロ.xls").Sheets("データ")
>
<<<略>>>
こんな感じです
|
|