Excel VBA質問箱 IV

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

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


44615 / 76732 ←次へ | 前へ→

【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 質問
【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 回答

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