VBを勉強し出して早1ヶ月…全然進歩が見られない私ですが、
ご存知の方の知識をお借りしたいのですが
テキストボックスに入力した文字をtxtファイルに保存して
今度そのtxtファイル内の文字をコンボボックスに表示する様にするには、
どの様なコーディングを書き込めば宜しいのでしょうか?
又、xlsファイルの列に入力している文字のみをコンボボックスに
表示する事は出来るのでしょうか?
この問題にぶち当たり早5日、思考錯誤?を繰り返しましたが、
もはやギブアップ状態
お詳しい方、笑いながら教えて頂けませんでしょうか(出来れば超簡単に…)
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
笑!!
じゃ、以下のサンプルを参考にして下さい。
open app.path & "\" & "sample.txt" for output as #1
Write #1,text1.text
close #1
dim strTmp as string
open app.path & "\" & "sample.txt" for input as #1
do while not eof(1)
input #1,strTmp
combo1.AddItem strTmp
loop
close #1
なんていかが?
実際試してないからわかんないけど。(多分うごくよ。)
ただ、一度ファイルに書き出す必要がないのならもっとスマートなやり方あるかも。
No.2
- 回答日時:
Excelファイルの操作に関しては、過去ログ中の拙文の引用になりますが、以下のようにしてください。
Excelがインストールされている環境でのみ使える方法です。
「参照設定」で、「Microsoft Excel 9.0 Object Library」にチェックをつけて、以下のようにコーディングします。
Excelの各オブジェクトについては、ExcelのVBAのヘルプを参照してください。
Private Sub Command1_Click()
Dim ExcelApp As New Excel.Application
Dim ExcelSheet As Excel.Worksheet
Dim CellData As Variant
On Error Resume Next
'開く
ExcelApp.Workbooks.Open ("X:\XXX\Book1.xls")
Set ExcelSheet = ExcelApp.Workbooks("Book1.xls").Worksheets("Sheet1")
'エラーチェック
If Err <> 0 Then
MsgBox Err.Description
Exit Sub
End If
'ワークシートからデータを取得して、コンボボックスに設定する
With ExcelSheet
CellData = .Range("C1") 'C1のセルを取得
MsgBox CellData & "をリストに追加!"
Combo1.Additem CellData
End With
End Sub
****
上記の「セルを取得」を利用して、各セルの値を取得し、それをコンボボックスのAddItemメソッドを使って、値を設定してやればいいと思います。
不明点とかあったら、補足をお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP 文字列を段落で分ける方法を教えて下さい。 2 2023/03/09 10:03
- 画像編集・動画編集・音楽編集 inkscapeで作成した図の保存の仕方とその保存したファイルの編集の仕方 1 2022/09/22 09:33
- C言語・C++・C# 至急教えてください!プログラミングの問題です。 入力待ちをして、受け取った正の整数が表す行数だけ既存 4 2022/07/05 10:12
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
テキストファイルのタブをカン...
-
多数のサブディレクトリ内のフ...
-
拡張子を元に戻す
-
バッチファイルで文字列削除に...
-
forfilesで検索したファイルを...
-
VBAでワークシートを引数として...
-
ファイルを処理中に次の処理に...
-
.txtではなく.logの方が良いの...
-
バッチファイルからVBAに引数を...
-
【Excel】 VBAを使って毎回名前...
-
テキストファイルのファイル名...
-
renameコマンドについて
-
Excelで、大量のファイルをテキ...
-
cshでファイルサイズ取得
-
COPYコマンドで結合すると余計...
-
テキストファイルの内容を連結...
-
EXCEl/VBAで拡張子なしのファイ...
-
VBAでエクセルをtxtに変換する...
-
ftpコマンドで複数のファイルを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
.txtではなく.logの方が良いの...
-
拡張子を元に戻す
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
バッチファイル 複数ファイル...
-
テキストファイルで提出とは?
-
バッチファイルで文字列削除に...
-
Windowsのバッチファイルを利用...
-
テキストファイルのファイル名...
-
ファイルの最後に文字列挿入
-
psqlでエラーログをとりたい
-
forfilesで検索したファイルを...
-
バッチファイルからVBAに引数を...
-
accessでSQL文を使ってcsvファ...
-
テキストファイルのタブをカン...
-
MATLABで行列を配列に格納する方法
-
renameコマンドについて
-
【Excel】 VBAを使って毎回名前...
おすすめ情報