編集履歴

回答編集履歴

追記

2020/04/29 14:53

投稿

スコア2136

test CHANGED Viewed

@@ -315,3 +315,15 @@
 ExcelVBAの情報は多数ありますので検索してみて、
 上手くいかなければ、別途質問してください。
+＞＞Setファイルのプルパス一覧
+プルパスってなんだ＾＾；
+誤字です。
+愛嬌ということで訂正しません＾＾；；
+誰かに見られて恥ずかしければそちらで直してください。

追記

2020/04/29 14:53

投稿

mattuwan

スコア2136

test CHANGED Viewed

@@ -101,3 +101,217 @@
 シート上に一覧ができたら、それをリストボックスに転記してみてください。
 （シート上にリストを作らなくてもいいけど、そうなると配列変数とかも勉強する必要が出てきます）
+---
+追記
+> Excelファイルの一覧を作ることはできたのですが、
+> その後が全くできません。
+> せっかく詳しく教えていただいたのですが、
+> これ以上できる気がしません。
+> 申し訳ありません。
+一朝一夕で出来るものではありません。
+気長に根気強く勉強していくしか道はありません。
+やりたいことと並行して、基礎をある程度やっておかないと、
+メンテナンスまではこちらは面倒見きれません。
+1つのプログラミング言語を覚えるのに、
+最低200時間はかかると言われているようです。
+以下をユーザーフォームのモジュールに書きます。
+```ExcelVBA
+Option Explicit
+Private Sub UserForm_Initialize()
+    Set一覧取得
+    With Me.ListBox1
+        .List = ThisWorkbook.Worksheets(1).Range("B1").CurrentRegion.Value
+        .ColumnWidths = "100;0;0;0"
+    End With
+End Sub
+Sub Set一覧取得()
+    With ThisWorkbook.Worksheets(1).Cells(1)
+        'シートの初期化
+        .CurrentRegion.ClearContents
+        'ファイルのフルパス一覧の取得
+        Setファイルのプルパス一覧 .Cells
+        'シート名の一覧取得
+        Setシートの一覧 .CurrentRegion
+        '作業列のクリア
+        .EntireColumn.ClearContents
+    End With
+End Sub
+Sub Setファイルのプルパス一覧(ByRef c As Range)
+    Const csPath As String = "C:\Users\Public\test\"
+    Dim ixRow As Long
+    Dim buf As String
+    buf = Dir(csPath & "*.xlsx")
+    Do Until Len(buf) = 0
+        ixRow = ixRow + 1
+        c(ixRow, "A").Value = csPath & buf
+        buf = Dir()
+    Loop
+End Sub
+Sub Setシートの一覧(ByRef rng As Range)
+    Dim c As Range
+    Dim wbk As Workbook
+    Dim wsh As Worksheet
+    Dim ixRow As Long
+    For Each c In rng
+        Set wbk = Workbooks.Open(c.Value)
+        For Each wsh In wbk.Worksheets
+            ixRow = ixRow + 1
+            With rng(ixRow, "B")
+                .Offset(, 1).Value = wbk.FullName
+                .Offset(, 2).Value = wsh.Name
+                .Offset(, 3).Value = wsh.UsedRange.Address(False, False, xlA1, True)
+                .Value = Get表示名(.Offset(, 3).Value)
+            End With
+        Next
+        wbk.Close False
+    Next
+End Sub
+Function Get表示名(ByVal sName As String) As String
+    Dim i As Long
+    i = InStr(sName, "'")
+    If i > 0 Then
+        Get表示名 = Left(sName, i - 1)
+    End If
+End Function
+```
+動きを目視で確認しやすいように、逐一シート上に展開してます。
+実行して「出来た！」で終わらず、
+ヘルプなりWebなりで調べて一行一行を理解されることを望みます。
+↓を参考にしてステップ実行をしながら、シート上の結果と、
+コードを見比べてみてください。
+[プロパティ、メソッドの探り方 マクロ記録とＦ１のHelpを使う](http://www.ken3.org/vba/excel-help.html)
+その他参考サイト
+[Excel(エクセル)VBA入門：目次](http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/index.html)
+[「VBA基本」のメニュー](http://www.asahi-net.or.jp/~ef2o-inue/menu/menu04.html)
+[Excel VBAコンテンツ](http://officetanaka.net/excel/vba/)
+[エクセルマクロ・Excel VBAの使い方](https://www.relief.jp/Excel-VBA/)
+[初めてのVBAマクロ "Hello World!"](http://home.att.ne.jp/zeta/gen/excel/c03p01.htm)
+この辺で一通り網羅していると思いますが、
+ExcelVBAの情報は多数ありますので検索してみて、
+上手くいかなければ、別途質問してください。

修正

2020/04/29 14:47

投稿

mattuwan

スコア2136

test CHANGED Viewed

@@ -92,7 +92,7 @@
 マクロのあるブックと同じフォルダーから、
-フルパスの一覧をシート上に作ってみるところから始めるといいと思います。
+Excelファイルのフルパスの一覧をシート上に作ってみるところから始めるといいと思います。

追記

2020/04/29 10:37

投稿

mattuwan

スコア2136

test CHANGED Viewed

@@ -65,3 +65,39 @@
 というような流れになるかと（漏れがあるかも？）思います。
 これらを一つづ解決していく必要があります。
+----
+そして、出来たリストボックスを選択することで、
+1）フルパスとシート名などをを取得し、
+2）指定のファイルを開く
+3）指定のシートのセルをコピーする
+4）ファイルを閉じる
+（複数のブックにまたがる場合は、上記を繰り返す。）
+というプログラムを起動したらいいと思います。
+いずれもまだ出来てないという事なら、
+マクロのあるブックと同じフォルダーから、
+フルパスの一覧をシート上に作ってみるところから始めるといいと思います。
+その後は文字列の加工等いろいろなことを覚えてください。
+シート上に一覧ができたら、それをリストボックスに転記してみてください。
+（シート上にリストを作らなくてもいいけど、そうなると配列変数とかも勉強する必要が出てきます）