|
>コピーと 閉じることが出来るということで、
>後はファイルを開くことが出来れば、それを組み合わせて、目的が達成できそうですね。
>
一番の目的は
最初に書いた
そのファイルを開くには条件が
あって、
たとえば、AとBのフォルダにそれぞれ
A:
☆☆日付.xls
▼▼日付.xls
○○○日付.xls
・・・
50ファイルほど
B:
☆☆ABC.xls
▼▼ABC.xls
○○○ABC.xls
・・・
50ファイルほど
というファイルが入っていて
☆☆、▼▼、○○○・・・・が一致するファイル同士で先ほどのコピーをさせたいのです。
>ファイルを開くのは
>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?さん)回答いただいた↓と
50個ほどあるので、
ファイルをカウントさせて、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
|
|