Excel VBA質問箱 IV

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

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


44614 / 76732 ←次へ | 前へ→

【37133】Re:ファイルを開いて、あるシートをアクティブにする
発言  maki  - 06/4/23(日) 1:27 -

引用なし
パスワード
   ▼かみちゃん さん:
ありがとうございます、かみちゃんさん^^
>
>>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.の内容はこんな意味でした。
ほんと初心者なんで、申し訳ないです・・・・
よろしくお願いいたします。

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 回答

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