Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7928 / 13645 ツリー ←次へ | 前へ→

【36031】フォームに入力された文字列をテキストに書き出したい。 まだまだ初心者 06/3/19(日) 12:48 質問[未読]
【36033】Re:フォームに入力された文字列をテキスト... かみちゃん 06/3/19(日) 13:03 発言[未読]
【36034】Re:フォームに入力された文字列をテキスト... まだまだ初心者 06/3/19(日) 13:10 発言[未読]
【36035】Re:フォームに入力された文字列をテキスト... かみちゃん 06/3/19(日) 13:19 発言[未読]
【36036】Re:フォームに入力された文字列をテキスト... まだまだ初心者 06/3/19(日) 13:43 質問[未読]
【36037】Re:フォームに入力された文字列をテキスト... かみちゃん 06/3/19(日) 14:08 発言[未読]
【36038】Re:フォームに入力された文字列をテキスト... まだまだ初心者 06/3/19(日) 15:55 お礼[未読]
【36039】Re:フォームに入力された文字列をテキスト... かみちゃん 06/3/19(日) 17:38 発言[未読]

【36031】フォームに入力された文字列をテキストに...
質問  まだまだ初心者 E-MAIL  - 06/3/19(日) 12:48 -

引用なし
パスワード
   いつもアドバイスをいただいてありがとうございます。
今フォーム上に書き込んである文字列(form1のtextbox1)の値をテキストファイルに書き出し、およびそのテキストファイルから読み込みをしたいと思っているのですが、やり方が全くわかりません。
文字列が長いため、セルに一度入力してしまうと途中で途切れてしまいます。

ご教授いただけると大変助かります。

【36033】Re:フォームに入力された文字列をテキス...
発言  かみちゃん  - 06/3/19(日) 13:03 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>今フォーム上に書き込んである文字列(form1のtextbox1)の値をテキストファイルに書き出し、およびそのテキストファイルから読み込みをしたいと思っているのですが、やり方が全くわかりません。
>文字列が長いため、セルに一度入力してしまうと途中で途切れてしまいます。

文字列が長いため、セルに一度入力してしまうと途中で途切れてしまうから、
テキストファイルに直接書き出したいということですか?
それは、新しいテキストファイルでいいのですか?
すでにあるテキストファイルに書き出したいのであれば、そのファイルのどこに
書き出したいのか、具体的に説明してください。

テキストファイルに直接書き出したあと、そのテキストファイルを読み込むと、
文字列が長いため、セルに一度入力してしまうと途中で途切れてしまうかもしれ
ないのですが、それはいいのでしょうか?

基本的には、以下のような感じでできると思います。
Private Sub CommandButton1_Click()
 Open ThisWorkbook.Path & "\TES0319.TXT" For Output As #1
 'TextBox1の内容を保存
 Print #1, Me.TextBox1.Value
 Close #1
End Sub

【36034】Re:フォームに入力された文字列をテキス...
発言  まだまだ初心者 E-MAIL  - 06/3/19(日) 13:10 -

引用なし
パスワード
   かみちゃんさん

早速のお返事大変ありがとうございます。

>すでにあるテキストファイルに書き出したいのであれば、そのファイルのどこに
>書き出したいのか、具体的に説明してください。

ID番号のついた新しいファイルを作成して書き出したいと思っています。
既にID番号がついてあるファイルがある場合は、
上書き保存をして書き換えたいと思っています。
とりあえずいただいたヒントを基にして、やってみます。
ありがとうございます。

【36035】Re:フォームに入力された文字列をテキス...
発言  かみちゃん E-MAIL  - 06/3/19(日) 13:19 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>すでにあるテキストファイルに書き出したいのであれば、そのファイルのどこに
>>書き出したいのか、具体的に説明してください。
>
>ID番号のついた新しいファイルを作成して書き出したいと思っています。
>既にID番号がついてあるファイルがある場合は、
>上書き保存をして書き換えたいと思っています。

それであれば、ID番号をどこから取得してくるのかはわかりませんが、
ID番号でファイル名を生成して、そのファイル名で、さきほど提示したコードで
できると思います。

