質問編集履歴
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,21 +19,13 @@
|
|
|
19
19
|
|
|
20
20
|
### 該当のソースコード
|
|
21
21
|
|
|
22
|
-
```ここに言語名を入力
|
|
23
|
-
ソースコード
|
|
24
|
-
```
|
|
25
|
-
|
|
26
|
-
### 試したこと
|
|
27
|
-
|
|
28
|
-
以下のコードをベースにしております。
|
|
29
|
-
|
|
30
22
|
Sub tenki()
|
|
31
23
|
Dim folder As String '//フォルダ
|
|
32
24
|
Dim file As String '//ファイル選択
|
|
33
25
|
Dim book As Workbook '//ブックオープン
|
|
34
26
|
Dim ws As Worksheet, flag As Boolean '//参照シート有無
|
|
35
27
|
Dim i As Integer
|
|
36
|
-
i =
|
|
28
|
+
i = 2
|
|
37
29
|
|
|
38
30
|
With Application.FileDialog(msoFileDialogFolderPicker)
|
|
39
31
|
If .Show = True Then
|
|
@@ -79,6 +71,11 @@
|
|
|
79
71
|
|
|
80
72
|
End Sub
|
|
81
73
|
|
|
74
|
+
### 試したこと
|
|
75
|
+
|
|
76
|
+
上記のコードをベースにしております。
|
|
77
|
+
いじる箇所は大体見当がつくのですがどうすればよいのか分からず……
|
|
78
|
+
|
|
82
79
|
### 補足情報（FW/ツールのバージョンなど）
|
|
83
80
|
|
|
84
81
|
ここにより詳細な情報を記載してください。
|