Excel VBA質問箱 IV

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

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


9547 / 13646 ツリー ←次へ | 前へ→

【26766】エクセルブックのファイル名を変更 まさか! 05/7/17(日) 2:14 質問[未読]
【26769】Re:エクセルブックのファイル名を変更 kobasan 05/7/17(日) 6:59 回答[未読]
【26778】Re:エクセルブックのファイル名を変更 まさか! 05/7/17(日) 17:12 お礼[未読]
【26775】Re:エクセルブックのファイル名を変更 ponpon 05/7/17(日) 11:44 回答[未読]
【26779】Re:エクセルブックのファイル名を変更 まさか! 05/7/17(日) 17:13 お礼[未読]

【26766】エクセルブックのファイル名を変更
質問  まさか!  - 05/7/17(日) 2:14 -

引用なし
パスワード
   エクセルブックのファイル名を変更するにはVBAでどう書いたらよろしいですか?

【26769】Re:エクセルブックのファイル名を変更
回答  kobasan  - 05/7/17(日) 6:59 -

引用なし
パスワード
   ▼まさか! さん おはようございます。

>エクセルブックのファイル名を変更するにはVBAでどう書いたらよろしいですか?

開いているファイルなら、保存すると変更できます。

  ActiveWorkbook.SaveAs Filename:="Book2.xls"

【26775】Re:エクセルブックのファイル名を変更
回答  ponpon  - 05/7/17(日) 11:44 -

引用なし
パスワード
   おはようございます。


NAMEステートメントで変更できると思います。
ファイルが開いていたり、同じ名前があるとエラーになります。

詳しくは、ヘルプをご覧ください。
このことでなかったらすみません。

Sub 名前の変更()
  Dim 変更前名前 As String
  Dim 変更後名前 As String
  
  変更前名前 = "C:\My Documents\book2.xls" ’←旧ファイル名のフルパス
  変更後名前 = "C:\My Documents\新しいbook2.xls" ’←新ファイルの名のフルパス
  
  Name 変更前名前 As 変更後名前

End Sub

【26778】Re:エクセルブックのファイル名を変更
お礼  まさか!  - 05/7/17(日) 17:12 -

引用なし
パスワード
   おそくなりました。

おかげさまで、助かりました。
有難う御座いました.

【26779】Re:エクセルブックのファイル名を変更
お礼  まさか!  - 05/7/17(日) 17:13 -

引用なし
パスワード
   重ね重ねありがとうございます。

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