みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ExcelVBAマクロでテキストボックスの値の代入

ExcelVBAマクロについて確認させてください。
下記のように読み込みたいファイルをフォームで指定して
それを変数aに読み込ませています。
この方法の他に、ユーザーフォームでテキストボックスを
作成してテキストボックス内で文字を記入してその文字を
変数aに読み込ませることは可能でしょうか。
可能であればその方法をぜひご教授ください。

----------------------------------
Sub sample()

Dim buf As String
Dim a As String

buf = Application.GetOpenFilename(FileFilter:="テキスト文書,*.txt", Title:="サンプル") 'フルパスも含めたファイル名をbufに代入

With CreateObject("Scripting.FileSystemObject").GetFile(buf).OpenAsTextStream'指定したファイルを開く
    a = .ReadAll'テキスト文書の内容を文字列aに代入
    .Close'指定したファイルを閉じる
End With

End Sub

投稿日時 - 2012-06-02 00:35:07

QNo.7509381

すぐに回答ほしいです

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

> この方法の他に、ユーザーフォームでテキストボックスを
> 作成してテキストボックス内で文字を記入してその文字を
> 変数aに読み込ませることは可能でしょうか。

何を聞きたいのかサッパリだ。
「この方法の他に」 の 「この方法」 が指しているのは 「テキスト ファイルの中身を変数 a に読み込む方法」 だろ?
で、質問したいのは 「テキスト ボックスの値を変数 a に読み込む方法」 だろ?
テキスト ファイルのくだりは関係あんの?

a = textbox1.text
っていう回答で合ってんの?

投稿日時 - 2012-06-02 01:05:43

お礼

ご返事が遅くなり、申し訳ございません。
ご助言ありがとうございます。
ご助言の通り、試行してみましたところ、
うまく実行出来ました。

このたびは本当にありがとうございました。

投稿日時 - 2012-06-20 00:30:49

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問