• ベストアンサー

エクセル　ＶＢＡで別ブックのシートを選択する方法

こんにちは。いつもお世話になっています。 エクセルで、毎月毎月作成する書類があります。 別ブックの、シート名が月の数字になっているものを選択する方法を教えて下さい。 欲しいデータのあるブック名が「あいう」、シート名が「10」です。 「わおん」というシートのａ１に、前月の数字「10」が入力されています。 a=ai Workbooks.Open Filename:="\あいう Sheets(a).Select この場合のデバックになってしまうのですが、どのようにしたら良いのでしょうか？？？

質問者が選んだベストアンサー

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.2

セルＡ１に「１０」とあって、 a = Range("A1").Value ～ Sheets(a).Select とした場合、aの変数の宣言によってはシート名「１０」ではなく、 左から１０番目のシートが選択されるのでは？ Dim a As String a = Range("A1").Value ～ Sheets(a).Select 違ってたらすいません。

その他の回答 (2)

  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.3

こんにちは。 エラーになるのは、Sheets(a).Select　のa が変数として取れていないからでしょうね。 例： Dim ShName As String Const FNAME As String = "あいう.xls" If Dir(FNAME) = "" Then Exit Sub ShName = Worksheets("わおん").Range("A1").Value If ShName <> "" Then With Workbooks.Open(FNAME) .Worksheets(ShName).Select End With End If

  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

