回答編集履歴
2
フォルダパス
answer
CHANGED
|
@@ -11,6 +11,7 @@
|
|
|
11
11
|
Dim myWs as Excel.Worksheet
|
|
12
12
|
Set myWs = ActiveSheet
|
|
13
13
|
|
|
14
|
+
'※ファイルパスは投稿時バックスラッシュ(\)になってしまいましたが、円マーク(￥)です
|
|
14
15
|
Dim folderPath As String
|
|
15
16
|
folderPath = "(フォルダ)\*.xls*"
|
|
16
17
|
|
1
本文補足
answer
CHANGED
|
@@ -1,6 +1,7 @@
|
|
|
1
|
-
ご質問の内容、拝見しました。サンプルを作成してみました。
|
|
2
|
-
自分のブック内を参照するときはWorksheetsと書くだけで
|
|
3
|
-
|
|
1
|
+
ご質問の内容、拝見しました。サンプルを作成してみました。説明が冗長でしたらスミマセン...
|
|
2
|
+
自分のブック内を参照するときは[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)を暗黙的に参照しているのですが
|
|
3
|
+
(つまり For Each mysheet In Worksheets は、（省略せずに書くと）内部的には For Each mysheet In [Application](https://msdn.microsoft.com/JA-JP/library/office/ff194565.aspx).ActiveWorkbook.Worksheets のようになっています)
|
|
4
|
+
他のブックを参照するときは、[Open](https://msdn.microsoft.com/JA-JP/library/office/ff194819.aspx)や[Add](https://msdn.microsoft.com/JA-JP/library/office/ff840478.aspx)関数で明示的に開いて、そこで得たオブジェクト変数から参照や操作を行います。
|
|
4
5
|
|
|
5
6
|
```VB
|
|
6
7
|
Option Explicit
|