AKB48の推しメンをセンターにできちゃうかもしれない!? >>

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

このQ&Aに関連する最新のQ&A

A 回答 (3件)

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

でいいです。
    • good
    • 0
この回答へのお礼

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

お礼日時:2012/09/14 19:57

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



For .. Next
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …

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

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

お好きな方を。
    • good
    • 0
この回答へのお礼

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

お礼日時:2012/09/14 19:58

VBAに拘りがありますか


ハイパーリンクではだめですか
これはExcel97にありました。
Excel2010は[追加]リボンの中にあります。
    • good
    • 0
この回答へのお礼

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

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

お礼日時:2012/09/14 20:01

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング