|
こんにちは。かみちゃん です。
>>>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.のマクロを実行させることはできますか??
TghisWorkbookモジュールのWorkbook_Openイベントに記述するか、
標準モジュールの中にAuto_Openというマクロを作っておくかの2種類の方法があります。
http://www.happy2-island.com/excelsmile/smile03/capter00706.shtml
>>>3.最後に、何枚かコピーしたファイルの一覧を
>>>”コピー元の名前とコピーして変更した名前”を
>>>対応させたテキストファイルを、作りたい
>>
>>意味がわからないので、再度具体的に説明していただけませんか?
>
>わかりました!
>あるセルの値と同じ名前の図面ファイルがCドライブ、又は
>ネットワーク経由のフォルダにあります。
>
>その値と同じファイル名のファイルを検索して
>コピーして、名前を変えて新しいフォルダにはりつけます。
単純に指定したファイルをコピーしたいだけならば、
FileCopyステートメントをヘルプで調べてみてください。
>”そしてその結果を、テキストファイルに
>「元のファイル名→新しいファイル名」
>といった感じで、貼り付けたフォルダに残したいのです”
「その結果」とは何ですか?
コピーした結果(正常にコピーできたかどうかとか?)ですか?
|
|