EXSEL2003でユーザフォームにテキストボックスを作成してテキストボックスの横に参照ボタン(コマンドボタン)をおいて
参照ボタンを押すと参照ファイルが開いてテキストボックスにパス名だけを取り込見たいのですが次のようにやってみましたが
うまくいきませんGetOpenFilenameをどのように記載すればよいかを教えてください。
参照して取り込みたいファイルは
C:¥UWSC44b.uwsc\aaa.uwsというファイルのパス名です。
ボタンに記載したコードは次のようですが
Sub filename_get()
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("c:uwsc44b,*.uws?")
Workbooks.Open OpenFileName
End Sub
上記のように記載したのですがファイルは参照できるのですがパス名が取り込むことができません。
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
自分のやり方でやりたいのかもしれないが、何をしたいのか良くわからない。
.GetOpenFilenameならどのパスのどのファイルか、わかっている時に使うもので、プログラムで開くときパスも判っているはず。
ーー
選択したファイルのパス名を知りたいなら
エクセルのファイルに限るなら
Sub test03()
'With Application.FileDialog(msoFileDialogFolderPicker)
With Application.FileDialog(msoFileDialogFilePicker)
'初期フォルダ設定
.InitialFileName = "C:\DATA\"
'ダイアログのタイトル
.Title = "ファイルを選択してください"
If .Show = True Then
MsgBox .SelectedItems(1)
f = .SelectedItems(1)
If Right(f, 4) = ".xls" Then
r = InStrRev(f, "\")
MsgBox Left(f, r - 1) 'パス名
MsgBox Right(f, Len(f) - r) 'ブック名
Else
MsgBox "エクセルを選択のこと"
End If
End If
End With
End Sub
のようなのもありかな。
しかしこういうニーズは現実的かな。
外にも色いろなやり方がある個所のようなのでWEBで調べまくること。
この回答への補足
回答ありがとうございます。
すみません質問が適当でなかったようです
単純に選択したファイルのパス名を知りたいのです。
よろしくお願いします。
No.2
- 回答日時:
ご質問を読み違えましたかね。
「ファイルを指定する」のもハズせないのでしたら
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("*.uws,*.uws?")
If OpenFileName = "False" Then Exit Sub
MsgBox Left(OpenFileName, InStrRev(OpenFileName, "\") - 1)
とか。
失礼しました。
No.1
- 回答日時:
たとえば「excel vba フォルダを選択」をキーワードにして,ちょっとぐぐってみましょう。
見つかります:
http://officetanaka.net/excel/vba/tips/tips39.htm
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
ファイルを並び替えるときの「...
-
CSVで文字化けしてしまうのを直...
-
EXCELのVBAで画像を選んだ順に...
-
Teraマクロで日付ディレクトリ...
-
エディタで効率的な切り出し方法
-
ローマ字→カタカナへ変換(エク...
-
EXCEL 複数のシートの同一の位...
-
複数ファイルにある特定のシー...
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
AccessのテーブルデータをExcel...
-
エクセルのマクロ機能で前のシ...
-
複数シートのヘッダ・フッタの...
-
Excelマクロでオプションボタン...
-
コマンドボタンがあるかどうか...
-
押したボタンの位置取得(共通の...
-
実行中の作業を中止させるコマンド
-
マクロ 実行ボタンを押さずに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
ファイルを並び替えるときの「...
-
EXCELのVBAで画像を選んだ順に...
-
Teraマクロで日付ディレクトリ...
-
エクセルファイルから指定した...
-
PDF ファイルが開けません。
-
エディタで効率的な切り出し方法
-
エクセルからスキャナVBAで連動...
-
=CELL("filename")で取得したフ...
-
CSVで文字化けしてしまうのを直...
-
VLOOKUP関数とネットワークに置...
-
Excel VBAで自動的にハイパーリ...
-
エクセル 一括リンクの解除
-
ハイパーリンクで前回値をひき...
-
EXCELのマクロを使って、テキス...
-
EXCELで複数のファイルから抽出
-
ミュージックファイルのファイ...
-
Notes 開発で、 excelファイル...
-
Excelでリンクを使用すると#N/A...
おすすめ情報