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
お礼
回答ありがとうございます。大きな出費をしたのに報われないんじゃ、情熱も下がりますよね。