質問編集履歴
4
返答追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -3,6 +3,8 @@
|
|
|
3
3
|
VBAを使って集計表作っているのですが、セルの値を使った保存を行おうと
|
|
4
4
|
|
|
5
5
|
何度も以下のようなコードを書いているのですがうまくいきません。
|
|
6
|
+
|
|
7
|
+
実行してみるとファイルがありませんと表示され、デバッグ箇所でSaveAs以降が黄色く表示されます。
|
|
6
8
|
|
|
7
9
|
|
|
8
10
|
|
3
文法修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
|
|
37
37
|
Set wb = ThisWorkbook
|
|
38
38
|
|
|
39
|
-
Set ws = ThisWorkbook.WorkSheet.("
|
|
39
|
+
Set ws = ThisWorkbook.WorkSheet.("集計")
|
|
40
40
|
|
|
41
41
|
|
|
42
42
|
|
2
文法修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -46,7 +46,7 @@
|
|
|
46
46
|
|
|
47
47
|
Month = ws.Range(“A2”)
|
|
48
48
|
|
|
49
|
-
Name = ws.Range(“A3)
|
|
49
|
+
Name = ws.Range(“A3")
|
|
50
50
|
|
|
51
51
|
|
|
52
52
|
|
1
一部表記変更しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -52,6 +52,6 @@
|
|
|
52
52
|
|
|
53
53
|
|
|
54
54
|
|
|
55
|
-
wb.SaveAs Filename:=
|
|
55
|
+
wb.SaveAs Filename:=Path & Year & Month “¥” Name .xlsm
|
|
56
56
|
|
|
57
57
|
End Sub
|