|
>Dim LastLow7 As Long
> Dim r As Integer
> Dim s As Integer
> データ = "データ.xls" '【追加】
↑
ここで「データ.xls」と言う文字が入ります。
↓なぜに? 間違ってます。
> For Each データ In Workbooks '【追加】
このところで違和感は感じないですか?
↓ ↓
> If データ.Name = データ Then '【追加】
> With ListBox1
> .ColumnCount = 2
> .ColumnWidths = "200;500"
> End With
コード自体がハチャメチャなので1部分だけの例。
Dim Wb As Workbook
Dim Flg As Boolean
Flg = False
For Each Wb In Workbooks
If Wb.Name = データ Then
Flg = True 'ここでフラグを立てて
Exit For
End If
Next
'フラグの状態でブックの有無判別
If Flg = True Then
MsgBox "ここでブックがあった時の処理"
End If
|
|