社内システムの自作なら、すず工房へ!!
エクセル仕事術などでIT経営を支援します
  • Home
  • エクセル仕事術
  • クラウド生産管理
  • サービス案内
  • つぶやきました
  • お問合せ
  • すず工房
  • 名刺

インターネット上のサイトのデータを読み込む

2012年10月24日

インターネット上に公開されているデータを読み込んで自分のデータとして保存したい、または、プログラムに利用したいというとき、どうしてますか?

ブラウザを開いてサイトへいき、目的のページを開いてデータをコピーしてExcelに貼り付けて、と手作業でやってますか?一ページだけとか一回だけならそれでもいいですが、大量に何回もとなるとそうは行きませんよね。

そんな定型作業はコンピュータにやらせましょう。

Excelからも直接そんな仕事ができます。下記はそんなプログラムの一例です。詳しい説明はなしでもわかると思いますので、コメントを読んで見てください。

実際にHTMLを読み込むプロシージャを呼び出すプロシージャ

Private Sub ReadHTML()
    Dim buf As Variant

    buf = getHTML_p("http://ekikara.jp/newdata/state/line/01.htm")
End Sub

■HTMLを読み込んで文字列として返す
Public Function getHTML_p(URL As String, Optional id As String = "", Optional pw As String = "", Optional incharset As String = "") As String 

'url     ログインID(必要なとき) パスワード(必要なとき) 文字エンコード(文字化けするとき)

    Dim Http As Object
    Dim inStrm As Object


    getHTML_p = ""

    Set Http = CreateObject("MSXML2.XMLHTTP")

    If id <> "" Then
        Http.Open "GET", URL, False, id, pw
    Else
        Http.Open "GET", URL, False
    End If

  'false:同期通信 すべての応答が返ってから次へ

    実際に要求を送信
    Http.send

    If Http.Status = 200 Then '同期通信の場合はエラーページが返ってくるので常に200

        If incharset = "" Then 'Shift-JISのとき
            getHTML_p = StrConv(Http.responseBody, vbUnicode) 'テキスト → Unicode に変換
        Else
        '文字化けする場合は、incharsetを指定してこのプロシージャを呼び出す
        set inStrm = CreateObject("ADODB.Stream")
        With inStrm
             .Open
            .Position = 0
            .Type = 1 'adTypeBinary ← バイナリのまま
            .Write Http.responseBody 'streamに書き込む

            .Position = 0
            .Type = 2 'adTypeText テキストで読みだす
            .Charset = incharset '"UTF-8" "EUC-JP"
                    'stream から読み取られるデータを指定文字エンコードに変換

            getHTML_p = .ReadText ' .Charsetエンコードで読み込んだテキスト
            .Close
        End With
        Set inStrm = Nothing
    End If
End If

Set Http = Nothing

End Function

  • 仕事に生かすExcel
  • マクロ・VBA
    • Excel2013のSDIへの対応
    • WEBからデータをVBAで取込む
    • 選択したセル範囲を取出すには
    • 消費税率を読込むDLL
    • インターネット上のサイトのデータを読み込む
    • 右ボタンでのMouseDownイベントには要注意
    • CSVファイルを読みこむ(Excel)
    • テキストファイル読込速度比較
    • 進行表示の3つの方法
    • IsDate関数はおかしい‥
    • 別のワークブックのデータを読み込む
    • 2 つの指定した日付の時間間隔と満年齢
    • ワークシートのセルに特定のデータを入力する
    • CSVファイルからデータを取り出す
    • ワークシートからデータを取得する
    • ワークシートにデータをセットする
    • 特定のセル範囲からデータを探す方法を比較する
  • Excelの操作

コンタクト

メール
メール
FaceBook
FaceBook

つぶやきました

見える生産管理2022

2022年 10月 31日 月

久しぶりの投稿になってしまいましたが、「見える生産管理2022」を試用できるようになりました。「クラウド生産管理」メニュからご覧ください。

0 コメント

Webデータベース利用の生産管理

2019年 7月 22日 月

いままでExcel(R)を活用した生産管理システムを構築したり構築支援したりしてきましたが、もっと簡単に生産管理を開始できないかと考え、Webに登場してきたデータベースを利用して生産管理できるシステムを考えました。

 

続きを読む 0 コメント

iPadのSIM

2018年 11月 16日 金

iPad Pro 12.9を外出時の仕事用に使っていたが、自宅のMACにリモートアクセスするのがベストに近いかもと気づき、4G回線経由だがやってみた。

しかしこれがかなり遅い。SIMは前の機種で使ってたイオンモバイルのやつ。これが原因かもと思い、一番早いと噂のUQ  Mobileに変えてみた。体感的にはちょっと早いかなという感じ。これからじっくり検証していこうと思う。

 

インターネット接続の設定でつまづいたので以下に備忘録として残しておく。

 

 

続きを読む
プライバシーポリシー | サイトマップ
Copyright © 2002- すず工房. All Rights Reserved.
ログアウト | 編集
  • Home
  • エクセル仕事術
    • 仕事に生かすExcel
      • Excelでできること
      • ExcelからSQLiteを使う理由
    • マクロ・VBA
      • Excel2013のSDIへの対応
      • WEBからデータをVBAで取込む
      • 選択したセル範囲を取出すには
      • 消費税率を読込むDLL
      • インターネット上のサイトのデータを読み込む
      • 右ボタンでのMouseDownイベントには要注意
      • CSVファイルを読みこむ(Excel)
      • テキストファイル読込速度比較
      • 進行表示の3つの方法
      • IsDate関数はおかしい‥
      • 別のワークブックのデータを読み込む
      • 2 つの指定した日付の時間間隔と満年齢
      • ワークシートのセルに特定のデータを入力する
      • CSVファイルからデータを取り出す
      • ワークシートからデータを取得する
      • ワークシートにデータをセットする
      • 特定のセル範囲からデータを探す方法を比較する
    • Excelの操作
      • ふりがなをつける
      • 行・列を固定してスクロール
      • 他のシートのデータを表示する-カメラ機能
      • 文章を指定範囲に収まるように整形する
  • クラウド生産管理
    • 見える生産管理2022
    • 見える生産管理K(簡易版)
    • 試用申込み
  • サービス案内
    • IT経営
  • つぶやきました
    • MAC
    • IT
    • その他
    • 年月別
      • 2022/10
      • 2019/07
      • 2016/07
      • 2016/04
      • 2015/11
      • 2015/10
      • 2015/08
      • 2015/07
      • 2015/06
      • 2015/03
      • 2015/02
      • 2014/12
      • 2014/03
      • 2013/09
      • 2012/11
      • 2012/09
      • 2010/09
      • 2010/08
      • 2010/07
      • 2010/06
      • 2010/03
      • 2010/02
      • 2009/05
      • 2009/04
  • お問合せ
  • すず工房
    • 企業理念
    • 主な資格
    • 実績
  • 名刺
  • トップへ戻る