人に聞けない痔の悩み、これでスッキリ >>

質問させていただきます。

現在、いくつかのテキストファイルを、
ファイルのプロパティの概要タブのコメント、改訂番号 などの欄
で管理しようと考えております。

しかし、ファイルの数が多く、
また、コメント、改訂番号などの欄を書き換えることが
頻繁に起こりますので、手作業で変更することが難しい状況にあります。

そこで、エクセルで
ファイルの一覧とそのプロパティの項目を取得し、
書き換えるツールを作成したいと考えています。

VBAなどでエクセルファイルのプロパティが取得できることは確認したのですが、
テキストファイルのプロパティを変更する手段がみつかりません。

どなたかよい手段をご存知ありませんでしょうか?

VBAに限らず、なにか他のソフトウエア、batファイルなどでの方法でも結構です。

本当に困っております。

宜しく御願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

丁度おなじようなことを考えていたところ


iwaiwai様の投稿を見つけました。

私が探し出したのはツール(コマンドライン上で動作)ですが
iwaiwai様の文面からPCに関してそれなりの知識をお持ちであると
判断し、返答させていただきました。
詳細はDLしたもののreadmeを参考にしてください。
windows2000で作ったものらしいですが、windowsXPでも動作しました。

2chに「◆こんなソフトウェアつくってください!~Part6~◆」という
ソレッドがあってその中に同様の書き込みがあってその要望に応えた形で
そのツールが成果物として参考URLの[78]の投稿にファイルが置かれています。
尚、このツールはパブリックドメインソフトウェアということが明記されています。

はじめての投稿(返答)でなんともしがたい文面で申し訳ありません。
お役に立てれば幸いです。

参考URL:http://www2.pf-x.net/%7Esoft186/cgi-bin/up/upboa …
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcel 2007 マクロ 別ブックのシートをコピーする方法

Excel 2007 マクロ 別ブックのシートをコピーする方法

別ブックのシートをコピーして
アクティブなブックのシートにコピーしたいと思います。

下記マクロを作成しました。

貼り付ける際に、クリップボードに保存するかどうか
聞かれるメッセージが表示されてうまくいきません。

またもっとシンプルな書き方があればアドバイスお願いします。


Sub 取り込み()
Dim wb As Workbook
Set wb = Workbooks.Open("\")
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
ThisWorkbook.Activate
ThisWorkbook.Sheets("特定").Select
ActiveSheet.Cells(1, 1).Select
ActiveSheet.Paste
wb.Close
End Sub

Aベストアンサー

No1 merlionXXです。
さっきのでも大丈夫だとは思いますが、念のため修正しておきます。

Sub 取り込み03()
  Dim wb As Workbook
  Set wb = Workbooks.Open("\") '省略
  wb.Sheets("Sheet1").Cells.Copy ThisWorkbook.Sheets("特定").Cells
  wb.Close (False)
End Sub


人気Q&Aランキング