Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7209 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【40627】名前を参照して保存 arrows 06/7/19(水) 13:22 質問[未読]
【40631】Re:名前を参照して保存 ハチ 06/7/19(水) 14:21 発言[未読]
【40634】Re:名前を参照して保存 arrows 06/7/19(水) 14:34 発言[未読]
【40637】Re:名前を参照して保存 ハチ 06/7/19(水) 14:45 回答[未読]
【40638】Re:名前を参照して保存 arrows 06/7/19(水) 14:57 お礼[未読]
【40627】名前を参照して保存
質問  arrows  - 06/7/19(水) 13:22 -
引用なし
パスワード
   いつもお世話になっています。

test.xlsにあるsheet2を新しいブックにコピーして保存するのですが、
保存の名前にtest.xlsのsheet1のセルA1とB1の値を指定して保存したい
のですが過去ログなどを探したのですがどうしてもわかりません。

Worksheetのセルを参照して名前を付ける方法はあったのですが別の
ブックを参照する方法がわかりませんでした。

どなたかわかる方がいらっしゃいましたら御教授願います。
【40631】Re:名前を参照して保存
発言  ハチ  - 06/7/19(水) 14:21 -
引用なし
パスワード
   ▼arrows さん：
>いつもお世話になっています。
>
>test.xlsにあるsheet2を新しいブックにコピーして保存するのですが、
>保存の名前にtest.xlsのsheet1のセルA1とB1の値を指定して保存したい
>のですが過去ログなどを探したのですがどうしてもわかりません。
>

セルA1とB1の値をどうしたいのでしょうか？
くっつけた文字列.xls　の名前にしたい？

>Worksheetのセルを参照して名前を付ける方法はあったのですが別の
>ブックを参照する方法がわかりませんでした。

別のBookのセルの値なら
Workbooks("test.xls").Worksheets("sheet1").Range("A1").Value
では？
【40634】Re:名前を参照して保存
発言  arrows  - 06/7/19(水) 14:34 -
引用なし
パスワード
   ▼ハチ さん：

>セルA1とB1の値をどうしたいのでしょうか？
>くっつけた文字列.xls　の名前にしたい？
名前はセルA1+B1.xlsにしたいのですが･･･

>別のBookのセルの値なら
>Workbooks("test.xls").Worksheets("sheet1").Range("A1").Value
>では？
勉強不足ですみませんが上記のコードでA1+B1にする方法がわかりませんでした。
【40637】Re:名前を参照して保存
回答  ハチ  - 06/7/19(水) 14:45 -
引用なし
パスワード
   ▼arrows さん：
>▼ハチ さん：
>
>>セルA1とB1の値をどうしたいのでしょうか？
>>くっつけた文字列.xls　の名前にしたい？
>名前はセルA1+B1.xlsにしたいのですが･･･
>
>>別のBookのセルの値なら
>>Workbooks("test.xls").Worksheets("sheet1").Range("A1").Value
>>では？
>勉強不足ですみませんが上記のコードでA1+B1にする方法がわかりませんでした。

変数myFileに文字列を作るとして

Dim myFile As String
With Workbooks("test.xls").Worksheets("sheet1")
　　myFile = .Range("A1").Value & .Range("B1").Value & ".xls"
End With
'MsgBox myFile

こうですか？
【40638】Re:名前を参照して保存
お礼  arrows  - 06/7/19(水) 14:57 -
引用なし
パスワード
   ▼ハチ さん：

回答ありがとうございました。
できました＼(^o^)／
ありがとうございました。
大変勉強になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7209 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free