Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

116 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【80162】Re:指定のフォルダからテキストの中身を...

猿 - 18/9/20(木) 22:01 -


	引用なし

	パスワード

▼γ さん：
>実行の仕方に何か誤解があるのでしょう。
>断らない限り、私は、正常に動作することを確認してから
>投稿しています。
>ステップ実行して動作を確認してみては？

承知しました。
もう一度確認してみます。

・ツリー全体表示


	【80161】Re:指定のフォルダからテキストの中身を...

γ - 18/9/20(木) 12:25 -


	引用なし

	パスワード

実行の仕方に何か誤解があるのでしょう。
断らない限り、私は、正常に動作することを確認してから
投稿しています。
ステップ実行して動作を確認してみては？

・ツリー全体表示


	【80160】ディスプレイ設定のスケールサイズ変更方...

ゼンゼン - 18/9/20(木) 9:32 -


	引用なし

	パスワード

ゼンゼンと申します。

ＶＢAからディスプレイ設定で調整することができる、スケールサイズの変更を行いたいのですが、可能でしょうか？

ＡＰＩを使えばできそうな気もするのですが、調べたところ、あまり具体的な方法を見つけだせない状況です。
よろしくお願いいたします。

・ツリー全体表示


	【80159】Re:指定のフォルダからテキストの中身を...

猿 - 18/9/19(水) 20:20 -


	引用なし

	パスワード

▼猿さん：
>▼γ さん：
>>Sub test()
>>　　Dim FSO As Object
>>　　Dim TextFile As Object
>>　　Dim buf As String
>>　　Dim f As Object
>>　　Dim r As Long
>>
>>　　Set FSO = CreateObject("Scripting.FileSystemObject")
>>
>>　　r = 4　 '最初の書込先の行番号
>>
>>　　'フォルダの中のファイルをシートのB列に読み込む
>>　　For Each f In FSO.GetFolder("C:\Work").Files
>>　　　　Set TextFile = FSO.OpenTextFile(f.Path)
>>　　　　buf = TextFile.ReadAll
>>　　　　Cells(r, 2).Value = Application.Clean(buf)
>>　　　　r = r + 1
>>　　Next
>>　　Set FSO = Nothing
>>End Sub
>>
>>私も素人です。
>>追加依頼は受けかねます。
>>
>># ご本人に本当に益するのか、丸投げに回答するにも逡巡がありました。
>># 少しでもトライの跡を見せていただいたほうが回答はし易いですね。
>># 全く習い始めたということなら教科書を学習したほうがよいと思う。
>
>
>γ さま
>
>　ご回答ありがとうございました。感謝いたします。
>これから勉強してみます。
γさま

ちなみにですが、教えて頂いたコードでは、だめでした。
テキストの書き込みすらできませんでした。

・ツリー全体表示


	【80158】Re:指定のフォルダからテキストの中身を...

猿 - 18/9/19(水) 20:17 -


	引用なし

	パスワード

▼マナさん：
>▼猿さん：
>
>他にも参考になるものがないか
>きっと探せば見つかると思います
>
>ht　tp://excelmemo.com/vba_7/7_14/
>ht　tps://www.239-programing.com/excel-vba/fso/fso028.html
>ht　tps://excelwork.info/excel/fsoopenastextstream/
マナさま

ありがとうございます。
見させていただきましたが、要望とおりのコード
は得られませんでした。
できれば、コードを直接教えてもらえないでしょうか。

・ツリー全体表示


	【80157】Re:指定のフォルダからテキストの中身を...

猿 - 18/9/17(月) 9:54 -


	引用なし

	パスワード

▼γ さん：
>Sub test()
>　　Dim FSO As Object
>　　Dim TextFile As Object
>　　Dim buf As String
>　　Dim f As Object
>　　Dim r As Long
>
>　　Set FSO = CreateObject("Scripting.FileSystemObject")
>
>　　r = 4　 '最初の書込先の行番号
>
>　　'フォルダの中のファイルをシートのB列に読み込む
>　　For Each f In FSO.GetFolder("C:\Work").Files
>　　　　Set TextFile = FSO.OpenTextFile(f.Path)
>　　　　buf = TextFile.ReadAll
>　　　　Cells(r, 2).Value = Application.Clean(buf)
>　　　　r = r + 1
>　　Next
>　　Set FSO = Nothing
>End Sub
>
>私も素人です。
>追加依頼は受けかねます。
>
># ご本人に本当に益するのか、丸投げに回答するにも逡巡がありました。
># 少しでもトライの跡を見せていただいたほうが回答はし易いですね。
># 全く習い始めたということなら教科書を学習したほうがよいと思う。

