|
こんにちは
こんな感じかな?
シート名はそちらの環境に合わせて下さい。
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
|
|