Excel VBA
(作成中)
Movable Type形式のエクスポートデータから記事一覧をExcelシートに出力するマクロ 昨日まで作成してきました記事一覧の各記事の題名にハイパーリンクを設定する処理を追加しました。 Excel シートに記事一覧を追加した後に、シートを上から1記事ずつハイパ…
昨日のコードの訂正です。 行の始まりが「--------」(- が8個連続) であると、それを記事の終了部分と認識し、1記事分の空白行を作るようになっていました。 上記のような状態だと、以下のように空白行ができてしまいます。 そこで新たに、記事の終了確認処…
昨日の続きです。はてなブログの管理ページから生成した、Movable Type形式の記事のエクスポートデータをExcelシートに出力するマクロです。 本マクロ実行前に、エクスポートデータを用意してください。実行すると、現在アクティブになっているExcelブックの…
とりあえず、Excelシートへ1記事1行で出力してみました。 TITLE: 記事題名BASENAME: 記事URLの後半固有部分STATUS: 下書き/公開 区別DATE: 投稿日時CATEGORY: カテゴリ (複数ある場合は // にて結合しています) 1678行目の元データ AUTHOR: k-emuTITLE: 一…
ようやくの再開です。はてなブログの記事のエクスポートファイルから「記事一覧」を作成する件について。 最終的には、各記事のメンテナンスに役立つものにしたいのですが、先ずはエクスポートデータの、「メタデータ・セクション」と呼ばれる、「AUTHOR:」…
(作成中)
はてなブログの記事のエクスポートファイルをExcelシートに書き出すマクロを作成しました。 今回追加したコードは、以下の4行。SHIFT-JISに変換したテキストファイル(tmpText) を Split関数を使用して、改行コードvbLF(ASCIIコード10)で、区切って、配列化し…
UTF-8形式のテキストファイルを読み込んで、SHIFT-JIS形式に変換後、先頭から指定文字数だけ抜き出して、対応するASCIIコードを表示します。 出力先をイミディエイトウィンドゥだけにしておけば手間もかからなかったのですが、シートへの出力についての体裁…
文字コードがUTF-8形式のテキストファイルを、Excel VBAの LINE INPUTステートメントでそのまま読み込むと文字化けしてしまう、というところまで進んできました。 なんとか文字化け無しでテキストを取得したいということで調べてみると、ADO(ActiveX Databa…
テキストファイルをExcel に出力させるための準備として、改行コードについて調べてみました。 Excel VBAの Line Input ステートメントが認識できる改行コードはCRLF [文字コード0D0A: Chr(13)+Chr(10) ] または、CR [文字コード0D: Chr(13) ] ということな…
テキストファイルを改行毎に分割して、Excelシートのセルへ1行ずつ出力していくマクロを作成しました。ファイル名を取得する処理と、出力用シートを用意する処理、本番処理を分けています。 Function ファイルパスを取得 は、2022/2/13の記事で作成したもの…
「はてなブログ記事のエクスポートファイルをダウンロードしてファイル一覧を作成する」の続きです。 ダウンロードしたエクスポートファイル(テキストファイル)をExcel VBAで加工して、記事一覧を作ろうとしているわけですが、先ず、加工するテキストファイ…
つい先日「実務で使えるExcel VBAプログラミング作法」という本を読んだばかりですが、また新たな「Excel VBAプログラミング作法」に関する本を見つけました。 それが今日ご紹介する、永井 雅明著「完全版 ExcelVBAのスキルを実務で活かし切るための本」です…
Excel VBAを使って作業を自動化するには・・・という本ではなくて、自分で作ったExcelVBAのコードを、可読性が高く、メンテナンスしやすいものにするにはどうすればよいのかという、コード記述の作法について、初心者向けに解説された本です。 2019年に出版…
(作成中)
(作成中)
(作成中)
(作成中)
(作成中)
はてなブログの管理画面(ダッシュボード)のアクセス解析ページの内容を読み取り、日々記録していくという作業を始めます。 ソースコードから特定のタグを取り出していく方式で進めていきたいと思います。 きょうは、ソースコードから欲しい情報が読み取れる…
IE (Internet Explorer)の制御において、一番最初の操作である、目的ページを捕まえるコードを作成しました。 繰り返し使う処理については、別プロシージャとして切り出しています。 Sub GetObjIE() 'ターゲットwebページを取得(メイン処理) Sub FindURL(obj…
2/28の続きです。前回の記事では、新しいタブを開くところまでできましたが、きょうは、その新しく開いたタブをオブジェクト化して制御できるようにします。 制御するといっても、制御の前段階。先ずはオブジェクト化して「捕まえる」というところまでをやり…
起動済みのIE (Internet Explorer)に新たにタブを追加して、そのタブに別のURLを表示するには 「.Navigate2メソッド」を使用します。 これについては、引き続き、三流君ken3さんの以下のページを参考にさせていただきました。ありがとうございます。 ken3mem…
昨日は、IEが起動しているか確認しました。きょうはIEを起動させてみます。 以下のコードを実行するとIEが新しく開きます。 Sub OpenIE() Dim TGTpageURL As String '表示したいURL TGTpageURL = "https://hatenablog.com/" Dim objIE As Object Set objIE =…
先日、はてなブログのアクセス解析を調べる。という記事を投稿して定期的に記録していくには自動化しなくてはなぁ・・・という感じで締めくくりましたが、実際にやろうとするとなかなかうまくはいかないです。 日常のネット閲覧はChromeを使っているので、ま…
6月13日の記事で、 はてなブログのダッシュボード、記事の管理ページでの記事一覧から、1記事分を抜き出すやり方を修正しました。前回での1記事分の取り方やり方は 「getElementsByTagName("tr") 」でTRタグをつかまえたあとに、getElementsByClassName("tr-…
はてなブログの記事一覧ですが、 一通りコードが完成し、Excelシートに一覧表として出力することができました。実際の表は、横方向に各項目。縦方向に記事という構成で、1記事1行という構成にしています。ただ、それだと、横方向に長すぎるため、この例では…
1週間ほど前に作成した、Excel シートへの1記事分の出力シートから編集用URLや公開用URL等を取り出します。 -------------------------------------------------- いつものことですが、全体の処理の中から該当するプロシージャのみ切り出しており、前処理は…
昨日は、Left / right / Replace 関数を用いて文字の抜き出しをやってみました。Replace 関数は、文字の置き換えなので、不用な文字を消去するという方法でやっていますが、もし抜き出したい文字列の中に同一文字列があったら、それらも消去してしまうので、…