No.4
- 回答日時:
Function FolderPath2() As String
'2002以降で動作します
With Application.FileDialog(msoFileDialogFilePicker)
If .Show = -1 Then 'アクションボタンがクリックされた
FolderPath2 = .SelectedItems(1)
Else 'キャンセルボタンがクリックされた
FolderPath2 = ""
End If
End With
End Function
Sub test01()
x = FolderPath2()
MsgBox x
p = InStrRev(x, "\")
MsgBox Mid(x, p + 1, Len(x) - p)
End Sub
functionの部分は
http://www.k1simplify.com/vba/tipsleaf/leaf260.h …
などWEB照会すれば出てくる。
MsgBox Mid(x, p + 1, Len(x) - p)
の右の方で、選択されたファイル名が取れた。
エクセル2002VBAでテスト済み。
No.3
- 回答日時:
#1です。
>MsgBox fname & vbCrLf & Dir(fname)
あふぉな回答でした。
自分のPC内で「FileDialog 」で検索して見つかった
コードをnikogooさんのコードと勘違いして、その
コードに付加するものだけをアップしてました。
ちなみに、nikogooさんのコードと勘違いしたものは
Dim fname As String
fname = Application.GetOpenFilename("エクセルファイル, *.xls")
です。
失礼しました。
No.2
- 回答日時:
こんばんは。
>ファイルパスを取得する変数しか取得できません。
FileDialog で、どうやって使っているのか書かれていませんので、こちらが考えなくてはならないわけですが、msoFileDialogFolderPicker を使っているからだと思います。
>ファイルのファイル名のみを取得する
というのは、たとえば、こんな風にすればよいのでは?
Sub Test1()
Dim fn As Variant
Dim i As Integer
With Application.FileDialog(msoFileDialogOpen)
.FilterIndex = 2 'EXCEL
i = .Show
If i = -1 Then
For Each fn In .SelectedItems
MsgBox Mid$(fn, InStrRev(fn, "\") + 1)
Next fn
End If
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) Csvファイルの最終行を取得する構文はこれであっていますか?オブジェクトは、このプロパティまたはメソ 3 2022/12/26 14:38
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- JavaScript オブジェクト配列の各メンバを任意の式で評価して、その評価値が最大のオブジェクトを返す関数はありますか 2 2023/05/20 15:02
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
パワーポイント filedialogでフォルダ名
PowerPoint(パワーポイント)
-
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
-
4
VBAでファイル名の取得方法
PowerPoint(パワーポイント)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
7
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
8
DATE型変数を初期化する方法
Visual Basic(VBA)
-
9
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
10
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
11
VBAで文字を反映させると255文字の制限になってしまいます。
Visual Basic(VBA)
-
12
【Excel VBA】データ貼り付け先のシート名選択
Excel(エクセル)
-
13
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
14
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
15
エクセルマクロで「1」を「01」に変換したい
Excel(エクセル)
-
16
EXCEL VBAのユーザーフォームに引数を渡す方法について
Excel(エクセル)
-
17
お助けください!VBAのファイル名エラーについて
Visual Basic(VBA)
-
18
【ExcelVBA】各セルをダブルクォーテーションで括ってCSV保存したい
Visual Basic(VBA)
-
19
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
20
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
FileDialog オブジェクトでファ...
-
VB.Netソリューションでフォー...
-
VBAでフォルダ内のhtmlファイル...
-
サブフォルダ含むフォルダ内の...
-
vbaサブフォルダーをワイルドカ...
-
VBA、ファイル名検索から開く、...
-
Accessのウインドウサイズの固定
-
ffftpでファイル取得が0バイト...
-
excel マクロ PDF化の際のエラ...
-
Excel VBAでのファイル名取得方法
-
AccessからOLEオブジェクト型の...
-
ディレクトリ配下のファイル名...
-
VBAでCSVファイルを読み込もう...
-
更新日が指定日以降のファイル取得
-
Wordのプロパティ・総ページ数...
-
【ACCESS VBA】アクセスからデ...
-
コモンダイアログのファイルを...
-
WinInet.dll の使い方
-
「エクセルファイルが開いてい...
-
VBAによるファイル名リスト作成
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaサブフォルダーをワイルドカ...
-
動かなくなってしまった古いVBA...
-
ffftpでファイル取得が0バイト...
-
FileDialog オブジェクトでファ...
-
サブフォルダ含むフォルダ内の...
-
「エクセルファイルが開いてい...
-
Accessのウインドウサイズの固定
-
excel マクロ PDF化の際のエラ...
-
ExcelVBA 文字コード変換
-
AccessからOLEオブジェクト型の...
-
VBAでフォルダ内のhtmlファイル...
-
【VBAマクロ初心者】Excel VBA...
-
VBからExcelファイルを開くとき...
-
「AccessViolationException」...
-
【ACCESS VBA】アクセスからデ...
-
VB6でUTF-8ファイルの読取りを
-
ファイルを開く時間測定のスク...
-
複数のワークブックのVBAを変更...
-
VB.net XMLの作成方法 Iniの代替
-
エクセルのVBAで開いている...
おすすめ情報