回答編集履歴
2
フォルダパス
test
CHANGED
|
@@ -23,6 +23,8 @@
|
|
|
23
23
|
Set myWs = ActiveSheet
|
|
24
24
|
|
|
25
25
|
|
|
26
|
+
|
|
27
|
+
'※ファイルパスは投稿時バックスラッシュ(\)になってしまいましたが、円マーク(￥)です
|
|
26
28
|
|
|
27
29
|
Dim folderPath As String
|
|
28
30
|
|
1
本文補足
test
CHANGED
|
@@ -1,8 +1,10 @@
|
|
|
1
|
-
ご質問の内容、拝見しました。サンプルを作成してみました。
|
|
1
|
+
ご質問の内容、拝見しました。サンプルを作成してみました。説明が冗長でしたらスミマセン...
|
|
2
2
|
|
|
3
|
-
自分のブック内を参照するときはWorksheetsと書くだけで
|
|
3
|
+
自分のブック内を参照するときは[Worksheets](https://msdn.microsoft.com/ja-jp/library/office/ff194464.aspx)と書くだけで自分自身の[Workbookオブジェクト](https://msdn.microsoft.com/ja-jp/library/aa288628.aspx)([ActiveWorkbook](https://msdn.microsoft.com/JA-JP/library/office/ff821871.aspx)あるいはThisWorkbook)を暗黙的に参照しているのですが
|
|
4
4
|
|
|
5
|
+
(つまり For Each mysheet In Worksheets は、（省略せずに書くと）内部的には For Each mysheet In [Application](https://msdn.microsoft.com/JA-JP/library/office/ff194565.aspx).ActiveWorkbook.Worksheets のようになっています)
|
|
6
|
+
|
|
5
|
-
他のブックを参照するときは、OpenやAdd関数で明示的に開いて、そこで得たオブジェクト変数から参照や操作を行います。
|
|
7
|
+
他のブックを参照するときは、[Open](https://msdn.microsoft.com/JA-JP/library/office/ff194819.aspx)や[Add](https://msdn.microsoft.com/JA-JP/library/office/ff840478.aspx)関数で明示的に開いて、そこで得たオブジェクト変数から参照や操作を行います。
|
|
6
8
|
|
|
7
9
|
|
|
8
10
|
|