Excel VBA質問箱 IV

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

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


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

41286 / 76732

←次へ　｜　前へ→


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

亜由美 - 06/7/15(土) 21:43 -


	引用なし

	パスワード

こんばんわ。
ＶＢＡ勉強しはじめたばかりでまったくわかりません。
行き詰ってしまったので、どなたか教えてください。

フルパスから文字列の分割をしてフォルダ名を取得する方法を知りたいのですが

C:\Documents and Settings\ＡＡＡＡ\デスクトップ\元データ１\元データ２

というフルパスを取得することまではできました。
そこから、書き込みのシートのセルＡ１に「元データ１」を
セルＢ１に「元データ２」を取得して書き込みたいとおもっているのですが、
初心者なりに調べて考えたら、
なぜか、数字が入ってしまいます。

どうしてだめなのか、そしてどうすればいいのか
おしえていただけませんか？

Sub フォルダ名の取得()
　　Dim OpenFileName As String, OpFNam As String
　　Dim tmp As Variant　　
　　Dim PNum As String
　　Dim Pos , Pos2 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
'フルパスの前から\マークの位置を検索
　　Pos = InStr(FName, "\")
　　Pos2 =InStr(PNum, "\")

Workbooks("書き込みデータ.xls").Sheets(1).Cells(1, 1).Value = Pos
Workbooks("書き込みデータ.xls").Sheets(1).Cells(1, 2).Value = Pos2

End Sub

なぜか数字になってしまうのですが・・・
どなたか教えてください。

0 hits

▼

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

≪