teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

4

タグの追加

2021/02/11 08:28

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
File without changes

3

コメントの更新

2021/02/11 08:28

投稿

退会済みユーザー
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

2021/02/11 08:16

投稿

退会済みユーザー
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

2020/11/17 02:31

投稿

退会済みユーザー
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行目で「インデックスが有効ではありません」とメッセージが出てしまい、止まってしまいます。