- ベストアンサー
Webクエリで”次の10件”も自動で取り込むには？
marbinの回答
- marbin
- ベストアンサー率27% (636/2290)
WebからコピーしてそのままVBEに貼り付けてませんか？ そうするとURLの部分がおかしくなります。 テキストエディタにコードを貼り付けてみると、URLの部分 の前後に長さ0の文字列が挿入されているようです。 URLの部分を修正して実行してみてください。 ※私のコードをVBEに貼り付けると、URLの部分が赤くなっているはずです。 この状態のときはおかしいと思ってください。
関連するQ&A
- 「次へ」で更新する複数のWEBページを自動で次ページを開いてWEBページを保存したいのですが・・・
サイトを開くとページが複数ページにわたっていて、「次へ」を押すことにより次ページを開くようになっていますが、私の保存したいサイトは80ページぐらいになるのでとても手作業で開いては保存、という作業をするには時間がかかりすぎます。 こういった作業を自動で実行してくれるフリーのソフトはないでしょうか？
- ベストアンサー
- フリーウェア・フリーソフト
- Webぺーじの表を取得
データベースについて無知なのでご教示いただけると幸いです。 あるWebページ中のランキング表（テーブルで記述されています）を分析したいと思っているのですが、自動的にページ中の表の部分だけを抽出して保存するにはどのような方法がありますでしょうか？ データ管理ソフトはOpenOfficeくらいしか持っていません。 すでに200ページほどパソコンに取りこんでいるのですが、その中のデータを手作業で抜き出すのが大変なので質問してみました。 意味不明な質問かもしれませんが、アドバイス頂けると幸いです。よろしくお願いいたします。
- ベストアンサー
- その他(データベース)
- Webページからテキストを自動で抽出するプログラム
複数のWebページ(html)からテキストだけを抽出する作業を自動で行うツールが必要なのですが、知っているのがあれば教えて欲しいです。 または、それを開発するにはどの言語が教えてくださると嬉しいです。 Webページのテキストの一部でもいいですが、すべてを抽出しても構いません。
- ベストアンサー
- その他（プログラミング・開発）
- EXCELのwebクエリについての質問です。
EXCELのwebクエリについての質問です。 よろしくお願いします。 webサイトにあるデータをエクセルに自動で取り込みたいのですが、 そのサイトが、データ１００件毎にページを増やしていく仕様なので50ページあったら50回 も手動でデータを取りにいかないといけません。なんとかして自動にしたいのですが・・・ そのサイトはhttp://○×○×.com/page=1/のように"page="に数値を入れれば良いのでエクセルでなんとかなりそうかなと思い質問しました。 ウェブクエリ取得をマクロで記録してみました。 With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://○×○×.com/page=1", Destination _ :=Range("$A$1")) .Name = "page=1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "2" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With この中で、 １．"page=1"を連番で連続取得したい。（総ページ数は人的に確認して、どこかに入力できればいいです） ２．エクセルに１つの表にしたいので:=Range("$A$1")だと上書きしていってしまのでどうにかしたい。 ３．.Name = "page=1"も連番で増やしていきたい。 こんなことは可能でしょうか。 VBAは初心者以下です。 どなたかお助けください。
- ベストアンサー
- その他MS Office製品
- Webページ→web clipper作業自動化
(1)ある学習サイトのWebページをgoogle chromeで開く (2)web clipper evernoteで記事をクリップ (3)次のレッスンへ行くボタンを押す →(1)に戻る という作業を自動化することは可能でしょうか？ ※パソコンはmacです。
- ベストアンサー
- ブラウザ
- Webクエリ
会社のイントラネットデータの売上データ表を落とすのにマクロを組んだのですが、 例えでいうと 大分類 □トヨタ □日産 □ホンダ 中分類 □カローラ □スカイライン □プレリュード 小分類 □1500000 □3000000 □2000000 の様に、大分類の欲しいデータのチェックボックスにサインして実行、次に中分類の欲しいデータのチェックボックスにサインして実行、最後に小分類の欲しいデータのチェックボックスにサインして実行してハイリッチ型式かhtmlにサインして取り込みすると、欲しい小分類のデータでなく大分類データになってしまいます。 後で、画面のデータソースをCSS型式で保存をかけたところ保存名のところの名前が大分類中分類小分類それぞれ同じでした。これは、どうしてなのでしょうか？又、その作ったマクロで試しに実行したらその日は、実行できたのですが、つぎの日欲しいデータ取り込みではないですが、試しに実行してみたら、Lodingという文字が貼り付けられて終了でした。時間日付によって代わってしまうjaba?だからでしょうか？
- 締切済み
- Excel（エクセル）
- エクセルの最終ページだけを自動印刷
エクセルの最終ページだけを自動印刷するには、どうしたらいいのでしょうか？マクロVBAを使い、エクセルシートが、何ページにわたって印刷されるのか判定し、その最終ページだけを印刷したいのです。 目的は、エクセルの表の最終行に新しいレコードを追加して行ってるのですが。手作業ですといちいちプレビューして何ページにまたがってるか確認して、そのページ番号を指定せねばなりません。その最終ページだけ印刷したいことがよくあるので、マクロで自動化したいのです。
- ベストアンサー
- オフィス系ソフト
- ExcelVBAの繰り返し処理でwebクエリの取込みできますか。
こんにちは。VBA初心者の駆け出しです。 よろしくお願いします。 「外部データの取込み」→「新しいwebクエリ」からデータを取り込んで、集計するマクロに取り組んでいますが、 webクエリの部分はマクロの記録で自動記述されたものを使っています。 URLが指定されるので、変数をおいてみたけどダメでした。 そもそも外部デ－タの取り込みは、変数使えないのでしょうか？ すみません、データベースがサイトにしかなくて、webクエリしか方法がないのですが。。 サイトが（データが）膨大で、取り込む回数が100を超えるんで、URLだけ変更して、同じ記述を繰り返して使ってるのですが、 それだけでモジュール2つにしないとエラーになってしまいます。なんとかURLの部分を変数にできないか、とお助けをお願いします。もくはwebクエリを保存して、そのファイルを利用できないでしょうか？ 各webページは同形式です。 未熟ながらloopが使えれば、と考えたのですが、脳が足らなくて、こちらに始めて投稿した次第です。説明分かりづらい所があったらご指摘お願いします。 環境： win2000 XP Officce ver.2002 2003 混合した環境です。 マクロを保存先のExcelは2003です。
- ベストアンサー
- その他（プログラミング・開発）
- アクセスでウェブ上のデータを半自動的に取り込みたいのですが
今まで、気象データの集計をするのに、特定のウェブ上で参照したい年月日を入力して、その日の時毎データの頁を開き、データ表をマウスで範囲を指定してコピーし、エクセルに貼り付けて、そのデータを用いて集計を行っておりました。 しかし、上記の方法ですといちいち年月日の指定→画面の表示後必要箇所をコピー→エクセルに戻って貼り付け→ウェブに行って次の日の指定→と繰り返し作業が面倒です。 そこで、アクセスのフォームで取り込みたい年月日の範囲を指定することで、参照元のウェブから、特定範囲のデータを次々にコピーして、テーブルに各データを格納できるマクロを作成できないかと考えました。 所有バージョンはアクセス2002です。 今まではエクセルをよく使っており、簡易的なデータベースとしてもエクセルで済ませていましたが、データが蓄積すると処理に時間がかかるようになりましたので、アクセスを使った方がいいかなと考えます。 クエリーをとりあえず構成できるようになったのは２日前からです。モジュールは全く作ったことがありません。 よろしくご教示下さいますよう、お願い申し上げます。
- 締切済み
- オフィス系ソフト
- エクセルのwebクエリについて
A1に銘柄コード（４桁の数字）が入力されている場合、 B1以下にデータを取得するマクロを作りたいと考えています。 webクエリ機能を使えばデータを取得できるのはわかったのですが、 マクロのコードにA1の数値を参照させる方法がわかりません。 当方の環境は Windows XP Excel 2007 です。 どうか皆様よろしくお願い致します。
- ベストアンサー
- Windows XP
お礼
ありがとうございます。 上手く動きますね。 大変助かりました。 出力された表を見映えよく整えるくらいは自分でVBできますので、これからやります。
補足
たびたび申し訳ありません。 For i = 0 To cnt linestr = s(i) If linestr Like "*</B>件中<B>*" Then kai2 = Split(Split(linestr, "<B>")(1), "</B>")(0) kai1 = Split(Split(Split(linestr, "<B>")(2), "</B>")(0), "～")(1) Exit For End If Next i が全く理解できません。いくら検索しても、似たようなものにヒットしないため、さっぱりわかりません。"*</B>件中<B>*は一体何なのでしょうか？