マクロ エクセル２００３

質問

いつも回答して頂き感謝しています。

原紙のブックを開き、別の名前を付けて保存するマクロを考えています。

原紙のブックを開くマクロはネットから探して、少し修正して出来あがったのですが、
この開いた原紙のブックに別の名前を付けて保存するマクロで困っています。

ただ単に名前を付けるだけだったら問題無いのですが、
その名前が既に保存されていないか確認した後、保存としたいのです。

ブックを開く記述を少し引用して出来ないかやってみたのですが、
Const Target2 As String = "C:\Users\Owner\Documents\" & NewFile
で、定数式が必要です。と表示されエラーが発生してしまいます。

どのように変更したら上手くいくのでしょうか？宜しくお願い致します。

Sub Sample()

Dim buf1 As String
Dim buf2 As String
Dim NewFile As String
Dim ws1 As Worksheet
Dim wb As Workbook

Set ws1 = ThisWorkbook.Worksheets("作成")
NewFile = "借入貸出" & ws1.Range("C4").Value & "." & ws1.Range("D4").Value

Const Target1 As String = "C:\Users\Owner\Documents\借入貸出原紙.xlsx"
Const Target2 As String = "C:\Users\Owner\Documents\" & NewFile　& ".xlsx"

buf1 = Dir(Target1)

If buf1 = "" Then
MsgBox Target1 & vbCrLf & "は存在しません", vbExclamation
Exit Sub
End If

For Each wb In Workbooks
If wb.Name = buf1 Then
Application.DisplayAlerts = False
Workbooks("借入貸出原紙.xlsx").Close
Application.DisplayAlerts = True
End If
Next wb

Workbooks.Open Target1

buf2 = Dir(Target2)

If buf2 = "" Then

End If

End Sub

回答No.1

nishi6

Const Target2 As String = "C:\Users\Owner\Documents\" & NewFile　& ".xlsx"

　　↓

Dim Target2 As String
Target2 = "C:\Users\Owner\Documents\" & NewFile　& ".xlsx"

Target2 を文字列型の変数にすればこの行は通るでしょう。

お礼

提示されたようにしたら出来ました。ありがとうございました。