| |
▼ポポ さん：
>お世話になります。初心者ポポといいます。
>
>ユーザーフォームのリストボックスで選択した科目と同じ名前のシート（開始画面.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
> Workbooks("Fn1")
Workbooks(Fn1)
変数を""でくくってはダメです。
あと、
>うまくいきません。
どううまくいかないのか？
各ブックと各シートの関係も明確にされては？
|
|
じゅんじゅん
- 08/1/18(金) 15:35 -
