Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58408 / 76732 ←次へ | 前へ→

【23053】Re:違うフォルダのファイル名の一部が同...
質問  MIKA  - 05/3/11(金) 14:20 -

引用なし
パスワード
   >コピーと 閉じることが出来るということで、
>後はファイルを開くことが出来れば、それを組み合わせて、目的が達成できそうですね。
>
一番の目的は
最初に書いた
そのファイルを開くには条件が
あって、
たとえば、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
1 hits

【22947】違うフォルダのファイル名の一部が同じファイルを選ぶ MIKA 05/3/8(火) 14:43 質問
【22948】Re:違うフォルダのファイル名の一部が同じ... IROC 05/3/8(火) 15:13 回答
【22951】Re:違うフォルダのファイル名の一部が同じ... MIKA 05/3/8(火) 15:29 質問
【22955】Re:違うフォルダのファイル名の一部が同... IROC 05/3/8(火) 17:09 回答
【22993】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/9(水) 16:53 発言
【23002】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/9(水) 18:00 質問
【23005】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/9(水) 19:43 発言
【23051】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/11(金) 13:18 質問
【23052】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/11(金) 14:16 発言
【23053】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/11(金) 14:20 質問
【23056】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/11(金) 16:21 回答
【23060】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/11(金) 17:16 お礼
【23115】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/14(月) 10:27 質問
【23128】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/14(月) 14:26 発言
【23166】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/15(火) 13:50 質問
【23170】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/15(火) 14:56 発言
【23172】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/15(火) 15:22 お礼
【23173】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/15(火) 15:28 発言
【23174】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/15(火) 15:32 発言
【23176】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/15(火) 15:58 発言

58408 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free