|
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>開いたファイルとどう関連つければいいのか
>
>落ち着いて考えましょう。以下のような感じです。
>
>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
ありがとうございますw
おかげで仕事がはかどりましたーーーーw
またわからなくなったらおしえてくださいw
本当にありがとうございました
|
|