Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38206 / 76732

←次へ　｜　前へ→


	【43667】画像のパスをエクセルA列に表示させる方法

PiPo - 06/10/22(日) 17:12 -


	引用なし

	パスワード

同じフォルダーの中に、
「画像のファイル」と
「エクセルのファイル」とを入れています。
エクセル上のA列に画像のファイルを表示しようとしました。
下のコードで実行すると、画像の有無にかかわらず、
0001～0060の画像のパスが表示されてしまいます。
画像のあるパスのみを明示したいのですが、下の
コードのどの部分を修正すると良いのでしょうか。

Sub PhotoCall()
Dim i As Integer
For i = 1 To 60
If ThisWorkbook.Path & "IMG_" & Format(i, "0000") & ".jpg" <> "" Then
　 Range("A" & i).End(xlUp).Offset(1) = ThisWorkbook.Path & "IMG_" & Format(i, "0000") & ".jpg"
End If
Next
End Sub

1 hits

▼

【43667】画像のパスをエクセルA列に表示させる方法 PiPo 06/10/22(日) 17:12

≪