再度マクロで質問します。

質問

セルのＧ９に　圧０１－１．ＪＰＧという文字がはいっています。Ｇ９には関数の式　CONCATENATE(　　)により、
圧０１－１という表示になっているます。この為、セル
Ｇ９の文字は変化するわけですが、今WINDOWSのデスクトップ上に写真というフォルダがありその中にいくつかのファイルがあります。　セルＧ９と一致するファイル（JPGファイル）を　エクセル上で結合されているセル　（A2:A13)に
自動的に貼りつけたいのですが、マクロがよくわかりません教えて下さい。

回答No.4

DoragonFang

エラーになる原因は２つ考えられます。

１つは指定したファイルが存在しない場合。
２つ目はファイル名が間違っている場合です。

特にファイル名で、全角と半角は区別されますので、
Ｇ９セルにあるファイル名と、実際のファイルのファイル名とを調べてみて下さい。

ファイルの存在をチェックするコードです。

ActiveSheet.Pictures・・・の前に入れて見て下さい。

Set fs = CreateObject("Scripting.FileSystemObject")
If fs.Fileexists("C:\デスクトップ\" & Range("G9").Value) = False Then
A = MsgBox("Not Exist!", vbOKOnly, "Error")
Exit Sub
End If

回答No.3

KenKen_SP

G9セルの値が　圧０１－１．ＪＰＧ　であるとして。

1.　ActiveSheet.Pictures.Insert("(パス)\" & Range("G9").Value).Select
のパスで指定した場所に、その名のファイルがちゃんとありますか？
2.　G9セルに表示されているファイル名の「．ＪＰＧ」が半角になっていますか？特に「．」。

はずしていたら、すみません。

回答No.2

hogehage

G9 は固定ですので、下みたいになりますでしょうか。

ActiveSheet.Pictures.Insert("C:\Desktop\" & Range("G9").Value).Select

補足

ありがとうございます。
やってみましたがエラーがでました。　G9の値が文字だからでしょうか？　それともG9のセルに関数が入っているからでしょうか？　よい知恵をお貸し下さい。

回答No.1

hogehage

どの部分がわからないのか不明ですが、

図の貼り付けでしたら、
マクロの記録を取れば、２行コードが出てくると思います。

それとも
(1)G9 で示されたファイルを変数として扱うのがわからない
(2)写真フォルダを検索したい(必要ないと思いますが)
(3)指定したファイルがないときのエラー処理
　(On Error Resume Nextで無視でいいと思いますが)
とかでしょうか

補足

多分(1)のところでまよっているのだと思います。
マクロの activesheet.picturres.Insert(c:\デスクトップ\・・・・）の・・・・の所に変数をいれたいのですが？
お願いします。