Excel VBA質問箱 IV

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

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


7188 / 13644 ツリー ←次へ | 前へ→

【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^)/
ありがとうございました。
大変勉強になりました。

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