ここから本文です

マクロでWebページからデータを連続して貼り付けたいと思っています。 URLの「pn=...

hoh********さん

2017/12/512:16:09

マクロでWebページからデータを連続して貼り付けたいと思っています。
URLの「pn=1」が1ページ目で、2ページ目が「pn=2」となります。

2ページ目以降もAセルに貼り付けたいと考えていますが、関数で定義してもうまく動きません。
どのようにしたら2ページ目以降も連続で貼り付けられるでしょうか?

Sub sample()
With ActiveSheet.QueryTables.Add(Connection:="URL;http://*pn=1", _
Destination:=Range("$A$1"))
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

閲覧数:
13
回答数:
1
お礼:
250枚

違反報告

ベストアンサーに選ばれた回答

yok********さん

2017/12/513:55:38

外してたらすみません。

QueryTablesに限らず
Addってのは新規に追加する場合に使うメソッドなので
既存になっている場合は
QueryTables(ActiveSheet.QueryTables.count).Connection=

でよいのでは?
あとrefreh以外は要らないかな?

  • yok********さん

    2017/12/514:24:32

    Destinationをずらせないと同じセル位置なので
    連続にはならないですね。
    でも僕ならWebクエリーのシートと
    データ蓄積は別シートにします。

    ところで
    >関数で定義してもうまく動きません。
    うまく動くというのは、予想した動作があって
    その通りになることを指します。
    ところがあなたがいううまく動かないは
    その予想と、実際の動作の両方を
    伝えないと、回答する方には事態が
    伝わらないことをご理解願いたく。

    また
    Connection:=
    に直接文字列リテラルが書かれていては
    変化させられないですよね?
    そこはどうしてるんですか?

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問は投票によってベストアンサーに選ばれました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

仕事のかけもちに関するアレコレ

みんなのアンテナ

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる