Excel VBA質問箱 IV

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

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


44616 / 76735 ←次へ | 前へ→

【37134】Re:ファイルを開いて、あるシートをアクティブにする
発言  かみちゃん  - 06/4/23(日) 1:39 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>>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ステートメントをヘルプで調べてみてください。

>”そしてその結果を、テキストファイルに
>「元のファイル名→新しいファイル名」
>といった感じで、貼り付けたフォルダに残したいのです”

「その結果」とは何ですか?
コピーした結果(正常にコピーできたかどうかとか?)ですか?

0 hits

【37131】ファイルを開いて、あるシートをアクティブにする maki 06/4/22(土) 23:47 質問
【37132】Re:ファイルを開いて、あるシートをアクテ... かみちゃん 06/4/22(土) 23:59 発言
【37133】Re:ファイルを開いて、あるシートをアクテ... maki 06/4/23(日) 1:27 発言
【37134】Re:ファイルを開いて、あるシートをアクテ... かみちゃん 06/4/23(日) 1:39 発言
【37136】Re:ファイルを開いて、あるシートをアクテ... maki 06/4/23(日) 2:36 発言
【37140】Re:ファイルを開いて、あるシートをアクテ... Kein 06/4/23(日) 13:17 回答

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