γ さま

　ご回答ありがとうございました。感謝いたします。
これから勉強してみます。

・ツリー全体表示


	【80156】Re:指定のフォルダからテキストの中身を...

γ - 18/9/17(月) 9:04 -


	引用なし

	パスワード

Sub test()
　　Dim FSO As Object
　　Dim TextFile As Object
　　Dim buf As String
　　Dim f As Object
　　Dim r As Long

　　Set FSO = CreateObject("Scripting.FileSystemObject")

　　r = 4　 '最初の書込先の行番号

　　'フォルダの中のファイルをシートのB列に読み込む
　　For Each f In FSO.GetFolder("C:\Work").Files
　　　　Set TextFile = FSO.OpenTextFile(f.Path)
　　　　buf = TextFile.ReadAll
　　　　Cells(r, 2).Value = Application.Clean(buf)
　　　　r = r + 1
　　Next
　　Set FSO = Nothing
End Sub

私も素人です。
追加依頼は受けかねます。

# ご本人に本当に益するのか、丸投げに回答するにも逡巡がありました。
# 少しでもトライの跡を見せていただいたほうが回答はし易いですね。
# 全く習い始めたということなら教科書を学習したほうがよいと思う。

・ツリー全体表示


	【80155】Re:指定のフォルダからテキストの中身を...

猿 - 18/9/16(日) 21:08 -


	引用なし

	パスワード

▼γ さん：
>確認です。
>1.ファイルには1行だけ入っているんですか？
>2.書き込み先のB列には空欄がランダムにあるんですか？
>それとも上から順次書き込んでいけばいいんですか？
>3.詰まっているのはどこですか？
>　読み込みはできているんですか？
>　いったん読み込んでから、適切な位置に
>　コピーしても良いし、
>　テキストファイルの読み込みメニューを使えば
>　指定した位置に読むことができます。

γ さま
　お返事、ご質問ありがとうございます。ご回答いたします。
>1.ファイルには1行だけ入っているんですか？
　→はい、１行です。ただし、かなり長い（100文字以上はあります）です。

>2.書き込み先のB列には空欄がランダムにあるんですか？
>それとも上から順次書き込んでいけばいいんですか？

　→上から順次書き込んでい行く感じです。
　　歯抜け的な空欄はありません。

>3.詰まっているのはどこですか？
>　読み込みはできているんですか？
>　いったん読み込んでから、適切な位置に
>　コピーしても良いし、
>　テキストファイルの読み込みメニューを使えば
>　指定した位置に読むことができます。
　→お恥ずかしい話、当方素人でありまして、まったくマクロのコードが書
　　けません。できれば、ＶＢＡのコードをご教授いただければ幸いです。

・ツリー全体表示


	【80154】Re:指定のフォルダからテキストの中身を...

γ - 18/9/16(日) 18:14 -


	引用なし

	パスワード

確認です。
1.ファイルには1行だけ入っているんですか？
2.書き込み先のB列には空欄がランダムにあるんですか？
それとも上から順次書き込んでいけばいいんですか？
3.詰まっているのはどこですか？
　読み込みはできているんですか？
　いったん読み込んでから、適切な位置に
　コピーしても良いし、
　テキストファイルの読み込みメニューを使えば
　指定した位置に読むことができます。

・ツリー全体表示


	【80153】Re:指定のフォルダからテキストの中身を...

マナ - 18/9/14(金) 21:20 -


	引用なし

	パスワード

▼猿さん：

他にも参考になるものがないか
きっと探せば見つかると思います

ht　tp://excelmemo.com/vba_7/7_14/
ht　tps://www.239-programing.com/excel-vba/fso/fso028.html
ht　tps://excelwork.info/excel/fsoopenastextstream/

・ツリー全体表示


	【80152】Re:指定のフォルダからテキストの中身を...

猿 - 18/9/14(金) 20:56 -


	引用なし

	パスワード

▼マナさん：
>▼猿さん：
>
>
>例えば FileSystemObject が使えるかもしれません。
>使用例はネットで検索してみてください。
>
>ht tp://officetanaka.net/excel/vba/filesystemobject/index.

マナさま

ありがとうございます。見てみたのですが、さっぱりわかりませんでした。

・ツリー全体表示


	【80151】Re:指定のフォルダからテキストの中身を...

マナ - 18/9/13(木) 21:45 -


	引用なし

	パスワード

▼猿さん：

例えば FileSystemObject が使えるかもしれません。
使用例はネットで検索してみてください。

ht tp://officetanaka.net/excel/vba/filesystemobject/index.htm

