人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBAについて質問です。

現在楽天のオークションで自動投稿出来るVBAを作成しています。
問題点が一つだけ発生しており画像のアップロードで
セルに入っている値を入れたいのですが、どうしても指定したセルのコードがそのままアップされてしまいます。
例)Cell(1,11)に9の値が入っているとして。
cell(1,11)に入っている値の9を入れたいのに、cell(1,11)がアップ画面に入れられて
エラーになってしまいます。


詳しい方でコードを見ていただき、解決法を教えていただけないでしょうか?
お手数をおかけしますがよろしくお願いいたします。


●質問者: aiomock
●カテゴリ:コンピュータ インターネット
✍キーワード:cell VBA アップロード エラー オークション
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● kn1967
●100ポイント ベストアンサー

値を入れたい場合は下記のようにします。

fileName(0) = Cells(j, 22).value '22列目のJ行目の値が入る
fileName(1) = Cells(j, 23).value '23列目のJ行目の値が入る
fileName(2) = Cells(j, 24).value '24列目のJ行目の値が入る

ただし、この部分が動く時点では変数Jは空っぽの状態なのでエラーになります。

さらに、変数J はフォームの投稿欄に fileNameの(0)から(2)までを順に入れるためにのみ、

使っているものであって、シートのどこから取ってくるかには関与しません。


変数Jは関与しませんから、

どのセルから持ってくるかは下記のように明示しないといけません。

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行目を実行せよ」という指示を出すルーチンを別途作れば、

連続投稿が可能になるという寸法です。

◎質問者からの返答

ご回答ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