ファイを呼出してデータを貼り付ける

質問

検索をクリックすると
ファイル：全社計のＦ45に　別ファイル：全社07月累計のＦ32データを貼り付けたいのですが・・・どうしたらよいのでしょうか？
ファイル名：全社計　Ｆ45　全社07月累計　Ｆ32
Ｆ46→Ｆ48　Ｆ47→Ｆ63　Ｆ48→Ｆ83と全部で4箇所呼出し貼付けをしたいのです。　　　　　　　　　　　　　　　　　　
呼出すファイル
file://C:\社員フォルダ\5020グループ\CI\原本\修正版\H25年度\データ\7月\全社07月累計
のシート名：45　Ｆ32
を
ファイル名：全社計（デスクトップ）　シート名：シート１　Ｆ45にデータ数を貼り付ける。
下記、別ファイル（ファイル名：全社07月累計）を呼び出すところまでは作って見ました。
フォルダとファイル名が月ごとで変わるので、その月ごとで選択できるようにと考えました。

ファイル名：全社計のＪ44には4月～3月までリストから選択できるようになっています。
Ｌ44にも4月累計～3月累計が選択できるようになっています。

お教えくださいますよう
宜しくお願い致します。

Private Sub 検索_Click()

Workbooks.Open Filename:= _
"C:\社員フォルダ\5020グループ\CI\原本\修正版\H25年度\データ\" & Range("j44").Value & "\" & Range("L44").Value & ".xls"

End Sub

回答No.1

watabe007 · ベストアンサー

こんにちは　参考に

Private Sub 検索_Click()
Dim myBook As Workbook

Application.ScreenUpdating = False
Set myBook = Workbooks.Open("C:\社員フォルダ\5020グループ\CI\原本\修正版\H25年度\データ\" & Range("j44").Value & "\" & Range("L44").Value & ".xls"
)
With ThisWorkbook.Worksheets(1)
myBook.Worksheets("45　Ｆ32").Range("F32").Copy .Range("F45")
myBook.Worksheets("45　Ｆ32").Range("F46").Copy .Range("F48")
myBook.Worksheets("45　Ｆ32").Range("F47").Copy .Range("F63")
myBook.Worksheets("45　Ｆ32").Range("F48").Copy .Range("F83")
End With
myBook.Close False
Application.ScreenUpdating = True
End Sub

補足

ご回答ありがとうございました。m(_ _)m　
マクロ’ＣＳＩ全社累計.xls検索’が見つかりません。
とエラー表示が出ます。
なぜなのでしょうか？
自分なりにやってみたのですが、駄目なのです。
どうか、宜しくお願い致します。
貼付けたいエクセルファイル(正確は）私のデスクトップのファイル名「ＣＳＩ全社累計」です。

回答No.2

watabe007

>マクロ’ＣＳＩ全社累計.xls検索’が見つかりません。
>とエラー表示が出ます。
>なぜなのでしょうか？

該当のファイルが見つからないからです。

MsgBox "C:\社員フォルダ\5020グループ\CI\原本\修正版\H25年度\データ\" & Range("j44").Value & "\" & Range("L44").Value & ".xls"

で、正しくファイル名が取得できているか試してみれば

お礼

本当に、ありがとうございました。
やってみます。