ただし、
テキストファイルに直接書き出したあと、そのテキストファイルを読み込むと、
文字列が長いため、セルに一度入力してしまうと途中で途切れてしまうかもしれ
ない
という疑問が残ります。

あと、[#35927]のご質問どなたからもレスがついていないようなのですが、まだ
解決されていないのでしょうか?

【36036】Re:フォームに入力された文字列をテキス...
質問  まだまだ初心者 E-MAIL  - 06/3/19(日) 13:43 -

引用なし
パスワード
   かみちゃんさん

ありがとうございます。
テキストファイルの書き出しは無事にできました。
しかし今度はやはり読み込みでつまづいています。
セルに読み込んでしまうと、文字列が途切れてしまうと思います。
直接フォームのテキストボックスに反映させる方法というのはあるのでしょうか?


[#35927]の内容は[#35912]の内容と同様で、[#35912]の方へご回答をいただきました。[#35927]は操作ミスで誤ってダブって投稿してしまったものです。
申し訳ありません。

▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>>すでにあるテキストファイルに書き出したいのであれば、そのファイルのどこに
>>>書き出したいのか、具体的に説明してください。
>>
>>ID番号のついた新しいファイルを作成して書き出したいと思っています。
>>既にID番号がついてあるファイルがある場合は、
>>上書き保存をして書き換えたいと思っています。
>
>それであれば、ID番号をどこから取得してくるのかはわかりませんが、
>ID番号でファイル名を生成して、そのファイル名で、さきほど提示したコードで
>できると思います。
>
>ただし、
>テキストファイルに直接書き出したあと、そのテキストファイルを読み込むと、
>文字列が長いため、セルに一度入力してしまうと途中で途切れてしまうかもしれ
>ない
>という疑問が残ります。
>
>あと、[#35927]のご質問どなたからもレスがついていないようなのですが、まだ
>解決されていないのでしょうか?

【36037】Re:フォームに入力された文字列をテキス...
発言  かみちゃん E-MAIL  - 06/3/19(日) 14:08 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>テキストファイルの書き出しは無事にできました。
>しかし今度はやはり読み込みでつまづいています。
>セルに読み込んでしまうと、文字列が途切れてしまうと思います。
>直接フォームのテキストボックスに反映させる方法というのはあるのでしょうか?

Input # ステートメント
Line Input # ステートメント
をあわせてヘルプで確認してみてください。

だいたい以下のような感じでできると思います。

Private Sub CommandButton2_Click()
 Dim strData As String
 
 Open ThisWorkbook.Path & "\TES0319.TXT" For Input As #1
 Line Input #1, strData
 Close #1
 
 '読み込んだ内容をTextBox1に反映
 Me.TextBox1.Value = strData
End Sub

>[#35927]の内容は[#35912]の内容と同様で、[#35912]の方へご回答をいただきました。[#35927]は操作ミスで誤ってダブって投稿してしまったものです。

それであれば、誤ってレスをつける人もいるかと思いますので、削除できる(パスワードが必要)ようであれば、
削除するか、できなければ、上記説明を加えて、ご自分でスレッドを締められた
ほうがよろしいかと思います。

【36038】Re:フォームに入力された文字列をテキス...
お礼  まだまだ初心者 E-MAIL  - 06/3/19(日) 15:55 -

引用なし
パスワード
   かみちゃんさん

本当にありがとうございます。
おかげさまで、一通り読み込み書き込みができるようになりました。
大変参考にさせていただきました。

ただ贅沢を言うならば、先ほどのコードだと改行までのデータを読み込んでくる
というものだと思うのですが、やはり改行が入ってしまうと難しいものなのでしょうか?
現時点でも十分だとは思うのですが、長いデータなのでいささか読みにくいと思いまして。

追記:ご指摘を受けまして、レスに関しては削除させていただきました。

【36039】Re:フォームに入力された文字列をテキス...
発言  かみちゃん  - 06/3/19(日) 17:38 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ただ贅沢を言うならば、先ほどのコードだと改行までのデータを読み込んでくる
>というものだと思うのですが、やはり改行が入ってしまうと難しいものなのでしょうか?

どのようなデータのことを心配されているのかがわかりませんので、コメントが難しいです。

7928 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free