Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6675 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43916】設定したファイル、シートを呼び出したい さとし 06/10/29(日) 18:51 質問[未読]
【43917】Re:設定したファイル、シートを呼び出したい かみちゃん 06/10/29(日) 19:09 発言[未読]
【43920】Re:設定したファイル、シートを呼び出したい さとし 06/10/29(日) 19:32 質問[未読]
【43921】Re:設定したファイル、シートを呼び出したい かみちゃん 06/10/29(日) 19:49 発言[未読]
【43932】Re:設定したファイル、シートを呼び出したい さとし 06/10/30(月) 8:04 お礼[未読]
【43919】Re:設定したファイル、シートを呼び出したい ponpon 06/10/29(日) 19:22 発言[未読]
【43931】Re:設定したファイル、シートを呼び出したい さとし 06/10/30(月) 8:03 お礼[未読]
【43916】設定したファイル、シートを呼び出したい
質問  さとし  - 06/10/29(日) 18:51 -
引用なし
パスワード
   はじめまして

現在のファイルの任意の場所にdir名、ファイル名、シート名が入っています。他に保存されたファイル、シートを呼び出し、現在のファイルにコピーしたいのですが・・・・
　　
dir名 = Cells(i, 4)
結合ファイル名 = Cells(i, 5)
シート名 = Cells(i,6)


'ファイルの呼び出し
Workbooks.Open Filename:=dir名 & 結合ファイル名　

----ココまでは呼び出しますが、シートの呼び出し方が分かりません---
【43917】Re:設定したファイル、シートを呼び出し...
発言  かみちゃん  - 06/10/29(日) 19:09 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> シートの呼び出し方が分かりません

呼び出し方というのは、アクティブにする方法ですか？
「マクロの記録」で記録できますが、試されましたか？
【43919】Re:設定したファイル、シートを呼び出し...
発言  ponpon  - 06/10/29(日) 19:22 -
引用なし
パスワード
   変数で受けたらどうでしょう？

　　Dim newWB As WorkBook

　　Set newWB = Workbooks.Open(Filename:=dir名 & 結合ファイル名)
　　newWB.Sheets(シート名)・・・・・・
【43920】Re:設定したファイル、シートを呼び出し...
質問  さとし  - 06/10/29(日) 19:32 -
引用なし
パスワード
   返事有り難うございます

Workbooks.Open Filename:=dir名 & 結合ファイル名
として指定したファイルをアクティブ（呼び出し）までは出来ましたが・・


「マクロの記録」で指定したシートは出来ます。
Sheets("aaa").Select
と記録され、マクロでは｢aaa」のシートを選択します。
が、たとえばa1セルに入った「bbb」という名前ののシートを呼び出す方法が分かりません。
宜しくお願いします。
【43921】Re:設定したファイル、シートを呼び出し...
発言  かみちゃん  - 06/10/29(日) 19:49 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>「マクロの記録」で指定したシートは出来ます。
>Sheets("aaa").Select
>と記録され、マクロでは｢aaa」のシートを選択します。
>が、たとえばa1セルに入った「bbb」という名前ののシートを呼び出す方法が分かりません。

以下のコードを試してみてください。

Dim aaa As String

'「aaa」という名前のシートを直接指定する
Sheets("aaa").Select

'変数に格納する場合
aaa = "bbb"
Sheets(aaa).Select '※1

'変数に格納する場合（セルの値を参照）
aaa = Range("A1").Value
Sheets(aaa).Select '※1

'セルの値を直接参照する場合
Sheets(Range("A1").Value).Select '※1

※1は。どれも同じ意味です。
"aaa" と aaa の内容は、まったく違うことも理解してください。
【43931】Re:設定したファイル、シートを呼び出し...
お礼  さとし  - 06/10/30(月) 8:03 -
引用なし
パスワード
   ▼ponpon さん
早々に試しました。問題解決致しました。有り難うございました。
【43932】Re:設定したファイル、シートを呼び出し...
お礼  さとし  - 06/10/30(月) 8:04 -
引用なし
パスワード
   ▼かみちゃん さん
様々な方法有り難うございました。aaaと"aaa"が違うことを再認識致しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6675 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free