Excel VBA+IEでのスクレイピング - プログラマでありたい
書くと宣言しながら、すっぽかしていたクローラー／スクレイピング Advent Calendar 2014の11日目です。ExcelのVBAで、IEの操作が出来ます。またその中の機能にDOM操作があります。この二つがあれば、Excelだけでスクレイピングできますよという話です。 何を隠そう、私が初めてスクレイピングに手を染めたのはこのExcel VBAスクレイピングでした。毎月定期的に所定のデータを観測するという仕事があって、面倒くさくて仕方がない私は記録用のExcelを魔改造して勝手に取得するようにしました。1時間くらい掛かってた作業も、ボタンポチになったので随分楽になったと記憶しています。（結局、ボタンを押すのも面倒くさくなって、毎日サーバサイドで動かすようにしましたが） スクレイピングの手始めにピッタリのExcel VBAスクレイピングです。環境の用意が簡単なので、ノンプログラマーでも
VBA応用(CDOでメール送信)
その後「ダウンロード」の方に移転しております。 (この画像をクリックすると、該当ページにジャンプします。)
カラーインデックス(ColorIndex)について - EXCEL-LENCE web
Excelは、セルの塗りつぶしやフォントの色などをカラーインデックスという形で保持しています。 1 は 「黒」 2 は 「白」 など、カラーインデックスに対応する色が決まっていています。例えば、 セル色に カラーインデックス 1 を設定したら「黒」で塗りつぶす、という具合です。 カラーインデックスは、何番が何色かについてはExcelのヘルプには記載されていません。 カラーインデックスを知るには、マクロ自動記録機能で実際に色を設定し、その値を拾うのが一般的だと思います。 しかし、それでは何かと不便なので、カラーインデックス一覧を作成するサンプルを作成したので、よろしければご利用ください。 色見本一覧作成 'カラーインデックス定数 Const cIndex = "1,53,52,51,49,11,55,56," & _ "9,46,12,10,14,5,47,16," & _ "3,45,43
ExcelVBAおぼえがきFunction - 烏の俯瞰
仕事でエクセルVBAでちょっと便利な小道具作ってるんですが、その過程でネットで調べにくかったとことかをまとめてみようとおもふます。 ここに書いておけば私も探す手間が省ける。むしろそれが重要。 ダイアログ OK、キャンセルボタン表示でかつキャンセルにデフォルトでフォーカスあたってるバージョン rtn = MsgBox("処理を開始します。" & vbCrLf & "よろしいですか？", _ vbOKCancel + vbQuestion + vbDefaultButton2) If rtn = vbCancel Then Exit Sub End If 行コピー ヘッダのある資料とかでヘッダはいらないけどデータだけまるっとほしい場合 Sheets(Left(ActiveSheet.Name, 4)).Range("A1").CurrentRegion.Offset(2, 0).Copy _
ファイル・ディレクトリが存在するか確認する - アプリケーションとしてのVBA
◆ファイル・ディレクトリの存在を確認する アプリケーションに汎用性を持たせたり、親切なユーザーインターフェースにするた めには、事前に色々なチェックが必要になります。 存在しないファイルを開こうとすればエラーになりますし、存在するファイルと同じ 名前で保存しようとすれば、上書きするかどうかの確認も必要になります。 ファイルやディレクトリの存在を確認するには Dir を使います。 ファイルが存在する場合はファイル名(パスは含んでいません)を、存在しない場合は 空白を返します。 Sub isFileExist() Dim FileExist, FilePath As String FilePath = "C:Book1.xls" FileExist = Dir(FilePath) End Sub ファイル名にはワイルドカードも使用できるので、次のような使い方もできます。 Sub isFileE
Office TANAKA - VBA高速化テクニック[配列を使う]
パソコン通信時代に書いた、この「VBA高速化テクニック」の中で、間違って伝わっているな～と感じていたのは、冒頭の「画面を止める」と、これ「配列を使う」です。90年代のパソコンはスペックが低かったです。CPUは遅いし、メモリも少なく低速、Windowsの画面描画機能も遅かったし、そもそもExcelもそれほど速くはなかったです。そんな中で、大量のセルにアクセスするのなら、一度配列に入れて配列を操作する方が速いよって話でした。でも、何となく「配列に入れると速い」ということだけが一人歩きして、とにかく何でも「配列は速い！配列は速い！配列！配列ぅ！」って言われてます。 ちょっとやってみましょうか。まずは単純に、データを探す操作から。A列に200,000個の名前が入っています。この中から"田中"を探して、該当するB列の数値を取得します。ちなみに"田中"は一番下のセルA200000にあります。 Sub
『表示の色がカラインデックスと合わない』（はんにゃ） エクセル Excel [エクセルの学校]
[[20090913182915]] 『表示の色がカラインデックスと合わない』（はんにゃ） ページの最後に飛ぶ [ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ] 『表示の色がカラインデックスと合わない』（はんにゃ） '----------------------------------- '番号 色 RGB() '1 黒 RGB(0,0,0) '2 白 RGB(255,255,255) '3 赤 RGB(255,0,0) '4 明るい緑 RGB(100,255,100) '5 青 RGB(0,0,255) '6 明るい黄色 RGB(255,255,0) '7 マゼンタ RGB(255,0,255) '8 シアン RGB(0,255,255) '9 茶 RGB(128,0,0) '10 緑 RGB(0,255,0) '11 紺 RGB(0,0,128) '12 うぐい
Office TANAKA - セルの操作[数式の入力]
セルに数式を入力するときは、Rangeオブジェクトに数式を文字列として代入しちゃいましょう。先頭が「=」で始まる文字列は、Excelが自動的に数式と認識してくれます。次のコードは、セルA1とセルA2に数値を入力し、セルA3で合計を求めます。 Sub Sample1() Range("A1") = 10 Range("A2") = 20 Range("A3") = "=A1+A2" End Sub もちろん、ワークシート関数も同じ要領で入力できます。 Sub Sample2() Range("A1") = 10 Range("A2") = 20 Range("A3") = "=SUM(A1:A2)" End Sub もちろん、これで数式を入力することができるのですが、Excelの内部で何が行われているかも理解しておきましょう。 セルのデータはValueプロパティに格納されます。ところが、数式
ExcelVBAで、URLエンコーディングをする方法っていうか、JavaScriptを使う方法 - ウィリアムのいたずらの、まちあるき、たべあるき
今、ExcelVBAを使って、WebAPIにアクセスすることを考えます。 たとえば、 「イースト辞書Webサービス」の「辞書検索サービス（REST版）」 http://www.btonic.com/ws/index.html で、検索メソッドを受け取ることを考えてみましょう。 このとき、XMLを読み込むxloadという関数を使えば出来ます。 Javaという検索用語で、結果のXMLを、メッセージボックスに出すとすると、以下のとおり Sub kensaku1() Dim url As String Dim xdoc As New DOMDocument ' イーストの辞書検索URL url = "http://btonic.est.co.jp/NetDic/NetDicV09.asmx/SearchDicItemLite" flg = "?" ' 辞書名 url = url + flg + "
ExcelVBAについて、再び質問させてください。ウェブ上にあるフォームに、VBAを使って自動記入するプログラムを考えています。 ... - Yahoo!知恵袋
Excel VBAについて、再び質問させてください。 ウェブ上にあるフォームに、 VBAを使って自動記入するプログラムを考えています。 Excel VBAについて、再び質問させてください。 ウェブ上にあるフォームに、 VBAを使って自動記入するプログラムを考えています。 具体的にはユーザーフォームのテキストボックスに入力した文字列を、 ユーザーフォーム上のコマンドボタンを押したら、特定のウェブ上のフォームに自動記入し、 次のウェブページに行き、ユーザーフォーム上の別のテキストボックスから ウェブ上のフォームに自動記入するというものです。 いろいろ探していたら、知恵袋で以下のような質問と回答を見つけました。 → http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1414487069 私のやりたいことをするには、おそらくはこの回答
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
エクセルでA1に入っている文字列をUTF-8に変換、URLエンコードをして、ファイルに書き出すというマクロ？…