Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9559 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   重ね重ねありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9559 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free