- ベストアンサー
VBAでのテキストファイルに対する処理
環境：Windows2000 Access2000 フロッピーディスク内の読取り専用ファイルをＶＢＡで読み書きできるファイ ルに変更する事はできますか？ また、フロッピーディスク内に新規でテキストファイルを作成する事はできま すか？ ご指導宜しくお願い致します。
- tattann
- お礼率13% (5/37)
- Visual Basic
- 回答数3
- ありがとう数2
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
単にテキストファイルを作るだけなら、もう少し簡単な方法もあります。 Open "a:\Test.txt" For Output As #1 Print #1, "あいうえお" Close #1 ファイル属性の変更は、SetAttr ステートメントを使えば可能です。 SetAttr "a:\Test.txt", vbNormal Open ステートメント、Print（またはWrite） # ステートメント、SetAttr ステートメントをＨＥＬＰで確認してください。
その他の回答 (2)
- PAPA0427
- ベストアンサー率22% (559/2488)
はじめまして。 ＶＢＡでファイルオープンする場合は、オブジェクト変数を作成して下さい。 Set Fp = CreateObject("Scripting.FileSystemObject") Set Tx = Fp.CreateTextFile("A:\TextFile.txt", True) これで、ファイルのオープンが出来ました。 Tx.ReadLine( 変数 ) で、「変数」に１行分のテキストが読み込まれます。 書き込みには、Tx.WriteLine( 変数 )を使用します。 処理が完了したら、ファイルを閉じます。 Tx.Close 後は、ご自分でよろしくお願いします。
> フロッピーディスク内の読取り専用ファイルをＶＢＡで > 読み書きできるファイルに変更する事はできますか？ FDにライトプロテクトが掛かっていなければ、可能です。 > フロッピーディスク内に新規でテキストファイルを作成する事はできますか？ FDにライトプロテクトが掛かっておらず、必要な容量の空きがあれば、可能です。
補足
もしよろしければ 方法も教えてもらえないでしょうか。
関連するQ&A
- エクセルファイルが開けない
フロッピーディスクに保存しているエクセルファイルを開こうとしたら、 '見積書.xls'にアクセスできません。ファイルは読み取り専用であるか、または読み取り専用の場所にアクセスしようとしています。または、サーバー上に保存されているドキュメントから応答がありません。 と表示され、開く事が出来ません。 出来る範囲調べてみた所、 １.他のＰＣでも開く事が出来ない。 ２.フロッピーは読み書き可能状態になっている。 ３.同じフロッピー内の他のエクセルファイルは開く事が出来る。 ４.スキャンディスクをかけた所不良セクタは無かった。 ５.ファイルのプロパティを確認。読み取り専用では無かった。 どのようにすれば開く事が出来るようになるでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA テキストファイルを読み取り専用で開くには
VBAでテキストファイルをworkbookと同じように 読み取り専用で開く方法はないでしょうか？ 開く直前にSetAttrで設定するとほかのユーザーが書き込みできなくなって しまいます。 24時間ずっと2分に一度くらい自動で書き込みが行われる テキストファイルを読み取り専用で開き、書き込み側も エラーを出すことなく書き込み続けることは可能でしょうか。 WorkBook.Openの読み取り専用のスイッチをTRUEとしたいところですが 行数がWorkBOOKの限界を超える場合もありますのでできません。 よろしくお願い致します。
- 締切済み
- Visual Basic
- access VBA でテキストファイルの編集をしたい
既に退社した前任者の代から受注データを本社のサーバからダウンロードしてエクセルで加工するファイルがあるのですが、日々更新されるのも不都合が出てきましたのでなんとかアクセスのデータに日々蓄積したくなりました。 毎日日付を含む名前のファイルがアップされFTPで○月○日のファイルを受信するのですが、バッチファイルとテキストファイルをを使ってFTPの受信をしていました。 1、VBAでテキストファイルの日付を変更する。（任意の日付） 2、VBAからバッチファイルを実行し、先に変更した日付のファイルを受信する。 これをアクセスで同じことをしたいです。 フォームにテキストボックスを作って、そこに日付を入れるようにして、VBAでテキストファイルの日付をテキストボックスにある日付に変更して、それから・・・まだ工程はあるのですが、まずテキストファイルが変更できないと先へ進めません。 エクセルのVBAは少しは判るのですが、accessVBAは初心者です。 よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- ファイルが開かないのですが・・・・
フロッピーに保存しているファイル、エクセルとワードの内のエクセルのほうが開きません。操作すると次のようなメッセージが表示されます。「Microsoft Excel アクセスできません。ファイルは読取専用であるか、または読取専用の場所にアクセスしようとしています。または、サーバー上に保存されているドキュメントから応答がありません」再試行 キャンセル と表示されます。 何がいけないのでしょうか？おわかりの方宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 画像ファイル
WIndows2000 Access2000 フロッピーディスク内の画像ファイルをデータベースに格納したいのですがどのようにしたらいいでしょうか。 画像ファイルがハードディスクにある場合に データベースへの格納方法はわかっている状態です。 画像ファイルのテーブルの名前にパスを書いて、フォームでレコードが移動した際に パスから読み込むというヤツです。 Me.imgJpg.Picture = Me.画像名 というVBAを作成しています。 フロッピーディスク内の画像ファイルをいったんハードディスク内に保存したいのですが、どのように移動させたらいいのでしょうか。 ご指導お願い致します。
- 締切済み
- その他(データベース)
- ACCESSでファイルを結合するには
ACCESS2000で、銀行振替のフロッピーを作りたいと思って、４個のテーブルを固定長のテキストファイルに変換しました、この４個のテキストファイルをACCESS上から１つのテキストファイルに結合しフロッピーに出力する方法をご存知の方よろしくお願いします。 尚VBAはよく分りませんので、マクロで作る方法がありましたらお願いします。
- 締切済み
- オフィス系ソフト
- リッチテキストコンバータで
リッチテキストコンバータ（ファイル変換ソフト）で一太郎の文書を文豪ＪＸに変換しようとしたら、「ＪＸ用のフロッピーを入れてください」とメッセージがでたのですが、ＪＸ用のフロッピーって、パソコンで読み書きする普通のフロッピーとちがうのでしょうか？フォーマットの関係なのでしょうか。でも、ＪＸ専用のフォーマットだとしたら、それをパソコンで認識できるのでしょうか？ご存じの方教えてください。
- ベストアンサー
- その他(ソフトウェア)
- VBAで、テキストファイルの削除はどうするのでしょうか。
VBA で、あるディレクトリにあらかじめ作成、保存してあるテキストファイルを、Input Box からそのファイル名を指定してExcel に読込み、所定の処理をした後、元のテキストファイルをディレクトリ上から削除するにはどうしたらよいでしょうか。 いつも決まった名前のファイルを削除するのは Kill コマンドで容易にできたのですが、InputBox から入力した任意の名前のファイルを削除する方法を教えていただけませんか。
- ベストアンサー
- オフィス系ソフト
- VBAでテキストファイルのデータを読み込んでexcel又はｃｖｓファイルに書き出したい
テキストファイルのデータを読み込んで新しくエクセルファイルに書き出してテキストファイルを閉じたいのですがどのようにすればよいでしょうか？ テキストファイル 32.1 23.5 12.1 325 12 325 スペースで区切ってあります。 あくまで、これは毎日100回近い繰り返しを行うために必要なのでVBA又はVBE是非教えて頂けたらと思います。ただ、説明が長くなりご迷惑をお掛けするようであれば作成にあたり必要なステートメントなんどのキーワードだけでも結構です。宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- VB.NETで、テキストファイルを読取専用で開く
VB.NET、Windowsフォームで、Buttonを押したらあるテキストファイルを読取専用で開く、という事をしたいと思っています。 Dim fileName As String = "c:\test.txt" '読取専用にする File.SetAttributes(fileName, File.GetAttributes(fileName) Or FileAttributes.ReadOnly) 'ファイル開く System.Diagnostics.Process.Start(fileName) '読取専用を解除 File.SetAttributes(fileName, myAttr Xor FileAttributes.ReadOnly) 上記のように記述したのですが、読取専用にはなるのですが、ファイルに変更を加えてそのまま保存出来てしまいます。 何か良い方法はないでしょうか？
- ベストアンサー
- Visual Basic
お礼
ありがとうございました。 SetAttrを使って解決しました。