|
お世話になります。初心者ポポといいます。
ユーザーフォームのリストボックスで選択した科目と同じ名前のシート(開始画面.xlsのworksheets発注検収のrange("A1")に表示してあるファイルのworksheetです)Range("A1:I100")をコピーして違うファイル(開始画面.xls)のシートに貼り付けたいのですが、うまくいきません。どこが違うか教えていただけないでしょうか?
'科目シート表示
Private Sub OK_Click()
Dim 表示 As String
Dim Fn1, Fn2, パス As String
表示 = Me.lstKAMOKU.Text
If lstKAMOKU <> "" Then
パス = ActiveWorkbook.Path & "\保存\"
Fn1 = Dir(パス & Workbooks("開始画面.xls").Worksheets("開始").Range("A1").Value & ".xls")
Workbooks("Fn1").Worksheets("表示").Range("A1:I100") = Worksheets("発注検収").Range("A12:I112")
Else
MsgBox ("科目が選択されていません")
End If
End Sub
|
|