質問編集履歴
1
ソースコードに最初エラー発生部を明確化
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -105,7 +105,7 @@
|
|
|
105
105
|
End If
|
|
106
106
|
Set copysrcsheet = ThisWorkbook.Sheets(FigName2$) 'コピー元シート
|
|
107
107
|
|
|
108
|
-
copysrcsheet.Copy before:=OutputWorkbook.Sheets("sheet2") 'Sheet2がない場合は問題あり！
|
|
108
|
+
copysrcsheet.Copy before:=OutputWorkbook.Sheets("sheet2") 'Sheet2がない場合は問題あり！**←←当初はここでエラーストップ**
|
|
109
109
|
Set OutputSheet = OutputWorkbook.Sheets(FigName2$) 'コピー先シート
|
|
110
110
|
OutputSheet.Name = Csv_senyou(i%).FigName + Csv_senyou(i%).SagyouName
|
|
111
111
|
OutputSheet.Name = Mid(OutputSheet.Name, 2)
|