＞a=ai ｉはタイプミスかな？ a1 では普通の変数名になって仕舞います。 セルの値を取得したいなら、Range()を使います。 a = Range("A1") です。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • シートを別のブックに移動させたいのですが、

    シートを別のブックに移動させたいのですが、 マクロで作成するとこうなりました。 Workbooks.Open Filename:= _ "C:\Documents and Settings\YUUKORON\My Documents\ＹＹＹＹ.xls" Windows("ＧＧＧＧ.xls").Activate Sheets("2010.4ＹＹ").Select Sheets("2010.4ＹＹ").Move Before:=Workbooks("ＹＹＹＹ.xls").Sheets(1) が、移動先のブック名が移動させたいシートのセルF1に入力されているので、ブック名ＹＹＹＹをどのようにすればよいのか教えてください。 　Workbooks.Open Filename:= _ 　　"C:\Documents and Settings\YUMIKO\My Documents\" & Range("F1").Value & ".xls" Windows("ＧＧＧＧ.xls").Activate Sheets("2010.4ＹＹ").Select 　Sheets("2010.4ＹＹ").Move Before:=Workbooks("ＹＹＹＹ.xls").Sheets(1) 試してみた方法 Sheets("2010.4ＹＹ").Move Before:=Workbooks("("2010.4ＹＹ").Range("F1").Value.xls").Sheets(1) 　Sheets("2010.4ＹＹ").Move Before:=Workbooks _ ("C:\Documents and Settings\YUMIKO\My Documents\" & Range("F1").Value & ".xls").Sheets(1) どれもダメでした。 あと、今は、Sheet(1)の前となっていますが、常にブックの先頭に移動させることはできるのでしょうか？ シート名は、2010.5YY、2010.6YY　というふうに毎月増えていく予定です。 初心者です。よろしくお願いします。

  • ExcelでBookを開くPasswordにエラーを出さないには

    Sub Dim FileName As String FileName = "D:\集計表.xls" Dim Sheet_Name As String Dim Book_Name As String Workbooks.Open FileName:=FileName Sheet_Name = "Sheet1" Book_Name = ActiveWorkbook.Name Workbooks(Book_Name).Sheets(Sheet_Name).Select Range("A1").Select End Sub 上記の構文でBookを開く時に「Password」を要求して開くようにしています。 ただ、Passwordを間違えた時は「実行時エラー1004」とな、「デバック」するか「終了」するしかありません。 デバック」・「終了」をせずに再度Password入力に戻るにはどの様にすれば良いでしょうか。

  • EXCEL　VBA　のブック操作

    完全に自己流でEXCEL2000のVBAを作成しています。 とても単純な操作なのですが、思い通り動きません。 どうかご教授ください。 よろしくお願いします。 Main ファイルとSubファイルがあります。【パス名とファイル名は指定済み】 ブック内のシートの構成は全く同じになっています。 （MainファイルのVBAを実行後Subファイルが作成されます ファイル名は作成日を入れて保存していっています。） それで以前作成したデータを利用するために、 MainファイルのVBAを実行中にSubファイルを開き参照したいシートを Mainファイルにコピーし、Subファイルを閉じたいのですが フォーカスがうまくいかず、Mainファイルが閉じてしまいます。 何がおかしいのでしょうか？ Workbooks.Open Filename:=SubFile Sheets("Sheet1").Select Worksheets("Sheet1").Name = "ASheet" Sheets("ASheet").Copy After:=Workbooks(MainFile).Sheets(TotalSheet) Workbooks(SubFile).Activate ActiveWorkbook.Close Workbooks(MainFile).Activate Sheets(TsumSheet).Select オープンしてコピーまではできているのですが・・・

  • ブックの保護（シート構成）　でシートのコピー

    エクセルで外部データを参照させるために， 別のブックを開きシートをコピーし元のブックに貼り付け別のブックは閉じるというマクロを作成しました。 Workbooks.Open Filename:=a Sheets("データ").Select Sheets("データ").Copy After:=Workbooks("ファイル.xls").Sheets("メニュー") Workbooks(a).Close SaveChanges:=False a（変数）というファイルを開く シートのデータを選択 データをコピーし　ファイル.xls のメニューシートの後に貼り付け a(変数)のエクセルファイルを保存せずに閉じる 動作としては正常に動きました。 しかし、この　ファイル.xls　には ID とパスワードで管理しています。 その管理したシートがあるんですが、それを表示させないために シートを非表示→ブックの保護→シート構成　を行いました。 マクロを動かすと、シート構成をしているので Sheets("データ").Copy After:=Workbooks("ファイル.xls").Sheets("メニュー")　 が動かないことに気が付きました。 何かいい方法があればご教授お願いします。

  • エクセル　ブック間コピー　マクロ

    ブックA（ブック名は固定）のシートA（シート名は毎回違います）を ブックB（ブック名は固定）の一番左へコピーしたいのですがうまくいきません。 動作　：シートAでマクロを実行しブックBへシートのコピー（挿入）します。 まず第一段階のブックAのシートAをブックBへのコピーがうまくいきません。 シートAが固定シート名ならコードは Sheets("A").Select Sheets("A").Copy Before:=Workbooks("B.xls").Sheets(1) ですが・・・・ Sheets("A").SelectをWith ActiveSheet.Selectにすれば良いのですか？ 申し訳ないのですが、後教授お願いします。

  • VBAであるBOOKの「sample」というシートを別BOOKに

    VBAであるBOOKの「sample」というシートを別BOOKに 別Bookにコピーしたいのですが、 ネットを参考にして下記のようにするとエラーになります。 実行時エラー'9' 「インデックスが有効範囲にありません」 と表示されます。 どこが間違っているでしょうか？　どなたか教えてください。 ---------------------------------------- Dim NewBook As Workbook Dim fName As String Set NewBook = Workbooks.Add fName = ThisWorkbook.Path & "cp.xls" NewBook.SaveAs Filename:=fName Workbooks("moto.xls").Sheets("ピッキング").Cells.Copy Workbooks(fName).Sheets("Sheet1").Paste Destination:=Cells(1, 1) '<---ここでエラー Workbooks(fName).Save ----------------------------------------

  • 別のブックを開く時にシートを指定したい

    今開いているブックから別のブックを開くマクロはわかるのですが、これから開くブック内のシートも指定したいのです。シート名はすべて数字３桁で登録してあるので開きたいシートの数字をＣ１のセルに入れておいて（この数字は随時変更される）開きたいのですがうまくいきません。例えばＣ１に「112」が入っている時Sheets(112).SelectではうまくいきますがSheets(C1).Selectではエラーになってしまいます、良い方法を教えて下さい。

  • Excel 2007 マクロ 別ブックのシートをコピーする方法

    Excel 2007 マクロ 別ブックのシートをコピーする方法 別ブックのシートをコピーして アクティブなブックのシートにコピーしたいと思います。 下記マクロを作成しました。 貼り付ける際に、クリップボードに保存するかどうか 聞かれるメッセージが表示されてうまくいきません。 またもっとシンプルな書き方があればアドバイスお願いします。 Sub 取り込み() Dim wb As Workbook Set wb = Workbooks.Open("\") Sheets("Sheet1").Select Cells.Select Selection.Copy ThisWorkbook.Activate ThisWorkbook.Sheets("特定").Select ActiveSheet.Cells(1, 1).Select ActiveSheet.Paste wb.Close End Sub

  • エクセルVBAでブックを開きたいのですが、

    エクセルVBAでブックを開きたいのですが、 アクティブシートを別のブックに移動させたいのですが、 まず、目的のブックを開く　→　移動させたいシート名を右クリック　→　移動またはコピー　を選択　→　移動先ブック　を選択　 というふうにしようと思っていますが、 Workbooks.Open Filename:= _ "C:\Documents and Settings\YUMIKO\My Documents\ＹＹＹＹ.xls" のようにファイル名を入れると開くことができました。 が、 　 Workbooks.Open Filename:= _ "C:\Documents and Settings\YUUKORON\My Documents\Range("F1").Value.xls" のように、アクティブシートの　セルF1にファイル名を入れて、開きたいのですが、どうしても開くことができません。いろいろ調べて試しましたが、無理でした。 基本的にマクロで記録で作っている初心者です。 回答よろしくお願いします。

  • VBAにて別シートに貼り付けたいのでができません

    今開いているファイル（A）内のシート（依頼）にVBAを以下の用に記述しました。 これをデスクトップにあるファイル（提出）内のシート（データ更新）に貼り付けたいのですが できません。 「インデックスが有効範囲にありません。」と表示されます。 どこが悪いか教えて下さい。 sub 取り込み（ ） Sheets("依頼").Range(Cells(15, 2), Cells(30, 21)).Copy Workbooks.Open Filename:="C:\Documents and Settings\Administrator\デスクトップ \作業中\提出.xls" Sheets("データ更新").Select Range(Cells(15, 2), Cells(15,2)).Select　　　　 ActiveSheet.Paste Application.CutCopyMode = False End sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する