| |
エクセルマクロについてご教授頂きたいのですが、社内サーバー内にある
\\Mh555\C:\仕事\data\test\backup\PDF\＃7\内にアクティブブック名のPdfファイルが格納されています。
そのpdfファイル名をセルBB500に記載してある
文字列名+"__N1.pdf" or "__NF.pdf"
に変更したいのですが、
Name ObjFs.FileExists(FileN) As ObjFs.FileExists(FileN & NewName)
でエラーが出てしまいます。
問題点と解決方法を教えて頂きたいのですが、宜しくお願いします。
最終的には
\\Mh555\C:\仕事\data\test\backup\PDF\＃7\以外に
\\Mh555\C:\仕事\data\test\backup\PDF\＃1\と
\\Mh555\C:\仕事\data\test\backup\PDF\＃2\の
3つのフォルダ内のどれかにあるアクティブブック名のPdfファイルが格納されているものを上記のファイル名に変更したいと考えています。
Dim ObjFs As Object
Dim WbN As String
Dim FldN As String
Dim FileN As String
Dim OldName As String
Dim NewName As String
Dim NewNameFile As String
Dim prt3 As Integer
WbN = ActiveWorkbook.Name ' 自ブック
OldName = Range("BB500").Value
Set ObjFs = CreateObject("Scripting.FileSystemObject")
FldN = ""\\Mh555\C:\仕事\data\test\backup\PDF\＃7\"
FileN = Dir(FldN & Replace(WbN, ".xls", "") & ".pdf")
If ObjFs.FileExists(FileN) = "" Then
Else
prt3 = MsgBox("1の場合は、「はい」、Finalの場合は「いいえ」を選択してください", _
vbYesNo + vbInformation, "統計表印刷実行")
Select Case prt
Case vbYes
NewName = (OldName & "__N1.pdf")
Case vbNo
NewName = (OldName & "__NF.pdf")
End Select
Name ObjFs.FileExists(FileN) As ObjFs.FileExists(FileN & NewName)
End If
End Sub
|
|
インザーギ
- 12/2/1(水) 13:30 -
