VBAについてお尋ねします。

質問

ExcelのVBAを利用して画像サイトなどの画像をひとつずつみていくプログラムを
つくっているのですがなかなか思うようにいきません↓。
仕組みはURL(http://www.****.com/123456)の最後の数字を
スピンボタンを押すと昇順または降順になって
ブラウザソフトで表示する仕組みです。

ちなみに画像は特に保存する必要がなぃので
画像ダウンローダーのようなソフトはつかいたくないです。

別にわざわざVBAを使用しなくてもできるなど
ヒントだけでもいただけたら幸いです。

回答No.2

imogasi · ベストアンサー

これだけのことで、凝りすぎだ。VBAは何処までやる力があるかにもよるが。VBAがよくできる人の余技ならいざ知らず。
ーー
わたしなど力不足だと思うが、興味でやってみた。参考に。
UserForm1に
テキストボックス１つ
スピンボタン１う
コマンドボタン１つ
を設ける。
ーーー
ユーザーフォームの表示（実行）で、URLを入力する
Private Sub UserForm_Initialize()
'x = InputBox("Url")
x = "http://www.dt.com/123"
y = InStrRev(x, "/")
n = Val(Right(x, Len(x) - y))
MsgBox n
s = Left(x, y)
MsgBox s
TextBox1.Text = x
End Sub
でテキストボックスに初期値の末尾番号のURLを表示
今回は上記では、入力した値でなく、 "http://www.dt.com/123"を既定値としてセットしている
ーー
スピンボタンの▲▼クリックで番号をアップやダウン。
テキストボックスの番号がアップやダウンして表示されるはず。
ーー
適当な番号になったところで、コマンドボタンをクリック。
テキストボックスのテキストのURLをサイトを開けということ。
ーー
サイトが開く。
＝＝＝
コードは上記のほかに
Public n
Public s

Private Sub CommandButton1_Click()
Set ie = CreateObject("InternetExplorer.application")
ie.navigate (UserForm1.TextBox1.Text)
ie.Visible = True
End Sub

Private Sub SpinButton2_Change()
pn = UserForm1.SpinButton2.Value
MsgBox n + pn
m = n + pn
UserForm1.TextBox1.Text = s & Trim(Str(m))
End Sub
＝＝＝
やってみたものの、仮定している事項が沢山在る。最後に/を入れないなど。
なので色んなケースでうまく行くかテストしてない。というか多様な場合の備えが十分でない。
"http://www.dt.com/123"はたまたまやってみて、存在した例で意味はない。末尾が１２３、１２４、１２５でも表示が出た。
こういう例も、１例質問者の側で質問に書いて、あげてくれると助かるのだが。
＝＝
そういうことで、質問者は、よほどこのへんのことの経験を積んでないと、VBAコードを作る（上記を改良・訂正するとか）のが無理と思う。

回答No.1

kmetu

どこまでできていてどこがうまくかないのかまったくわかりません。
ですので、どのような助言をしていいのかもわかりません。

まさか一から作ったものがほしいというのではありませんよね。