Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44618 / 76735

←次へ　｜　前へ→


	【37132】Re:ファイルを開いて、あるシートをアクティブにする

かみちゃん - 06/4/22(土) 23:59 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>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

>3.最後に、何枚かコピーしたファイルの一覧を
>”コピー元の名前とコピーして変更した名前”を
>対応させたテキストファイルを、作りたい

意味がわからないので、再度具体的に説明していただけませんか？

0 hits

▼

【37131】ファイルを開いて、あるシートをアクティブにする maki 06/4/22(土) 23:47