- 779 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7d3d-OlK+) mailto:sage [2017/06/13(火) 15:04:10.26 ID:y6bvTk4c0.net]
- >>742
Sub foo()
Dim WB As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
If .Show Then src = .SelectedItems(1)
End With
If IsEmpty(src) Then Exit Sub
Set WB = Workbooks.Open(src, 0, 1)
Process WB
If Not WB Is Nothing Then WB.Close: Set WB = Nothing
End Sub
Sub Process(WB As Workbook)
'行いたい処理
End Sub
fooをボタンに登録すれば好きなファイルを指定して開くことが出来る。
ファイルBの処理はProcess内に書く。
