|
かみちゃんさんのコードを元に下記のコードでファイルを開く事ができました。
さらに、開いた出荷一覧表のB列〜E列、I列〜K列、P列〜AA列、AC列をコピーしてきて、
マクロを設定したファイルのB列から貼り付けたいのですが、
そのようなことは可能でしょうか?
Private Sub CommandButton1_Click()
test.Show
End Sub
Sub test()
Dim strFileName As String
Dim WB As Workbook
Dim MYPATH As String
Dim MYBK As String
MYPATH = "C:\Documents and Settings\aaa\デスクトップ\一覧表\"
MYBK = MYPATH & strFileName & " 出荷一覧表" & ".xls"
strFileName = InputBox("開くファイルの年を入力してください(例)2005")
If strFileName <> "" Then
strFileName = MYPATH & strFileName & " 出荷一覧表" & ".xls"
If Dir(strFileName) <> "" Then
Set WB = Workbooks.Open(strFileName)
Else
MsgBox strFileName & "がありません"
End If
End If
End Sub
|
|