お世話になります。
タイトルのままなんですが、
VBAでフォルダのフルパスを取得したいのですが出来るでしょうか?
ファイルのフルパスは FN = Application.GetOpenFilename で取得出来たのですが
同じ様に ダイアログから選択する様に出来るでしょうか?

A 回答 (4件)

こんな使い方が正しいかどうか分かりませんし、ご希望のものとは少し違うかもしれませんが、参考までに…。



Sub Test2()
  Dim FileName As Variant
  FileName = Application.GetSaveAsFilename _
    (InitialFileName _
       :="フォルダを選択してください", _
    FileFilter:="(*.---),*", _
    Title:="フォルダの選択")
  If FileName = False Then Exit Sub
  MsgBox Mid(FileName, 1, _
     InStrRev(FileName, "\") - 1)
End Sub

この回答への補足

なかなか いい感じに出来ました。
ありがとうございます。

補足日時:2003/04/23 13:33
    • good
    • 0
この回答へのお礼

回答ありがとうございました。
無事解決することができました。
また、疑問がありましたら
よろしくお願いします。 

お礼日時:2003/04/23 13:56

>> VBAでフォルダのフルパスを取得したいのですが出来るでしょうか?



> フォルダを選ぶと、そのフォルダの中のファイルを
> 全部表示するようにしたいのです。

うぅ~ん どっちなんでしょうかね。
なんか趣旨が一貫していないような気がしますが・・・

ホルダだけ指定するのであれば、組込みのダイアログを使用するのは、
無理があると思います。

それであればフォルダ名を選択するフォームを作ったら如何でしょうか。

選択するホルダは、ある1個のホルダの中の複数のホルダということで
いいのですか?

下記の例は、フォームにリストボックスとコマンドボタンを配置し、
そのリストボックスに表示されたフォルダの中から選択するように
したものです。

例では、ユーザーフォームの名前を UserForm1、リストボックスの名前を
ListBox1 とします。
"c:\test\"の中のホルダをリストボックスに表示し、選択したホルダの
中の標準ファイルだけをMsgBoxに表示します。

やりたいことがいまいち解りませんので、外れているかも知れませんが、
推測したところでは、こんな感じです。

Public MyPath As String
Sub test2()
Dim MyName As String
MyPath = "c:\test\"
MyName = Dir(MyPath, vbDirectory)
UserForm1.Show (vbModeless)
UserForm1.ListBox1.Clear
Do While MyName <> ""
  If MyName <> "." And MyName <> ".." Then
    If (GetAttr(MyPath & MyName) And vbDirectory) = _
      vbDirectory Then
      With UserForm1.ListBox1
        .AddItem MyName
        .ListIndex = 0
      End With
    End If
  End If
  MyName = Dir
Loop
End Sub

Private Sub CommandButton1_Click()
Dim FName As String
Dim Rw As Integer
Dim FNdsp As String
MyPath = MyPath & Me.ListBox1.Value & "\"
FName = Dir(MyPath, vbNormal)
Do While FName <> ""
  If FName <> "." And FName <> ".." Then
    If (GetAttr(MyPath & FName) And vbNormal) = _
      vbNormal Then
      Rw = Rw + 1
'      Cells(Rw, 1).Value = FName
      FNdsp = FNdsp & MyPath & FName & vbCrLf
    End If
  End If
  FName = Dir
Loop
UserForm1.Hide
MsgBox FNdsp
End Sub

この回答への補足

すみません、質問がごちゃごちゃしてしまいました。
今作ってるのが、フォルダ名をセルに入れてVBAを実行すると
セルにファイルのリストを表示するものなので
そのフォルダ名を簡単に取得出来ないものかと調べていました。

補足日時:2003/04/23 13:41
    • good
    • 0
この回答へのお礼

回答ありがとうございました。
無事解決することができました。
また、疑問がありましたら
よろしくお願いします。

お礼日時:2003/04/23 13:56

こんなのはどうでしょう、他にもっと良い方法があるのかもしれませんが。



Sub Test()
  Dim FileName As Variant
  FileName = Application.GetOpenFilename _
       ("JPEGファイル (*.jpg),*.jpg")
  If FileName = False Then Exit Sub
  MsgBox Mid(FileName, 1, _
        InStrRev(FileName, "\") - 1)
End Sub

この回答への補足

回答ありがとうございます。
このVBAと同じように、ファイルを選択してフォルダ名を取得するようにしてるのですが
これを、直にフォルダを選ぶようにしたいのです。
よろしくお願いします。

補足日時:2003/04/21 13:16
    • good
    • 0

一例ですが、下記のコードは、ファイル選択ダイアログからファイル(複数可)を


選択し、フルパスでファイル名をアクティブシートのA1から下へ書き込みます。

Sub test1()
  Dim FName As Variant
  Dim I As Integer
  FName = Application.GetOpenFilename _
    ("Excelファイル (*.xls), *.xls", , , , True)
    For I = 1 To UBound(FName)
      ActiveSheet.Cells(I, 1).Value = FName(I)
    Next I
End Sub

こんなもので、どうにか参考になりませんか。

この回答への補足

回答ありがとうございます。
同じ様なのは、作れたのですが、
フォルダを選ぶと、そのフォルダの中のファイルを
全部表示するようにしたいのです。
わかりましたら、よろしくお願いします。

補足日時:2003/04/21 13:09
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q画像が表示されない!フォルダが開けない!

IE6なんですけど画像が表示されません。赤い×印が出るとかじゃなくて完全に表示されないんです。
(残り○○項目)画像http://www.○○○.gifをダウンロードしてますとメッセージが左下に出たままいつまでも表示されないです。

同時に全てのフォルダ、マイコンピューター、マイドキュメントが完全に開けない状態になってしまいました。ポインタが砂時計のままウィンドウにはいつまでもなにも出てこない状態です。(フリーズはしないです。)

手の施しようもなくかなり困ってます。助けて~

Aベストアンサー

[ツール]→[インターネットオプション]にて
インターネット一時ファイルの[ファイルの削除]ボタンを押し、
[□すべてのオフラインコンテンツを削除する]をチェックし、[OK]を押します。
[インターネットオプション]ウィンドウも[OK]を押します。

これでどうでしょうか。ご確認ください。

QエクセルVBAで、図の挿入をして図のフルパスを取得したい

Excel97, Windows98SEを使用しています。

写真パス = Application.GetOpenFilename
ActiveSheet.Pictures.Insert(写真パス).Select

で、図の入っているフルパスを取得して、挿入しているのですが、
これだと図のファイルを選択する際にプレビューが出てきません。

「図の挿入」ダイアログから図を挿入し、その図のフルパスを
取得できる方法がありましたら教えて下さい。
よろしくお願いいたします。

Aベストアンサー

図の挿入ダイアログから図を挿入した時点で、Shapeオブジェクトになり元の図の情報はどこにも持っていませんので、残念ながら図のパスを取得する方法はありません。

それから、Application.GetOpenFilenameでプレヴューは表示されると思いますが・・・。

それはそうと、図のパスを取得してどんなことをしたいのでしょうか、それを具体的に提示されるとそれなりのアドバイスがもらえるかも知れませんよ。
 

Qフォルダのカスタマイズで背景画像が表示されない

フォルダ -[表示]-[このフォルダのカスタマイズ]で
背景画像を設定しても
そのフォルダ内に"Folder Setting"フォルダと
"desktop.ini"ファイルが作成されて
画像が表示されません。

ご教授をお願いいたします。

Aベストアンサー

desktop.iniをメモ帳などで開いて、

http://oxygen.at.webry.info/200407/article_4.html
ここの2.desctop.ini ファイルを設定の
IconArea_Image=
に表示したい画像のアドレスになっていますか?
壁紙などで使用するbmpファイルなど選ぶといいかもしれません。
画像を置いてある場所によっては、表示できないときもあると思います。

Qフォルダ選択でなくフルパスをセルの値から取得したい

フォルダを選択して写真をシート上に表示するマクロを探すことができました。
LUは,
http://programlife.jugem.jp/?eid=48


できれぱセルの値のフルパスを参照して写真を表示したいと思いいろいろ試して見ましたがうまくいきません。最後のフォルダを選択しなけれぱならないようです。

変更前
' フォルダ選択画面を表示
Set shell = CreateObject("Shell.Application")
Set myPath = shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:¥")



変更後
"C:¥") ⇒ Sheets("データ").Cells(4, 1).Value   へ変更

フルパス = Sheets("データ").Cells(4, 1).Value = C:\Users\***\Desktop\写真


' フォルダ選択画面を表示
Set shell = CreateObject("Shell.Application")
Set myPath = shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, Sheets("データ").Cells(4, 1).Value )

どうかよろしくお願いします。

フォルダを選択して写真をシート上に表示するマクロを探すことができました。
LUは,
http://programlife.jugem.jp/?eid=48


できれぱセルの値のフルパスを参照して写真を表示したいと思いいろいろ試して見ましたがうまくいきません。最後のフォルダを選択しなけれぱならないようです。

変更前
' フォルダ選択画面を表示
Set shell = CreateObject("Shell.Application")
Set myPath = shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:¥")



変更後
"C:¥") ...続きを読む

Aベストアンサー

>フルパス = Sheets("データ").Cells(4, 1).Value = C:\Users\***\Desktop\写真

意味不明です、Cells(4, 1).Value Valueは数値の値でパスは文字列ですね

Sheets("データ").Cells(4, 1)="C:\Users\***\Desktop\写真"

これならパスをCells(4,1)に入れることができますがなぜセルにパスを入れるのか解りません、直接パスを指定して表示すれば済むと思います。

データ型の基本知識の理解をもう少し深めて下さい、この場合マクロの自動記録で実際にやりたいことをマクロで記録してそのマクロの不要な部分を削除したり変えたりしたほうが早く理解も解決もすると思います。

QMicrosoft Office Pictureに画像が表示されない

よろしくお願いします。
Windows10の画像管理ソフトの既定にMicrosoft Office Picture(Microsoft Office 2010)を使用しています。過去から自作のアイコンを多数作成し、Pictureに保存しています。(100くらい)
ところがMicrosoft Office Pictureでファイルを開くと下記に添付したように画像が急に表示されなくなりました。ここに記述してある「画像のみ表示」のチェックを外してもOffice Pictureのアイコンが表示されるだけです。どこかの設定が知らぬ間に変わってしまったのでしょうか。色々調べましたが分かりません。ただ画像は表示されなくてもアイコンはファイルを指定すると変更もできます。
デジカメ写真や他の画像もフォルダー別に保存していますが、これらは正常に表示されます。

Aベストアンサー

>過去から自作のアイコンを多数作成し、Pictureに保存しています。(100くらい) 
 ファイル形式は「.ico」でしょうか

>下記に添付したように画像が急に表示されなくなりました。
 以前は Picture Manager で「.ico」が表示できていたと言うことでしょうか?
 
Picture Manager で表示できる対応ファイルは、初期設定では
「JPEG」「GIF」「BMP」「PNG」の4種類です。
追加で「TFF」「WMF」「EMF」が可能。
それ以外のファイルですと表示することができません。
http://blog.goo.ne.jp/emihime_001/e/6eeb3763a7e4a3798b4c688aa874ab36

質問者様が書いている「自作のアイコン」という物が「.png」の場合は設定が変わっているかと思われます。

以下を参考に設定してみてください。
設定方法。
スタート⇒「すべてのアプリ」⇒「Microsoft Office」⇒「Microsoft Office Picture Manager」を右クリック。
「その他」⇒「管理者として実行」 
Picture Manager が起動したら「ツール」⇒「ファイルの種類」で全てに☑を入れ「OK」

ファイル形式が「.ico」の場合は、Picture Manager では開けませんので、既定のアプリを
「フォト」「Photo Gallery」「Windows フォト ビューアー」等に変更する必要があります。

「Windows フォト ビューアー」が選択できない場合は以下を参考に。
https://i-bitzedge.com/tips/how-to-use-windows-photo-viewer-in-windows-10

>過去から自作のアイコンを多数作成し、Pictureに保存しています。(100くらい) 
 ファイル形式は「.ico」でしょうか

>下記に添付したように画像が急に表示されなくなりました。
 以前は Picture Manager で「.ico」が表示できていたと言うことでしょうか?
 
Picture Manager で表示できる対応ファイルは、初期設定では
「JPEG」「GIF」「BMP」「PNG」の4種類です。
追加で「TFF」「WMF」「EMF」が可能。
それ以外のファイルですと表示することができません。
http://blog.goo.ne.jp/emihime_001/e/6eeb...続きを読む

QExcel2016のダイアログ画面について

Excelを閉じようとすると、時々、以下のような画面が表示されます。
意味がわからないまま、OKボタンを押しています。
どういう意味なのかと、注意点があれば教えてください。

Aベストアンサー

はい。そうしてください。
変更があれば、一番目のボタンでファイル情報を確認してください。

Q忍者簡単ホームページの画像が表示されない

宜しくお願いします。
忍者ホームページの簡単ホームページでホームページを作りましたが画像が表示されず
コメントだけの表示に成ります。
FFFFTPとかホストとか効きますが一度も利用したことが有りません
HTMLはメモ帳で作成し画像は同じパソコンのデスクトップにフォルダーとして保存しております。
忍者ホームページにアップロードした画像ファイル名は一致しております
幾度試しましたが同じ状態です
下記はいま利用中のURLです宜しくお願いします。は間違って居りますでしょうか困って居ります
http://qqai54.dousetsu.com/simpleVC_20110710164243.html

ここはテーフルタグです。
<table align="right">
<tr><td><img src="img142.jpg"width="250" height="250"></td>
<td><img src="img004.jpg"width="250" height="250"></td></tr>
<tr align="center"><td bgcolor="#ffcccc">ハイブリットフリウス</td>
<td bgcolor="#66cc66">フーガハイブリット</td></tr>
<tr><td><img src="img013.jpg"width="250" height="250"></td>
<td><img src="img889.jpg"width="250" height="250"></td></tr>
<tr align="center"><td bgcolor="#cc9900">ポルシェカレラ</td>
<td bgcolor="#9999cc">フェラリーモンディアル</td></tr>
</table>

宜しくお願いします。
忍者ホームページの簡単ホームページでホームページを作りましたが画像が表示されず
コメントだけの表示に成ります。
FFFFTPとかホストとか効きますが一度も利用したことが有りません
HTMLはメモ帳で作成し画像は同じパソコンのデスクトップにフォルダーとして保存しております。
忍者ホームページにアップロードした画像ファイル名は一致しております
幾度試しましたが同じ状態です
下記はいま利用中のURLです宜しくお願いします。は間違って居りますでしょうか困って居ります
http://qqai5...続きを読む

Aベストアンサー

http://oshiete.goo.ne.jp/qa/6866707.html
こちらで答えてますが、わからなかったでしょうか。
同じ質問内容ならば、上記のやりとりで疑問点を補足してもらえればそれに対して答えます。
新しく質問をするのなら、上記を締め切った上で質問なさってください。

どちらのやりとりも中途半端になりますので、同じ回答を入れておきます。
不明なところがありましたら、どちらかのやりとりで補足して、もう片方は締め切ってください。

---------------------------------

【回答】
画像の場所の記述が間違っています。
画像は、htmlファイルが保存されている下のディレクトリであるsimpleVC_imgに保存されています。
質問にあるタグでは、htmlと画像が同じディレクトリに保存されている状態でないと画像が表示されません。

例えば、img src="img142.jpg" だったら、img142.jpgは、以下のように訂正してください。
http://あなたの忍者ホームページのアドレス/simpleVC_img/img142.jpg

但し、簡単ホームページにソースを貼りつけてもタグが適度に書き換えられますので、タグを手打ちしているのならFTPでのアップロード方法を覚えたほうがいいと思います。

http://oshiete.goo.ne.jp/qa/6866707.html
こちらで答えてますが、わからなかったでしょうか。
同じ質問内容ならば、上記のやりとりで疑問点を補足してもらえればそれに対して答えます。
新しく質問をするのなら、上記を締め切った上で質問なさってください。

どちらのやりとりも中途半端になりますので、同じ回答を入れておきます。
不明なところがありましたら、どちらかのやりとりで補足して、もう片方は締め切ってください。

---------------------------------

【回答】
画像の場所の記述が間違っていま...続きを読む

Qexcelを開くと謎のダイアログが

今日突然なのですが、エクセルファイルを開くと変なダイアログが出てくるようになってしまいました。
VideoSoft Flex3とかかれており、このソフトを使うには○○ドル払えというメッセージが英文で出てきます。
googleで調べたところ、PTC広告というものらしいということがわかったのですが、これはいったいなんなのでしょうか?
そのメッセージがでるのはあるひとつのエクセルファイルだけで、他は通常通り開けます。
どなたか分かる方いましたら直し方を教えてください、お願いします

Aベストアンサー

こんばんは。

>そしてスパイウエアなんですけども、作業していたのが会社のPCでして、スパイウエアをインストールしてみても起動することができなかったんです。

何かの間違いでは?スパイウェアは、トロイの木馬の一種ですが、通常、増殖はしません。スパイウェアをインストールすると、レジストリのRun Entry に名目が入ります。主な働きは、「盗み聞き」です。それは、ユーザーの情報を暗黙裡に、他に送信するのが目的です。米国 Yahooの一部のツールやRealOne などにもあります。彼らは、言い訳はしていますが、スパイウェアです。

アドウェアの中で、意図してインストールし、アンインストールできるものは、通常は問題ないです。しかし、例えば、有名なJWord は、どんな企業がバックアップしても、今までの経緯からして、意図してインストールしていないので、マルウェアで、おそらくは、スパイウェアとされています。

ウィルスは、最近は、99%は削除できますが、スパイウェアは、結構、掛からないことがあります。2~3種類使わないと検出できないことがあります。Labasoft は、スウェーデンですから、スパイウェアのデータベースの表現などは容赦ないです。その点において、米国系のデータベースは、曖昧な文章が多いです。以下では、一番強力なのは、spybot と聞きます。

Lavasoftの「Ad-Aware」、Webroot Softwareの「SpySweeper」また、「spybot」は、つとに有名です。

>googleで調べたところ、PTC広告というものらしいということがわかったのですが、

そのサイトの話とはちょっと違うような気がします。もう少し、詳しい情報がないと分からないのですが、Excelだけでしたら、最初に、以下のところを調べます。

<ドライブ>:\Program Files\Microsoft Office\OFFICE??\XLSTART\ (??は数字、ない時もある)

<ドライブ>:\Documents and Settings\<ログイン ユーザ名>\Application Data\Microsoft\Excel\XLStart\

この辺りに、自分が入れた覚えのないものが入っていたら、まず、それは削除するか、そのフォルダから出すことですね。また、XLStart2 となっていたりすることもあります。

それから、後は、コントロールパネルの「アプリケーションの追加と削除」をみて、それらしきものがないか調べることです。

その上で、アンチ・スパイウェアツールを使ってみることです。

こんばんは。

>そしてスパイウエアなんですけども、作業していたのが会社のPCでして、スパイウエアをインストールしてみても起動することができなかったんです。

何かの間違いでは?スパイウェアは、トロイの木馬の一種ですが、通常、増殖はしません。スパイウェアをインストールすると、レジストリのRun Entry に名目が入ります。主な働きは、「盗み聞き」です。それは、ユーザーの情報を暗黙裡に、他に送信するのが目的です。米国 Yahooの一部のツールやRealOne などにもあります。彼らは、言い訳はして...続きを読む

Qアップロード後にHPの画像が表示されない

HP作成初心者です。

windows7、メモ帳でHTMLを作成し
エクスプローラで確認した時点では画像はすべて見られます。

サーバーにアップロード後
HPの画像のほとんどが表示されない状態です。
全12ページ、画像は30枚程度ですが
全部が見られないわけではなく、数枚は見られます。

サーバーはロリポップで、フォルダごとアップロードはできないため
alphaEditでフォルダごとアップロードしました。

・アップロード後にhtmlは文字化けしていない
・サーバー上で画像はすべて正常に確認できる
・大文字、小文字を含めたファイル名と記述名に間違いはない
・画像はすべて同一ファイルにある
・同じJPG、同じような名前の画像でも表示されるものと、されないものがある
・PNGの画像は一枚も表示されない
・画像ファイルのみ、htmlファイルをそれぞれ再アップロードしても同じ

というところまで確認できたのですが
あとはhtmlの記述ミスを探すしかないのでしょうか。

数枚ではありますが、表示されている画像もあるので
フォルダの指定間違いではないとは思います。

htmlは自分ですべて記述したものではなく
フリーの素材を使い、画像を挿入したり内容を記入したりしたため
これ以上記述のミスを探すのも難しい状態です。

他になにか解決の糸口はありますでしょうか。
お知恵を貸してください!

HP作成初心者です。

windows7、メモ帳でHTMLを作成し
エクスプローラで確認した時点では画像はすべて見られます。

サーバーにアップロード後
HPの画像のほとんどが表示されない状態です。
全12ページ、画像は30枚程度ですが
全部が見られないわけではなく、数枚は見られます。

サーバーはロリポップで、フォルダごとアップロードはできないため
alphaEditでフォルダごとアップロードしました。

・アップロード後にhtmlは文字化けしていない
・サーバー上で画像はすべて正常に確認できる
・大文字、小文字を...続きを読む

Aベストアンサー

No,3です。

最初の2項目で解決しないということは。画像ファイルが,期待通りの場所に存在していない可能性が大きいですね。

>・URLを直接入力する方法が分からなかったので、こちらはまだ試していません。
そうですか。では次の点を確認してみましょう。
IEだと,図が表示されるべき位置に×印のようなものが表示されていることと思います。
その上で右ボタンをクリックして,プロパティを表示させてみて下さい。
これで表示される「アドレス(URL)」が,想定通りのアドレスになっているでしょうか。
a)最初が http:// ではじまっているか。(例えば file:// ではない)
b)画像の名前が,パスを含めて想定通りに表示されているか。
 (大文字/小文字,全角/半角など要注意)

Q組込ダイアログについて(エクセル)

エクセルの組込ダイアログにパスのみを選定(ファイルを開くでファイルを開くのではなく目的にフォルダーを選定してそのフォルダーのパスを取得)するものってありますか?
皆さんは、どのように実現していますか?
VBAに詳しい方教えてください。
宜しくお願い致します。

Aベストアンサー

こちらを参考にしては?
http://www.officetanaka.net/excel/vba/tips/tips39.htm


人気Q&Aランキング

おすすめ情報