VBAについての質問です、お願いします。

質問

ＶＢＡ初心者のものです。
Excelで毎日コピペが大変なので、ＶＢＡをネットで調べるもののまったく上手くいきません。
どうかシステムが得意な方、教えて頂けませんか？

要件は

Ｂデータ.xlsとＣデータ.xlsとＤデータ.xlsｔとＥデータ.xlsの各sheet1のＡ１からＺ１００セルの
データをＡデータ.xlsのsheet1に各データ順にコピー＆ペーストしてならべたいのです。

イメージは、
Ａデータのエクセルを開いて、マクロボタンを押す。
そうすると、各Ｂ・Ｃ・Ｄ・Ｅのエクセルが自動的に開いてそれぞれのsheet1のＡ１からＺ１００セル
をコピーします。
各Ｂ・Ｃ・Ｄ・Ｅのエクセルが自動的に閉じます。
各Ｂ・Ｃ・Ｄ・Ｅのエクセルの各データが、
Ａデータのsheet1に、すべてのデータが順にコピーされる手順です。

できれば、ファイルサーバーにエクセルを保存しているので、
その点も加味いただけると嬉しいです。
（初心者なので、マクロの構文を書いて頂ける場合に、ファイルとかシートを自分で
設定する場合があるときには、説明文を頂けると嬉しいです。）

以上、宜しくお願い致します。

回答No.2

nda23 · ベストアンサー

'★実際のサーバ上のパス名を記述する
Const サーバのパス As String = "\\S～\"
'★コピー先の列位置
Const 列 As Long = 1
Private Sub CommandButton1_Click()
'★ファイル名は実体に合わせて記述する
複写 サーバのパス & "Bデータ.xls", 1
複写 サーバのパス & "Cデータ.xls", 101
複写 サーバのパス & "Dデータ.xls", 201
複写 サーバのパス & "Eデータ.xls", 301
End Sub
private Sub 複写(ByVal ファイル名 As String, ByVal 行 As Long)
Dim ブック As Workbook
Dim シート As WorkSheet
Set ブック = Workbooks.Open(ファイル名)
Set シート = ブック.WorkSheets("Sheet1")
シート.Range("A1:Z100).Copy ThisWorkbook.Sheet1.Cells(行, 列)
ブック.Close
End Sub

回答No.1

bin-chan

前段として、以下についてはご存知ですか？

セルに表示されている値が式の結果によるものである場合、「形式を選択して貼り付け-値」で
それぞれのセルに「値」として設定できること。

１）参照するブック・シート・範囲が固定のようですから、あらかじめ他ブックを参照する式設定したブックを用意。
２）「更新」で各データを取得。
３）全体をコピーして「形式を選択して貼り付け-値」で、式を値として保存する。

ではいかがでしょう？
ブックの式を値に変換して塗りつぶすので、作業の都度、ブックをコピーして使用してください。

補足

ありがとうございます、ただいまその方法をとっているのですが、
どうしても上司がマクロのほうがかっこいいということなんです。
（ときどき人為的なミスで参照値がおかしくなってしまうんですよ。悲しいことに。）

できれば、Ａ1からＺ１００というよりも
そのシート全体をコピーするやり
かたのほうがいいのかもしれないと思ってきました。