090624出費、090625出費のような、名前に変数があるファイル

質問

デスクトップ上に毎日UPされる生データを、他のbookにコピペしたく下記のように書いたのですがうまくいきません。

(1)名前が『出費』のときは動いたマクロの、ファイル名だけ変えました。
(2)名前を『日付+出費』に変更すると動きません。
(3)名前を『日付+出費』に変えても、ファイルを開くところまでは動作することを確認してます

どこを直したら動きますか？教えてください。

書いたマクロ

名前が出費の場合(→動いた)

Sub データ更新()

If Dir("C:\Users\np\Desktop\"出費.csv") <> "" Then
Workbooks.Open Filename:="C:\Users\np\Desktop\"出費.csv"

Else
MsgBox "Not found"

End If

Range("A5").Select
Selection.Copy
Windows("家計簿.xlsm").Activate
Range("D2").Select
ActiveSheet.Paste

Windows("出費.csv").Activate
Range("B15:B35").Select
Selection.Copy
Windows("家計簿.xlsm").Activate
Range("D3").Select
ActiveSheet.Paste

Sheets("Graph1").Select

End Sub

名前を『日付+出費』という変数を含むものにした→動かない

Sub データ更新()

If Dir("C:\Users\np\Desktop\" & Format(Now, "yymmdd") & "出費.csv") <> "" Then
Workbooks.Open Filename:="C:\Users\np\Desktop\" & Format(Now, "yymmdd") & "出費.csv"

Else
MsgBox "Not found"

End If

Range("A5").Select
Selection.Copy
Windows("家計簿.xlsm").Activate
Range("D2").Select
ActiveSheet.Paste

Windows(" & Format(Now, "yymmdd") & "出費.csv").Activate
Range("B15:B35").Select
Selection.Copy
Windows("家計簿.xlsm").Activate
Range("D3").Select
ActiveSheet.Paste

Sheets("Graph1").Select

End Sub

回答No.1

n-jun · ベストアンサー

http://okwave.jp/qa5069540.html
の続きでしょうか？

＞Windows(" & Format(Now, "yymmdd") & "出費.csv").Activate
Windows(Format(Now, "yymmdd") & "出費.csv").Activate
⇒" & が余計についているのではないかと。

お礼

動きました！素晴らしい。。いや～解決してスッキリです！
ありがとうございました。