|
▼モスキート さん:
>For Each Fl In FSO.GetFolder(ThisWorkbook.Path).Files
>
>と
>10行目と11行目の
> If UCase(FSO.GetExtensionName(Fl.Path)) = "TXT" Then
> With FSO.GetFile(Fl.Path).OpenAsTextStream
>
>の.Pathのところがよくわかりませんでした。
h t tp://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/jsFSOTutor.asp
h t tp://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/sgfilesystemobjects.asp
にHelpがありますから調べられます。以下抜粋ですが、
GetFolder メソッド
指定されたパスに置かれているフォルダに対応する Folder オブジェクトを返します。
ThisWorkbook.Pathプロパティ
指定されたオブジェクトの絶対パスを表す文字列を返します。
ThisWorkbookとはこのプログラムが書かれているBookを指します。(この行neptune)
GetExtensionName メソッド
指定されたパスの拡張子を表す文字列を返します。
GetFile メソッド
指定されたパスに置かれているファイルに対応する File オブジェクトを返します。
OpenAsTextStream メソッド
指定したファイルを開き、開いたファイルの読み取り、または追加書き込みに使用できる TextStream オブジェクトを返します。
>ここはどのように変えれば良かったのでしょうか?
多分上記のメソッド類が実行している処理が理解できれば、わかると思います。
(すみません。前のほうを読んでないもので、考えてません)
ど〜しても判らなければまた言って下さい。前のほうも読んで見ます。
|
|