|
▼かみちゃん さん:
ありがとうございます、かみちゃんさん^^
>
>>1.最初にマクロを実行したときに
>>どのファイルでも選べれるように、
>>マイドキュメントのウインドを開く。
>
>GetOpenFilename メソッド
>をまずはヘルプや過去ログで調べてみてください。
わかりました!調べてみてわからないときには
うかがいますね!
>
>>2.選んだエクセルファイルを開くと
>>そのブックの中の”明細”と言う文字が含まれたシートをマクロで探し出して
>>アクティブにする(何枚かある場合は、番号の若いシートから)
>
>こんな感じでしょうか。
>Sub test()
> Dim ws As Worksheet
> For Each ws In Worksheets
> If InStr(ws.Name, "明細") <> 0 Then
> ws.Activate
> Exit For
> End If
> Next
> MsgBox ws.Name & "をアクティブにしました。"
>End Sub
>
ちなみに、エクセルファイルをドキュメントから選択すると
同時に、2.のマクロを実行させることはできますか??
>>3.最後に、何枚かコピーしたファイルの一覧を
>>”コピー元の名前とコピーして変更した名前”を
>>対応させたテキストファイルを、作りたい
>
>意味がわからないので、再度具体的に説明していただけませんか?
わかりました!
あるセルの値と同じ名前の図面ファイルがCドライブ、又は
ネットワーク経由のフォルダにあります。
その値と同じファイル名のファイルを検索して
コピーして、名前を変えて新しいフォルダにはりつけます。
”そしてその結果を、テキストファイルに
「元のファイル名→新しいファイル名」
といった感じで、貼り付けたフォルダに残したいのです”
3.の内容はこんな意味でした。
ほんと初心者なんで、申し訳ないです・・・・
よろしくお願いいたします。
|
|