Excel VBA質問箱 IV

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

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


34336 / 76738 ←次へ | 前へ→

【47612】Re:A1のセルの場所へ保存したい時
発言  ウッシ  - 07/3/16(金) 10:10 -

引用なし
パスワード
   ▼初心者 さん:
>お返事ありがとうございます。
>
>コードなのですが、何を使っていいのか解りませんでした。
>本で色々調べたのですが、すいません。わかりませんでした。

名前を付けて保存でいいのでしょうか?

Sub test()
  ThisWorkbook.SaveCopyAs WorkSheets("Sheet1").Range("A1").Value
End Sub

で出来ると思いますけど、

Range("A1")にパスが入っているかとか、

If Dir(WorkSheets("Sheet1").Range("A1").Value) <> "" Then Exit Sub
のようにして上書きしないようにするとか、

「C:\Documents and Settings\デスクトップ\新しいフォルダ」が存在するか
とか最初に調べておいた方がいいと思います。

2 hits

【47588】A1のセルの場所へ保存したい時 初心者 07/3/15(木) 14:36 質問
【47589】Re:A1のセルの場所へ保存したい時 ウッシ 07/3/15(木) 14:41 発言
【47611】Re:A1のセルの場所へ保存したい時 初心者 07/3/16(金) 9:56 回答
【47612】Re:A1のセルの場所へ保存したい時 ウッシ 07/3/16(金) 10:10 発言
【47613】Re:A1のセルの場所へ保存したい時 初心者 07/3/16(金) 11:01 お礼
【47614】Re:A1のセルの場所へ保存したい時 ウッシ 07/3/16(金) 11:07 発言
【47615】Re:A1のセルの場所へ保存したい時 初心者 07/3/16(金) 11:42 お礼

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