|
>Sub test()
> Dim strFileName As String
> Dim WB As Workbook
> Dim MYPATH As String
>
> MYPATH = "C:\Documents and Settings\aaa\デスクトップ\一覧表\"
>
> strFileName = InputBox("開くファイルの年を入力してください(例)2005")
> If strFileName <> "" Then
> strFileName = MYPATH & strFileName & " 出荷一覧表" & ".xls"
>
> If Dir(strFileName) <> "" Then
> Set WB = Workbooks.Open(strFileName)
> WB.ActiveSheet.Range("B:E,I:K,P:AA,AC:AC").Copy _
> ThisWorkbook.Worksheets("Sheet1").Range("B1")
> Else
> MsgBox strFileName & "がありません"
> End If
>
> End If
>
>End Sub
お世話になります。
せっかく作って頂いたこのコード、他のシートで使いたいのですが、
コピーが終わった後、
strFileName = MYPATH & strFileName & " 出荷一覧表" & ".xls"
を閉じるには、どぅすればいいですか?
WB.ActiveSheet.Range("B5:G35565,K5:AE35565").Copy _
ThisWorkbook.Worksheets("ユーザー一覧表").Range("B5")
worksheetsclose ("出荷管理表")
としてみたのですが、"Sub、Function、または Property が定義されていません。(Error 35)"と出てしまいます。
|
|