ExcelVBAコードの編集方法を教えてください

質問

「ExcelVBA別フォルダにあるブックのコピー方法」
http://okwave.jp/qa/q8488933.html

上記質問でコードを教えていただきました。
自分で編集しようと思ったのですが、どうにもうまくいきません。

編集したい内容としては、
出力する「ファイルC」に複数のシートがあるので、
それぞれのシートを指定して値をコピーしたいのです。
でも、別のシート名の指定がうまくいきません。

シートはフォーマットが決まったものが配置されているのですが、
1つのシートごとに数が異なります。

'//////////////////////////////////////////////////////

Private Sub CommandButton1_Click()
Dim vTgYear As Variant
Dim sht結果 As Worksheet, sht上小 As Worksheet
Dim sht保存 As Worksheet
Dim sht元データ As Worksheet
Dim sMyDir As String
Dim sWbkFullName As String
Dim sWbkName2 As String
Dim sShtName As String
Dim sMsg As String
Dim i As Long
Dim seru As Range

vTgYear = ComboBox1.Value '　　●
If Not vTgYear Like "####" Then
MsgBox "年次を指定してからやり直し", vbExclamation
Exit Sub
End If

Select Case vTgYear
Case 1999 To 2012 '　　●
Case Else
MsgBox "1999～2012の間で年次を指定してからやり直し", vbExclamation '　　●
Exit Sub
End Select

sMyDir = ThisWorkbook.Path & "\"

With Application
.ScreenUpdating = False
'　　　　.DisplayAlerts = False
.Calculation = xlCalculationManual
End With

' ' ファイルC_結果.xls を開く
sWbkFullName = sMyDir & "3_フォルダC\ファイルC_結果.xls" '●
sShtName = "地域A" '●
On Error Resume Next
Set sht結果 = Workbooks.Open(sWbkFullName).Sheets(sShtName)
On Error GoTo 0
If sht結果 Is Nothing Then
MsgBox sWbkFullName & vbLf & sShtName & vbLf & "開くことが出来ませんでした", vbExclamation
Exit Sub
End If

' ' 出力先のセル範囲を値消去
sht結果.Range("D7:F44,H7:J44,L7:L44,N7:Q44").ClearContents
' ' 前年～翌年、ループ
For i = -1 To 1
' ' 1_フォルダA
sWbkFullName = sMyDir & "1_フォルダA\" & vTgYear + i & "_ファイルA.xls"
sShtName = "Sheet1"
On Error Resume Next
Set sht元データ = Workbooks.Open(sWbkFullName).Sheets(sShtName)
On Error GoTo 0
If sht元データ Is Nothing Then
sMsg = sMsg & vbLf & "●" & sWbkFullName & vbLf & sShtName
Else
sht結果.Range("E7:E25").Offset(, i).Value = sht元データ.Range("C5:C23").Value
sht結果.Range("E26:E44").Offset(, i).Value = sht元データ.Range("D5:D23").Value
sht元データ.Parent.Close SaveChanges:=False
Set sht元データ = Nothing
End If

' ' 2_フォルダB
sWbkFullName = sMyDir & "2_フォルダB\" & vTgYear + i & "_ファイルB.xls" '●
sShtName = "Sheet1" '●
On Error Resume Next
Set sht元データ = Workbooks.Open(sWbkFullName).Sheets(sShtName)
On Error GoTo 0
If sht元データ Is Nothing Then
sMsg = sMsg & vbLf & "●" & sWbkFullName & vbLf & sShtName
Else
sht結果.Range("I7:I25").Offset(, i).Value = sht元データ.Range("C5:C23").Value
sht結果.Range("I26:I44").Offset(, i).Value = sht元データ.Range("C25:C43").Value sht元データ.Parent.Close SaveChanges:=False
Set sht元データ = Nothing
End If
Next i
' ' "ファイルC_2006～2008年結果.xls"形式の名前を付け保存して閉じる

Application.DisplayAlerts = False

sht結果.SaveAs Filename:=sMyDir & "3_フォルダC\" & ComboBox1.Value & "_ファイルC.xls" '　　●

Application.DisplayAlerts = True

With Application
.ScreenUpdating = True
'　　　　.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
Set sht結果 = Nothing

If sMsg = "" Then
MsgBox Label1.Caption & vbLf & "処理完了", vbInformation
Else
MsgBox sMsg & vbLf & "開くことが出来ませんでした", vbExclamation
End If
End Sub

'//////////////////////////////////////////////////////

文字数制限のため全てのコードを書けなかったのですが、
(1)フォルダは複数ある
(2)データ元のコピー方法は3種類
　　(1)コンボボックスで選択した前後2年のファイルの値をコピーする
　　(2)コンボボックスで選択した年次のみのファイルの値をコピーする
　　(3)範囲がどの結果の範囲に対しても同一の場合がある

(1)(2)は教えていただいたコードでクリアしているのですが、
前の質問の時に結果のファイルにシートが複数あるのをお伝えするのを忘れてしまいました。
結果ファイルの複数のシートにコピーするにはどのように編集したらよいのか教えていただけますと幸いです。

締め切りが近くとても焦っています。

自分でどうにかできないのがお恥ずかしいのですが、どうかよろしくお願い致します。

回答No.1

cj_mover · ベストアンサー

こんにちは。

苦労しているみたいですね。

> 締め切りが近くとても焦っています。

お気持ちは解りますが、ここは落ち着いて、
あなたのやりたいことを、要件を整理することから始めましょう。

あなたの手元にあるワークブックもワークシートも、
こちらからは見えていませんから、
今回の説明では「何を」「どこに」「どのように」という具体的な説明がないと、
残念ながら着手できません。

> 編集したい内容としては、
> 出力する「ファイルC」に複数のシートがあるので、

"3_フォルダC\ファイルC_結果.xls"という名前のブックには複数のシートがある事だけは解りました。
が、

> それぞれのシートを指定して値をコピーしたいのです。
> でも、別のシート名の指定がうまくいきません。
> シートはフォーマットが決まったものが配置されているのですが、
> 1つのシートごとに数が異なります。
...
> 　　(3)範囲がどの結果の範囲に対しても同一の場合がある

このままでは、何をしたいか伝わりません。
それぞれのシートの名前が解りませんし、
具体的に「何を」「どこに」「どのように」"値をコピーしたい"のか、
融通が利かないパソコン君でも迷わず処理できるように、
オーダーを整理して投稿し直してください。

お急ぎということなので、私よりも早い回答が得やすいように、
この質問は一旦未解決のまま締切にして、新たに質問を建て直すことをお勧めします。
やるべきことが理解出来れば、できるだけ回答するようにしますけれど、
私以外の方にも参与して貰えるように書いた方がいいと思います。

とりあえず、お役に立てず、すみません。

お礼

ありがとうございました。だいぶわたわたしていたようです。
「ExcelVBA複数のシートへのコピーの方法」http://okwave.jp/qa/q8504035.html
で新しく質問させていただきました。こちらでうまく伝わると良いのですが。ご回答いただけますと幸いです。何卒よろしくお願い致します。