Excel VBA質問箱 IV

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

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


50118 / 76732 ←次へ | 前へ→

【31510】Re:集計シートに別のExcelファイルからコピー貼り付けについて
回答  かみちゃん E-MAIL  - 05/11/24(木) 7:31 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>選択したフォルダーから任意のExcelファイルを開きたいのです;;

任意のファイルとは、ファイルを開くダイアログボックスで選択したいということですか?
それであれば、GetOpenFilename メソッドのヘルプをご確認ください。

>2.1.にて開いたExcelファイルの指定のセルをコピー
>
>  '指定のセルをコピー
>  Range("B18:D28").Select
>  Selection.Copy
>
>これでよろしいでしょうか??
>
>3.集計シートに2.のコピーしたセルを指定のセルに貼り付けたい。
>
>  Windows("集計シート.xls").Activate
>  Range("B4").Select
>  ActiveSheet.Paste
>
>このまま繋げて問題ないでしょうか??

コピー元セルに数式がないならばそれでもいいですが、
リンク式を埋め込んで、値化することで、ファイルを開かずに値だけ取得すること
もできます。
参考にそのコードを書いておきます。
(コピー元ブックのフルパスがstrSelectFileNameとして、それのSheet2シートの
値を「集計シート.xls」のSheet1に取得する例です。)

Sub Macro1()
 
 strSelectFileName = "選択したファイル名(フルパス)"
 strPath = Mid(strSelectFileName, 1, InStrRev(strSelectFileName, "\"))
 strFileName = Mid(strSelectFileName, InStrRev(strSelectFileName, "\") + 1)
 
 Windows("集計シート.xls").Activate
 Sheets("Sheet1").Activate
 For C = 2 To 4 'B列〜D列
  For R = 18 To 28 '8行目〜28行目
   With Cells(R - 14, C)
    .Formula = "='" & strPath & "\[" & strFileName & "]Sheet2'!" & Cells(R, C).Address
    .Value = .Value
   End With
  Next
 Next
End Sub

1 hits

【31509】集計シートに別のExcelファイルからコピー貼り付けについて れい 05/11/24(木) 1:12 質問
【31510】Re:集計シートに別のExcelファイルからコピ... かみちゃん 05/11/24(木) 7:31 回答
【31516】Re:集計シートに別のExcelファイルからコピ... Jaka 05/11/24(木) 12:47 回答
【31519】Re:集計シートに別のExcelファイルからコピ... Kein 05/11/24(木) 13:30 回答
【31541】Re:集計シートに別のExcelファイルからコピ... れい 05/11/24(木) 19:15 お礼

50118 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free