Excelのユーザーフォームで別のファイルに転記

質問

Excel2007です。

マクロを含んだデータファイルがあるのですが、マクロブックとデータブックは分割した方がよいと言われて今分割の方法を試しています。

「マクロブック.xlsm」にマクロを記述し、「商品在庫Data.xlsm」にデータが格納されています。
（まだ試験中で完全に分割できていないのでデータブックもxlsm形式ですが）

マクロブックのユーザーフォームから「商品在庫Data.xlsm」ファイルの「商品マスタ」というシートに転記したいのですが、どうやっても「商品在庫Data.xlsm」で「商品マスタ」シートを指定して転記できません。

ユーザーフォームのコードは下記のような内容です。
「HinTouroku」コマンドボタンを押した時に商品マスタシートに内容が転記されるようになっています。

Option Explicit

Private Sub HinTouroku_Click()

'商品登録

Dim lRow As Long
Dim s1 As String, s2 As String
Dim Ctrl As Control

With Workbooks("商品在庫Data.xlsm")
Worksheets ("商品マスタ")
lRow = .Range("A" & Rows.Count).End(xlUp).Row
s1 = .Cells(lRow, "A").Value
s2 = txtHinId.Text
If s1 = s2 Then
MsgBox "商品IDが重複しています"
Exit Sub
End If
lRow = lRow + 1

.Cells(lRow, "a").Value = txtHinId.Text
.Cells(lRow, "b").Value = txtSyohinmei.Text
.Cells(lRow, "c").Value = txtHinRyaku.Text
End With

For Each Ctrl In Me.Controls
If Ctrl.Name Like "txt*" Then
Ctrl.Value = ""
End If
Next

End Sub

Private Sub TourokuClr_Click()

'入力フォームのクリア

Dim myCtrl As Control

For Each myCtrl In Controls
If TypeName(myCtrl) = "TextBox" Then _
myCtrl.Value = vbNullString
Next

End Sub
Private Sub TourokuCls_Click()

'フォームを閉じる

Unload Me

End Sub

http://vbaexcel.seesaa.net/category/7604114-2.html

このサイトを参考にしながら書いてみたのですがどうしてもシートの指定ができず…

どのように記述すればよいのでしょうか？

回答No.1

moto_koukousei · ベストアンサー

この記載はあっていますか。

With Workbooks("商品在庫Data.xlsm")
Worksheets ("商品マスタ")

参考サイトには、次のように書かれています。

最初にWithステートメントでThisWorkbook.Worksheets(1)を指定しているので、
それ以降はEnd WithまでThisWorkbook.Worksheets(1)を省略することができます。

プロパティ、メソッドの前のピリオドを忘れずに！
さらに、With～End Withまでの命令をインデント（段下げ）することで、
どこからどこまでがWithステートメントかをわかりやすくしています。

Sub Withステートメントでまとめる1()
With ThisWorkbook.Worksheets(1)
　　.Range("A1").Value = "aaa"
　　.Range("A2").Value = "bbb"
　　.Range("A3").Value = "ccc"
End With
End Sub

この例に従うのなら、

With Workbooks("商品在庫Data.xlsm").Worksheets ("商品マスタ")

お礼

ありがとうございます

ピリオドが抜けてたんですね…

書きなおしてみましたがどうしても指定のシートがアクティブになりません…

他のところに問題があるのかも…