現在楽天のオークションで自動投稿出来るVBAを作成しています。
問題点が一つだけ発生しており画像のアップロードで
セルに入っている値を入れたいのですが、どうしても指定したセルのコードがそのままアップされてしまいます。
例）Cell（1,11）に９の値が入っているとして。
cell(1,11)に入っている値の９を入れたいのに、cell(1,11)がアップ画面に入れられて
エラーになってしまいます。
詳しい方でコードを見ていただき、解決法を教えていただけないでしょうか？
お手数をおかけしますがよろしくお願いいたします。
No.1
2915
301
100pt
値を入れたい場合は下記のようにします。
fileName(0) = Cells(j, 22).value '22列目のJ行目の値が入る fileName(1) = Cells(j, 23).value '23列目のJ行目の値が入る fileName(2) = Cells(j, 24).value '24列目のJ行目の値が入る
ただし、この部分が動く時点では変数Ｊは空っぽの状態なのでエラーになります。
さらに、変数Ｊ はフォームの投稿欄に fileNameの(0)から(2)までを順に入れるためにのみ、
使っているものであって、シートのどこから取ってくるかには関与しません。
変数Ｊは関与しませんから、
どのセルから持ってくるかは下記のように明示しないといけません。
fileName(0) = Cells(1, 22).value '22列目の1行目の値が入る fileName(1) = Cells(1, 23).value '23列目の1行目の値が入る fileName(2) = Cells(1, 24).value '24列目の1行目の値が入る
とりあえず以上です。まずはご確認ください。
※質問では1,11となっているのに対して、どうして22/23/24なのかは、
私には理解できておりませんので、上記を参考にして、
ファイル名が入っているセルを明確にコードに書き込んでください。
以下、余談
この次の段階として、単品でなく連続して投稿したいという事になるでしょうから、
そのための布石として、下記のようにしておくと良いでしょう。
Dim r As Long r = 1 fileName(0) = Cells(r, 22).value '22列目の1行目の値が入る fileName(1) = Cells(r, 23).value '23列目の1行目の値が入る fileName(2) = Cells(r, 24).value '24列目の1行目の値が入る
※単品での動作が完璧に近づいたら、
「r行目を実行せよ」という指示を出すルーチンを別途作れば、
連続投稿が可能になるという寸法です。
aiomock
2009/12/29 02:37:27
1
1
2
2
269
267
TRTr
ご回答ありがとうございます。