・ツリー全体表示


	【80150】指定のフォルダからテキストの中身を取込...

猿 - 18/9/12(水) 20:59 -


	引用なし

	パスワード

いつもお世話になっております。

エクセルVBAについて，助けていただきたくご質問します。

【やりたいこと】
　指定のフォルダ（D:\text）にある複数のテキストファイル
の中身を，セルＢ２からＢ列の最後の行において空欄セルを見
つけた場合に，順次読み込んでいく。

【例】

D:\text・・・・001.text（ABCD）
　　　　　　　 002.text（EFGH）
　　　　　　　 003.text（IJKL）
※（）はテキストファイルの中に入力されているデータ

マクロ実行！
＜エクセル結果＞
　Ｂ列
2　zzzz
3　zzzz
4　ABCD
5　EFGH
6　IJKL

のような感じです。是非ともよろしくお願いいたします。

・ツリー全体表示


	【80149】Re:別のシートから別のシートへ

まくろ - 18/9/12(水) 11:26 -


	引用なし

	パスワード

▼γ さん：
>ステップ実行して確認することをお勧めする。
>わたしも実行してみたが問題なかった。
>データの関係かと思います。
>自分で確認するより他に道はないです。

ステップ実行して解決致しました！
ありがとうございました

・ツリー全体表示


	【80148】Re:Excel　vbaのコードをVBSに変換

HY - 18/9/11(火) 19:54 -


	引用なし

	パスワード

▼よろずやさん：
>ht tp://zukunasiblog.blog.fc2.com/blog-entry-15.html

私の理解力では上手くいきませんでしたが、WSHの環境をcscript 32bit
にしないといけないのは間違いない事がいろいろ調べて確認できました。
この度は、誠に有難うございました。

・ツリー全体表示


	【80147】Re:別のシートから別のシートへ

γ - 18/9/11(火) 19:01 -


	引用なし

	パスワード

ステップ実行して確認することをお勧めする。
わたしも実行してみたが問題なかった。
データの関係かと思います。
自分で確認するより他に道はないです。

・ツリー全体表示


	【80146】Re:Excel　vbaのコードをVBSに変換

よろずや - 18/9/11(火) 11:09 -


	引用なし

	パスワード

ht tp://zukunasiblog.blog.fc2.com/blog-entry-15.html

・ツリー全体表示


	【80145】Re:Excel　vbaのコードをVBSに変換

HY - 18/9/11(火) 10:20 -


	引用なし

	パスワード

▼よろずやさん：
>＞私の環境は、Win10、Office2003です。
>
>元のソースの出どころは？

私が、昨夜作ったコードです。ネット等見て見様見真似で作りました。

>どういう環境で動いていたのでしょう？

私のExcel 2003　VBAで実装成功しましたので、VBScriptに改変できないか試行錯誤していました。

>Win 10 は 64ビットですよね。
>Provider: Microsoft.ACE.OLEDB.12.0;
>にするといけるかも。
>あるいは、cscript を32ビット版にするとか。

接続文字列がOffice2007以降の物ですので、無理でした。
>
>いずれにしても、Win10、Office2003 の組み合わせが問題ですね。

Excelのインスタンス生成までは動いていたので、ADOも行けるものかと思っていました。VBScriptでADOに関しては、私の環境では通常、accdbファイルに接続以外不可という認識でよろしいでしょうか？Win10、Office2003 の組み合わせが問題これに尽きるかどうか、ここに関してのご返答を再度頂けましたら幸いです。
よろしくお願いいたします。

・ツリー全体表示


	【80144】Re:別のシートから別のシートへ

まくろ - 18/9/11(火) 9:49 -


	引用なし

	パスワード

▼γ さん：
>Range("B3").SpecialCells(xlCellTypeBlanks) = 0
>はどういう意図でしょうか？

間違えました
Range("B1：E31").SpecialCells(xlCellTypeBlanks) = 0
です。

一致しなかったブランクのところに0が入るようにしています。
なくても別に大丈夫です。

・ツリー全体表示


	【80143】Re:Excel　vbaのコードをVBSに変換

よろずや - 18/9/11(火) 9:02 -


	引用なし

	パスワード

＞私の環境は、Win10、Office2003です。

元のソースの出どころは？
どういう環境で動いていたのでしょう？
Win 10 は 64ビットですよね。
Provider: Microsoft.ACE.OLEDB.12.0;
にするといけるかも。
あるいは、cscript を32ビット版にするとか。

いずれにしても、Win10、Office2003 の組み合わせが問題ですね。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

116 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free