Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11207 / 76807

←次へ　｜　前へ→


	【71140】Re:ファイル名変更について

sasa - 12/2/1(水) 16:19 -


	引用なし

	パスワード

> Name ObjFs.FileExists(FileN) As ObjFs.FileExists(FileN & NewName)
> でエラーが出てしまいます。
>問題点と解決方法を教えて頂きたいのですが、宜しくお願いします。

根本的にNameステートメントの記述が間違っています。
ヘルプを読んで下さい。

基本のNameステートメントのコードは以下のようになるでしょう。
Sub test2()
　Const PT = "\\Mh555\C:\仕事\data\test\backup\PDF\＃7\"
　Dim oldpathname$, newpathname$
　oldpathname = PT & Replace(ActiveWorkbook.Name, ".xls", "") & ".pdf"
　newpathname = PT & Range("BB500") & "__N1.pdf"
　If Dir(oldpathname) <> "" Then Name oldpathname As newpathname
End Sub

3 hits

▼

【71139】ファイル名変更について インザーギ 12/2/1(水) 13:30