質問編集履歴
4
タグの追加
title
CHANGED
File without changes
|
body
CHANGED
File without changes
|
3
コメントの更新
title
CHANGED
File without changes
|
body
CHANGED
@@ -1,6 +1,12 @@
|
|
1
|
-
**※お久しぶりです。やっと最近完成したので、12月頃にはアップします。少しでも同じような内容で悩んでいる方のお力になれれば幸いです。
|
2
1
|
**
|
2
|
+
どうやら原因は必要なシートをactivateしていなかった為でした。
|
3
|
+
7行目と8行目の間に
|
4
|
+
Workbooks("Profile List Maker.xlsm").Activate
|
5
|
+
と入れたらうまくいきました!
|
6
|
+
2021.2
|
3
7
|
|
8
|
+
**
|
9
|
+
|
4
10
|
VBA初心者です。
|
5
11
|
元ファイル("C\" & VVYear & "年度 新入社員データ.xlsx")から「写真」という言葉が入っているシート名のシートだけを別ファイル("Profile List Maker.xlsm")にコピーしたいのですが、
|
6
12
|
8行目で「インデックスが有効ではありません」とメッセージが出てしまい、止まってしまいます。
|
@@ -19,7 +25,7 @@
|
|
19
25
|
5:Workbooks.Open Filename:="C\" & VVYear & "年度 新入社員データ.xlsx", ReadOnly:=True
|
20
26
|
|
21
27
|
6:For pic = 1 To Worksheets.Count
|
22
|
-
7: If Worksheets(pic).Name Like "*" & "写真" & "*" Then
|
28
|
+
7: If Workbooks(aa).Worksheets(pic).Name Like "*" & "写真" & "*" Then
|
23
29
|
8: Workbooks(aa).Worksheets(pic).Copy after:=Workbooks("Profile List
|
24
30
|
Maker.xlsm").Worksheets(Worksheets.Count)
|
25
31
|
9:End If
|
2
title
CHANGED
File without changes
|
body
CHANGED
@@ -1,4 +1,5 @@
|
|
1
|
-
※お久しぶりです。やっと最近完成したので、12月頃にはアップします。少しでも同じような内容で悩んでいる方のお力になれれば幸いです。
|
1
|
+
**※お久しぶりです。やっと最近完成したので、12月頃にはアップします。少しでも同じような内容で悩んでいる方のお力になれれば幸いです。
|
2
|
+
**
|
2
3
|
|
3
4
|
VBA初心者です。
|
4
5
|
元ファイル("C\" & VVYear & "年度 新入社員データ.xlsx")から「写真」という言葉が入っているシート名のシートだけを別ファイル("Profile List Maker.xlsm")にコピーしたいのですが、
|
1
title
CHANGED
File without changes
|
body
CHANGED
@@ -1,3 +1,5 @@
|
|
1
|
+
※お久しぶりです。やっと最近完成したので、12月頃にはアップします。少しでも同じような内容で悩んでいる方のお力になれれば幸いです。
|
2
|
+
|
1
3
|
VBA初心者です。
|
2
4
|
元ファイル("C\" & VVYear & "年度 新入社員データ.xlsx")から「写真」という言葉が入っているシート名のシートだけを別ファイル("Profile List Maker.xlsm")にコピーしたいのですが、
|
3
5
|
8行目で「インデックスが有効ではありません」とメッセージが出てしまい、止まってしまいます。
|