|
▼さくら さん:
>ご回答ありがとうございます。
>試してみたのですが、動きません。なぜでしょうか?
>知らない関数があり、よくわからない箇所があるのですが、
>ご教授頂いたコードで、ファイルを開かせるまでの以下の部分だけで試したところ、Ifのコードが下記の違いで指定ファイルが開いたり開かなかったりするのですが。
>ヘルプを見てもLen関数がよくわかりません。開かせるファイル名によっては =1ではだめなのでしょうか?
>Sub Macro1()
>(この間同じ)
> If Len(Dir(strFileName & c.Value)) = 1 Then
> If c.Value <> "" And Dir(strFileName) <> "" Then ← 上行をこうすると開くのですが
> Workbooks.Open (strFileName & c.Value)
> End If
> Next c
>End With
>End Sub
失礼しました
If Len(Dir(strFileName & c.Value)) > 1 Then
でした
または
If Dir(strFileName) <> "" Then
で良いです。
「C.value=""」は必要ありません。
なぜなら、値のあるセルのみを取得しています。下記にて
Set LastCell = .Range("A1", .Range("A65536").End(xlUp)) _
.SpecialCells(xlCellTypeConstants)
|
|