[VBA] セル内の文字を取得してファイルOPEN

質問

EXCEL　VBAにてご質問があります。

セル　A
　1　C:\001.PDF
　2　C:\002.PDF
　　　　・
　　　　・
　　　　・

セル：A1～に入っている文字列を実行する（PDFを開く）にはどうすればよろしいでしょうか。

A1だけであれば、

Sub TEST()
Dim aTE As String
aTE = Range("A1").Value
If Dir(aTE) <> "" Then
With CreateObject("WScript.Shell")
.Run """" & aTE & """"
End With
End If
End Sub

上記で、いけると思いますが、複数（任意）になるとわかりません。

VBAは、始めたばかりで、まだ、右も左も分からない超初心者ですが、
どなたか、教えて頂けないでしょうか。
よろしくお願いいたします。

回答No.3

kybo · ベストアンサー

Sub TEST()
Dim aTE As String
Dim C As Range
For Each C In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
aTE = C.Value
If Dir(aTE) <> "" Then
With CreateObject("WScript.Shell")
.Run """" & aTE & """"
End With
End If
Next C
End Sub

でいいです。

お礼

ありがとうございました。助かりました。

回答No.2

INTLINSIDE

do .. loop とか for .. next で繰り返せます。

For .. Next
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_for_next.html

Array でもいいと思いますが。

For Each In .. Next
http://excel-mania.com/vba/for_next4.html

お好きな方を。

お礼

参考になりました。ありがとうございます。

回答No.1

chayamati

VBAに拘りがありますか
ハイパーリンクではだめですか
これはExcel97にありました。
Excel2010は[追加]リボンの中にあります。

お礼

＞VBAに拘りがありますか
あります。

説明不足で申し訳ありません。