| |
>コピーと 閉じることが出来るということで、
>後はファイルを開くことが出来れば、それを組み合わせて、目的が達成できそうですね。
>
一番の目的は
最初に書いた
そのファイルを開くには条件が
あって、
たとえば、ＡとＢのフォルダにそれぞれ
Ａ：
☆☆日付.xls
▼▼日付.xls
○○○日付.xls
・・・
５０ファイルほど
Ｂ：
☆☆ABC.xls
▼▼ABC.xls
○○○ABC.xls
・・・
５０ファイルほど
というファイルが入っていて
☆☆、▼▼、○○○・・・・が一致するファイル同士で先ほどのコピーをさせたいのです。
>ファイルを開くのは
>Fn に開きたいファイルのフルパスが入っているとして、
>
>Workbooks.Open FileName:= Fn
>
>で開くことが出来ます。
>私のコードですと、
>
>Workbooks.Open FileName:=myFolderA & Application.Pathseparetor & FnA
>Workbooks.Open FileName:=myFolderB & Application.Pathseparetor & FnB
>
>で、開くことが出来ます。
>開いたら、
>Workbooks(FnA).Range(〜〜）.Copy
>等で、コピーをして、
>Workbooks(〜〜).Save
>で保存して、
>Workbooks(〜〜).Close
>といったところでしょうか？
ありがとうございます。
↑と、
前の前のトピに他の方に（IROC？さん）回答いただいた↓と
５０個ほどあるので、
ファイルをカウントさせて、For 〜 NEXTで
ループさせて使えばいいのでしょうかね？
（それらを組み合わせられるからが自信がないのですが・・。
ひとつひとつの要素は分かるのですが、
文章・・プログラムとしていくことがなかなか上手くできなくて）
Dim myKey As String
Dim myFile As String
myKey = Left("★★200501.xls" , 2)
myFile = "ABC★★.xls"
If Instr(myFile, myKey) <> "" Then
MsgBox "該当するファイルです"
Else
MsgBox "該当しません"
End If
|
|
MIKA
- 05/3/11(金) 14:20 -
