|
こんにちは。かみちゃん です。
>開いたファイルとどう関連つければいいのか
落ち着いて考えましょう。以下のような感じです。
Sub フォルダ名の取得4()
Dim OpenFileName As String, OpFNam As String
Dim PNum As String
Dim a() As String
'開くファイル名を指定する。
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName = "False" Then
Exit Sub
End If
'ファイルを開く
Workbooks.Open OpenFileName
'開いたファイルを『OpFNam』という名前とする。
OpFNam = ActiveWorkbook.Name
'フルパスの取得
PNum = Workbooks(OpFNam).Path
a = Split(OpenFileName, "\")
Workbooks("書き込みデータ.xls").Sheets(1).Cells(1, 1).Value = a(UBound(a) - 2)
Workbooks("書き込みデータ.xls").Sheets(1).Cells(1, 2).Value = a(UBound(a) - 1)
End Sub
|
|