No.5ベストアンサー
- 回答日時:
ファイルの格納場所指定が問題です。
カレントに無い場合は、ファイル名を必ずフルパス指定で実行してください。
[準備]
1.テキストエディタ(メモ帳)で、提示したサンプルコードをコピペし、
*****.vbs(vbsの拡張子とする)
例..sample.vbs 以降の説明では、sample.vbsで記載。
補足..
sample.vbsを適当なフォルダに格納してください。
今回は、Cドラ直下にwk_sampleと言うフォルダを作成しそこに格納します。
2.プロパティ属性を確認したいEXCELファイルを準備する。
補足..格納場所は何処でもokです。
[実行]
1.DOS窓を開きます。
[全てのプログラム]-[アクセサリ]-[コマントプロンプト]
C:\Documents and Settings\ユーザ名>
※hecunhehuiさんの質問がコマンドプロンプトでとあるので、DOS窓は問題無いですよね!
2.DOS窓にコマンドを記載します。
記載時にファイル名はフルパスで記載してください。
補足..入力が面倒な場合は、sample.vbs及び、該当EXCELファイルを
ドラック&ドロップで、DOS窓に移動すると、フルパスでファイル名が展開されます。
~(省略)\ユーザ名>cscript c:\wk_sample\sample.vbs c:\~(省略)\xxx.xls [ENTER]
[前提]
EXCELがInstallされているPCでのみ実行可能です。
理由..
Set objExcel = CreateObject("Excel.Application") 行でEXCELを起動しているので
[確認した事]
■下記環境で確認しました。
1.XP(Pro) sp3, Excel2007
2.XP(Pro) sp3, Excel2003
■下記Excelファイルを確認しました。
拡張子が、xls(2003ブック), xlsx(2007ブック)
できました!
じつは言葉の意味がわからない箇所もあり、恐る恐るでしたが、
コマンドプロンプトに欲しかった情報が出てきた時には感動しました。
これもあなたさまのお力添えがあってこそです。
お時間を割いていただき、まことにありがとうございました。
No.4
- 回答日時:
| これはエクセルのVBAですよね。
| VBAも少しは齧ったのですが、マクロの自動記録を改造する程度の知識しかなく、
| 折角書いていただいたプログラムも使い方がわからないでいます。
Excel VBAでは無く、VBScript(WSH)です。
ですから、テキストエディタで、バッチファイルの様に、添付したコードを
記載すれば良いんですよ!
補足..作成するファイル名は、sample.vbs(拡張子はvbsにしてください)
| まずこれは何を意味しているのかがわかりません。
| ' *-------------------------------------------------------*
| ' * EXCELファイルのプロパティを取得 *
| ' * *
| ' * ID : sample.vbs *
| ' * 使用方法 : X:\>cscript sample.vbs xxxxx.xls *
| ' *-------------------------------------------------------*
↑
コメントです。
| それから、apu999さんから頂いたプログラムを、
| 使うまでの手順について確認させて下さい。
作成したsample.vbsのファイルをコマンドラインから、起動すれば良いんです。
>cscript sample.vbs xxxx.xls [ENTER]
補足..xxxx.xlsは、確認したいExcelファイル
[質問者様の前提を確認させてください。]
Excelファイルのプロパティの概要タブで確認出来る情報を取得したいと判断したのですが
間違っていますでしょうか?
[サンプルコードの補足]
サンプルコードは、プロパティ情報は、全て表示していますので、
インデックスを判断して、必要な情報のみ取得する様に直してください。
所有者 :インデックス 3
最終更新者:インデックス 7
丁寧なご回答本当ににありがとうございます。
まず私の前提についてですが、apu999さんがおっしゃられた通りです。
そして実は作成者と前回保存者を、プロパティで確認できることに、
今の今まで気づいていませんでした。
申し訳ありません。
先ほど自宅のPC(VISTA、エクセル2007)でエクセルファイルのプロパティを確認したら、
作成者と前回保存者が確認できて驚いた次第です。
ただ質問させていただいた時に提示した条件である、WINDOWS XP、エクセル2003は会社のPCなのですが、
こちらではプロパティに作成者と前回保存者が表示されてたかどうかは未確認なので明日以降確認することにします。
プロパティで確認できることがわかった以上、
もう特になにも問題は無いのですが、
ウィンドウズでできることの奥深さに興味が出てきたので、
もう少しお付き合いいただければ幸いに思います↓↓↓
apu999さんから頂いたプログラムですが、
折角詳しく使い方まで教えていただいているのですが、
まだよく理解できておらず、そもそもの知識不足を痛感しております。
勘を頼りに自分なりに使い方を考え使ってみましたがうまくいきませんでした。
もしよければ、下記の私の行った手順を指摘していただけませんでしょうか?
1、apu999さんのプログラムを、コメント欄から最終行までコピー
2、メモ帳を起動し貼り付け
3、保存時にファイル名をsample.vbsにする
4、sample.vbsを、Cドライブ>ユーザー>ユーザー名のフォルダに格納する。
※この手順については自信がありません。
コマンドプロンプトが上記ディレクトリからsample.vbsを探そうとしているようなのでここに格納してみました。
5、コマンドライン(これは、WINDOWSキー+Rで立ち上がるファイル名を指定して実行のことですよね?)で、cscript sample.vbs xxxx.xlsと記入しエンターを押す。
ここまですると、コマンドプロンプトが立ち上がりましたが、
エクセルファイルが開けませんでした
xxxx.xlsが見つかりませんと表示されたので、
xxxx.xlsファイルの保存場所が問題なのだと思い、
これも同じくCドライブ>ユーザー>ユーザー名に移動して再度試してみましたが、やはり同じメッセージが表示されました。
これは実はVISTA、エクセル2007で試していますので、それが問題なのかもしれません。
No.3
- 回答日時:
> もしくは、dir/Qとdir/aということでしょうか?
> もしくはdir/Q/aということでしょうか?
dir /?
で、説明を読まれましたか。
dir /Q
でも、dir /qでも同じで、所有者を表示すると説明されています。
当然、cdコマンドで見たいファイルのディレクトリまで行く必要はあります。
コマンドプロンプトを開いたら、
c:\Documents and Settings\ユーザ名\_
というディレクトリです。
ひとつ上の
c::\Documents and Settings
のディレクトリに行くには、
cd ..
です。
これも詳しくは、
cd /?
で調べてください。
お手間とらせて申し訳ないです。
dir/?は確認しましたが、Qでもqでも同じだという記述はあったかなという感じです。
しかしyakan9さんのおかげで小文字も大文字も同じだということが理解できて勉強になりました。
ありがとうございます。
今度はcdについて少しずつ勉強したいと思います。
ありがとうございました。
No.2
- 回答日時:
DOSコマンドで取得出来るか不明ですが、VBScriptを使用すれば取得出来そうです。
下記サンプルコードが意図した結果かは不明ですが、参考にしてください。
' *-------------------------------------------------------*
' * EXCELファイルのプロパティを取得 *
' * *
' * ID : sample.vbs *
' * 使用方法 : X:\>cscript sample.vbs xxxxx.xls *
' *-------------------------------------------------------*
Option Explicit
On Error Resume Next
Dim objExcel ' EXCEL オブジェクト
Dim objBook ' Book オブジェクト
Dim objPpty ' Property オブジェクト
Dim strFileName ' EXCELファイル名
' - コマンドラインパラメータの取得 -
strFileName = WScript.Arguments(0)
' - Fileの存在確認 -
If IsEmpty(strFileName) OR strFileName = "" Then
Wscript.Echo "Excelファイルが存在しませんでした。" & Err.Description & "(" & Err.Number & ")"
Wscript.Quit
Else
Wscript.Echo "Excelファイル=" & strFileName
End If
' - EXCELファイルの読み込みとプロパティ属性取得 -
Set objExcel = CreateObject("Excel.Application") ' EXCELの起動
If Err.Number = 0 Then
objExcel.Application.DisplayAlerts = False ' 保存確認ダイアログを非表示
Set objBook = objExcel.Workbooks.Open(strFileName) ' EXCELファイルのオープン
If Err.Number = 0 Then
For Each objPpty In objBook.BuiltInDocumentProperties ' プロパティを全て表示
WScript.Echo objPpty.Name & ": " & objPpty.Value
Next
objBook.Close
objExcel.Quit
Else
Wscript.Echo "Excelファイルを開けませんでした。" & Err.Description & "(" & Err.Number & ")"
End If
Else
Wscript.Echo "Excelを起動できませんでした。" & Err.Description & "(" & Err.Number & ")"
End If
Set objBook = Nothing
Set objExcel = Nothing
ご回答ありがとうございます。
プログラムまで考えていただき、まことに感謝しています。
これはエクセルのVBAですよね。
VBAも少しは齧ったのですが、マクロの自動記録を改造する程度の知識しかなく、折角書いていただいたプログラムも使い方がわからないでいます。
まずこれは何を意味しているのかがわかりません。
' *-------------------------------------------------------*
' * EXCELファイルのプロパティを取得 *
' * *
' * ID : sample.vbs *
' * 使用方法 : X:\>cscript sample.vbs xxxxx.xls *
' *-------------------------------------------------------*
それから、apu999さんから頂いたプログラムを、
使うまでの手順について確認させて下さい。
・まず新規作成者を知りたいエクセルファイルを開きます
・VBAの編集画面を開きます
・メニューから、挿入>標準モジュールの挿入をします
・apu999さんに記述していただいたプログラムの
Option ExplicitからSet objExcel = Nothingまでをコピペします。
・Option Explicitの次の行に、SUBプロシジャー名()と記入します。
・実行します。
ここまであってますでしょうか?
先ほど思いつく限りここまでやったのですが、コンパイルエラーが出て実行できませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルの最終保存者の表示
Excel(エクセル)
-
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
検索したファイルの場所を調べ...
-
Not kind:Folders
-
TIFファイルと同じBMPファイル...
-
Windows10のクイックアクセスの...
-
ショートカットファイルそのも...
-
Windows10のメタデータの「メ...
-
コマンドプロンプトでファイル...
-
拡張子.EXTの解凍方法
-
zipファイルでパスワードをつけ...
-
フォルダのショートカットキー...
-
csvファイルの最後にeof(0x1a)...
-
自分だけファイルが見られるよ...
-
レジストリの格納場所
-
ハイパーリンク設定画面の「検...
-
ファイル名の連番について
-
Win 10エクスプローラーについ...
-
EXCELファイルを開くと・・・
-
突然エクセルのデータが何ヶ月...
-
コマンドラインからzip32j.dll...
-
拡張子KIHを見るソフトって有り...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
検索したファイルの場所を調べ...
-
Not kind:Folders
-
wordオートシェイプ内の検索
-
貼り付けとショートカットの貼...
-
ワードの作成日時と更新日時
-
コマンドプロンプトでファイル...
-
Windows10のメタデータの「メ...
-
拡張子.EXTの解凍方法
-
ショートカットファイルそのも...
-
全CSVファイルに一行だけ追加し...
-
突然エクセルのデータが何ヶ月...
-
csvファイルの最後にeof(0x1a)...
-
自分だけファイルが見られるよ...
-
拡張子KIHを見るソフトって有り...
-
複数のワードのファイルから検索
-
ハイパーリンク設定画面の「検...
-
知らないファイルがあります。
-
同じ名前のファイルをひとつの...
-
レジストリの格納場所
-
EXCELファイルを開くと・・・
おすすめ情報