Excel VBA質問箱 IV

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

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


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

【46860】ファイル名の付け方 質問(煮詰まった) 07/2/19(月) 10:43 質問[未読]
【46861】Re:ファイル名の付け方 ちくたく 07/2/19(月) 10:54 回答[未読]

【46860】ファイル名の付け方
質問  質問(煮詰まった)  - 07/2/19(月) 10:43 -

引用なし
パスワード
   ファイル名の付け方を教えて下さい。
ファイルの保存をしていますが、
ファイル名を、シートのセルA1に指定したもの
にしたいのですが、下のような場合

セルA1=C:\BBB.XLS

とした場合、     

 Filename:="C:\AAA.xls",をセルA1から取り込んだファイル名
 とするやり方を教えて下さい。
 
ChDir "C:\"
  ActiveWorkbook.SaveAs Filename:="C:\AAA.xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False

【46861】Re:ファイル名の付け方
回答  ちくたく E-MAIL  - 07/2/19(月) 10:54 -

引用なし
パスワード
   質問(煮詰まった) さん
こんにちは。

Nameステイトメントを使う場合なら、

Name "C:\AAA.xls" As Range("A1").Value

> ChDir "C:\"
>  ActiveWorkbook.SaveAs Filename:="C:\AAA.xls", FileFormat:=xlNormal, _
>    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
>    CreateBackup:=False

この場合でも、普通に
Filename:= Range("A1").Value で行けると思います。

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