Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41113 / 76736

←次へ　｜　前へ→


	【40706】Re:フルパスから文字列の分割をしてフォルダ名を取得する方法

亜由美 - 06/7/20(木) 19:24 -


	引用なし

	パスワード

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>>開いたファイルとどう関連つければいいのか
>
>落ち着いて考えましょう。以下のような感じです。
>
>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

ありがとうございますｗ
おかげで仕事がはかどりましたーーーーｗ

またわからなくなったらおしえてくださいｗ

本当にありがとうございました

0 hits

▼

【40527】フルパスから文字列の分割をしてフォルダ名を取得する方法 亜由美 06/7/15(土) 21:43