回答編集履歴
1
コード微修正
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
```vba
|
|
9
9
|
Public Sub ImportSheetModule()
|
|
10
10
|
Dim impFile As String: impFile = ThisWorkbook.Path & "\Sheet1.cls" 'インポートファイルパス
|
|
11
|
-
Dim dstSheet As String: dstSheet = "Sheet
|
|
11
|
+
Dim dstSheet As String: dstSheet = "Sheet1" 'インポート先シート名
|
|
12
12
|
|
|
13
13
|
Dim WB As Workbook: Set WB = ThisWorkbook
|
|
14
14
|
Dim cmps As Object: Set cmps = WB.VBProject.VBComponents
|