Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6181 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46860】ファイル名の付け方 質問（煮詰まった） 07/2/19(月) 10:43 質問[未読]
【46861】Re:ファイル名の付け方 ちくたく 07/2/19(月) 10:54 回答[未読]
【46860】ファイル名の付け方
質問  質問（煮詰まった）  - 07/2/19(月) 10:43 -
引用なし
パスワード
   ファイル名の付け方を教えて下さい。
ファイルの保存をしていますが、
ファイル名を、シートのセルA1に指定したもの
にしたいのですが、下のような場合

セルＡ１＝C:\BBB.XLS

とした場合、　　　　　

　Filename:="C:\AAA.xls",をセルＡ１から取り込んだファイル名
　とするやり方を教えて下さい。
　
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 で行けると思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6181 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free