• ベストアンサー

EXSELでユーザフォームに参照ボタン

EXSELでユーザフォームにテキストボックスがありテキストボックスの横に参照ボタン(コマンドボタン)をおいて参照ボタンを押すと参照ファイルが開いてテキストボックスにファイル名だけを取り込む方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • xls88
  • ベストアンサー率56% (669/1189)
回答No.2

どこまで出来ているのですか? わからないところを具体的に示してください。 ブックを開く http://officetanaka.net/excel/vba/file/file01.htm 名前を指定してブックを開く http://officetanaka.net/excel/vba/file/file02.htm Private Sub CommandButton1_Click()   'ブックを開く処理   TextBox1.Value = "ファイル名" End Sub

saab8743
質問者

お礼

できました。ブックの開く処理までは出来ていたのですがコマンドボタンからテキストボックスに繋がらなかったのですが・・・・・ ありがとうございました。

その他の回答 (1)

noname#77449
noname#77449
回答No.1

>EXSELでユーザフォームにテキストボックスがありテキストボックスの横に参照ボタン(コマンドボタン)をおいて参照ボタンを押すと参照ファイルが開いてテキストボックスにファイル名だけを取り込む方法を教えてください。 EXSELというソフトは聞いたことがありませんが、EXCELなら良く知っています。 VBAを使いたいのですよね。 しかしながら、こういう質問内容では回答できません。 「課題の丸投げ」という禁止行為ですのでご理解ください。 VBAを自分で勉強してから、本当にわからないことを質問するのならば、正しい利用方法ですし、よい回答がつきますので。

関連するQ&A

  • パス名を参照するコードのファイルネームがが知りたい

    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 上記のように記載したのですがファイルは参照できるのですがパス名が取り込むことができません。 よろしくお願いします。

  • 参照ボタン

    「ファイル参照」を作成したとき、テキストボックスと参照ボタンが表示され、参照ボタンをクリックするとファイル選択ダイアログが表示されて選択したファイル名がテキストボックスに表示されますが、あらかじめテキストボックスにファイル名が表示されるような処理はHTMLにあるのでしょうか?

    • ベストアンサー
    • HTML
  • エクセル ユーザーフォーム

    エクセルのユーザーフォームでコマンドボタンを使ってテンキーを作りたいのですが、入力するときにテキストボックス1、テキストボックス2の切り替え方がわからなく困っています。 2つのテキストボックスに対応させるにはどのようにコードを書いたら良いでしょうか。 よろしくお願いします。

  • ユーザーフォームいろいろについて

    いろいろ手探りでVBAでユーザーフォームを作成し コマンドボックスによりテキストボックスを指定のセルへ転記し ユーザーフォームを終了させるという簡単ですがプログラミングをしました。 さらに、下記のことができたらと思ってるのですがどうしたら良いのかわかりません。 1.2種類のユーザーフォームを作成し、ファイルを開くと  選択肢ウィンドウが現れ選択したほうのユーザーフォームが開く 2.チェックボックスまたはラジオボタンで選択された項目を  指定のセルへ○を反映させたい。 以上のことを加えたいのですが、できますでしょうか。 つたない説明ですが御回答の程宜しくお願い致します。

  • EXCEL ユーザーフォームを使ったマクロ

    データの登録をするのにユーザーフォームを使おうと思うのですが、なかなかうまくいきません。教えてください。 ユーザーフォームにはコンボボックス、テキストボックス、コマンドボタンが貼り付けてあります。(コンボボックスのリストには呼び出したいシートの名前が入っています) コンボボックスのリストの中から呼び出したいシートを選択し、テキストボックスに入力した内容を、コマンドボタンを押すことで選択されたシート上の、あるセルに登録したいのですがどうすればよいでしょうか?

  • Excelユーザーフォームでのデータ検索

    初心者の質問で申し訳ございません。 ユーザーフォームを利用して検索ボタンを作ろうと考えています。 ユーザーフォームでテキストボックスを2個と コマンドボタン1個を作成し、 テキストボックス1に検索したい氏名を入力して コマンドボタンを押すと、 ワークシート(ワークシート名、データ)に作成されたデータのD列から 一致するものを検索し、 一致したデータのA列にある「番号」をテキストボックス2、 表示する。 というマクロが書けず困っています。 よろしくお願いします。

  • VBAのユーザーフォームについて

    VBAの全くの素人です。 ユーザーフォームについていくつか質問させてください。 テキストボックスにファイル名を入力し、実行釦を押す事で、IEを立ち上げ、画像ファイルを開くマクロを組んだ場合、 (1)「クリア」というコマンド釦を作り、その釦を押した際にテキストボックスに入力した値を消す為には、そのコードにはどのように記述すればよいでしょうか? (2)さらにその「クリア」釦を押す事により立ち上げたIEを閉じる事はできないでしょうか? (3)このマクロを組んだExelファイルを立ち上げた時点で、マクロを実行し、「終了釦」を作り、その釦により、Exelごと終了させるにはどうすれば良いでしょうか? 以上、素人の質問で恐縮ですがご教示ください。 よろしくお願いします。

  • VBAのユーザーフォーム・・

    教えてください。 ユーザーフォームのテキストボックス・コンボボックスに入力した文字列をコマンドボタンを押したら、セルC1・B1に反映させたいのですが、できません。 このコマンドボタンには他のプログラムも入っており、同時にプログラムを実行したいのですが。

  • エクセルのユーザーフォームについて

    パスワード入力用のしかけです。 ワークシートに配置したコマンドボタンを押してユーザーフォームを呼び出します。 Private Sub CommandButton1_Click() UserForm1.Show End Sub ユーザーフォームにはテキストボックスとコマンドボタンを配置しております。 テキストボックスのPasswordCharには * を設定しました。 Private Sub CommandButton1_Click() If StrConv(TextBox1.Text, vbLowerCase) = "abcd" Then MsgBox "OK!" Unload Me Else TextBox1.Text = "" TextBox1.SetFocus End If End Sub これで、ABCDまたはabcdと入力され、ユーザーフォーム上のコマンドボタンをクリックすれば、ユーザーフォームは消えます。 でも、いちいちマウスでクリックするのが面倒なのでEnterキー1回でユーザーフォームを消したいのです。 今でも、一度Enterキーを押すと、ボタンにフォーカスが移動するので、さらにEnterで消えますが、二度ではなくEnterキー1回でユーザーフォームを消すにはどうすればよいのでしょうか? ユーザーフォームは使ったことがないのでわかりません。 よろしくお願いします。

  • ユーザーフォームについて

    エクセル2002です。 ユーザーフォーム内のテキストボックスを使用して、 (1)A1のセルに1と入力されている状態でマクロを起動した場合、 (2)ユーザーフォーム内のテキストボックスには2と表示される (3)ユーザーフォーム内のボタンを押すと、A2のセルに2と入力される。 このような流れで、A列のデータ最終行に番号をふっていきたいです。 (A列のデータ最終行がA30なら、A31に31と番号をふる) ユーザーフォームのテキストボックスとボタンは作ってあるのですが、 それぞれに入れるコードを教えていただけないでしょうか。 よろしくお願いします。

専門家に質問してみよう