メモ三流君の操作動画Memo: 2011

2011年9月29日木曜日

Outlook2010 Vcard形式のアドレス .vcf を連絡先に投げる(ドロップ) テスト

インポートで複数の.vcfを選択できなかったので、
手作業で、Vcard形式のアドレス .vcf を連絡先にドラックAndドロップしてみました。

実験手順
アウトルックの連絡先を開きます。
xxx.vcf ～ zzz.vcf をファイル複数選択します(ctrl+クリックや Shift+クリック)
ドラックアンドドロップで上で選択した複数ファイル(.vcf)を連絡先に投げます。

編集状態で連絡先が複数開かれているので、保存して閉じます。
(ドロップ時に自動で保存してくれればよかったのに、編集状態で複数インポートされてます)

以上、手作業のテストでした。
(※本当は、VBAマクロでループさせてインポートするのがカッコいいんだけど・・・)

三流君 Outlook2010 Vcard形式アドレス .vcf 連絡先ドラックAndドロップテスト操作手順手作業

2011年9月23日金曜日

10分でできる Windows7 記憶域ディスクの管理 Cドライブを縮小して分割する

10分でできる Windows7 記憶域ディスクの管理 Cドライブを縮小して分割する

Windows7 管理から、記憶域ディスクの管理を選択後、
Cドライブを縮小してみたそんなテスト動画です。
http://d.hatena.ne.jp/ken3memo/20110923に静止画と解説載せました。音がうるさい時はこちらを見てください・・・

※実行前に万が一、千が１百回に一回の失敗があると困るので、バックアップを取ってから実行してみてください。

何かの参考となれば、幸いです。
(※PC購入時、パーテーションの分割料金をケチってHDD全体をCドライブとして割り当てられた時、そんな時に使ってみてください。)

タグ:
10分でできる三流君 Windows7 管理記憶域ディスクの管理 Cドライブを縮小パーテーション分割テスト動画 windows computer

2011年9月12日月曜日

Outlook 2007 アウトルックオプション直ちに送信する

終了時に未送信確認メッセージが出てしまったので、

ツールメールセットアップ送受信
で
□接続したら直ちに送信する
を選択して、すぐに送信するように設定した。

が、
オプションを変更しても不安定だったので、
Application.Wait (Execel VBA)
で５秒待ってみた。

そんな試行錯誤のテスト動画です・・・

ソースコードは http://d.hatena.ne.jp/ken3memo/20110912を見てください。

QA20110912 三流君 Outlook 2007 アウトルックオプション接続したら直ちに送信する VBA テスト

2011年8月28日日曜日

VBS IE操作 confirm確認メッセージを無効にする小細工

VBS(WSH)で、confirm確認メッセージをつぶしてから、
ボタンをクリックして処理を行いました。

小細工で同名の関数を.createElement SCRIPTで作成して、
.appendChildで追加
そんな感じです。

ソースコードと全体の流れは http://d.hatena.ne.jp/ken3memo/20110828 を見てください

三流君 IE操作 VBS JRA IPAT テスト試行錯誤 confirm 確認メッセージ無効 .createElement SCRIPT .appendChild

VBS IE操作表示されているIEをURLを条件に探す

ソースコードと全体の流れは http://d.hatena.ne.jp/ken3memo/20110828 を見てください

VBS(WSH)から表示されているIEをURLを条件に探してみたいと思います。

CreateObject Shell.Application でシェルのオブジェクトを作成して、
For Each objWindow In objShell.Windows で 1つ1つ取り出して、
TypeName(objWindow.document) でドキュメントのタイプを表示させてみました。

TypeName(objWindow.document) が HTMLDocument だったら、
MsgBox objWindow.document.Title & vbCrLf & objWindow.document.URL
で、タイトルとURLを確認してみました。

あとは、.URLの値を比べ
Set objIE = objWindow で見つけたオブジェクトをセットしただけでした。

三流君 IE操作 VBS JRA IPAT テスト試行錯誤 CreateObject Shell.Application document.URL

2011年8月24日水曜日

三流君 IE操作起動済みIE、操作済み、既存の表示済みＷＥＢ画面を操作

YouTubeで見る → http://www.youtube.com/watch?v=po2IeQtSwaw

説明
既存の表示済みＷＥＢ画面を操作したかったので、

Shell.Application で管理されている
.Windows を For Each で 1つ1つ取り出し、
TypeNameでタイプを探る。

タイプが If TypeName(objWindow.document) = HTMLDocument なら、
次に
URLを探す
If objWindow.document.URL で判断
URLが一致したら、変数objIEに保存する ( Set objIE = objWindow '代入する )

目的のIEが↑で見つかったかを
If objIE Is Nothing Then
でチェックして、見つからない時は Exit Sub

見つかったら、項目(Name=MEMO)にデータをセットする
セット後、登録ボタンを押す

こんな感じの流れです。

ソースコードは http://d.hatena.ne.jp/ken3memo/20110823/1314115156を見てください。

三流君 VBA IE操作起動済みIE 操作済みIE 既存IE 試行錯誤テストデバッグ Shell.Application .Windows document.URL

2011年7月30日土曜日

三流君 IE操作 .Document.Script.setTimeout をテストその２

ボタンに割り当てられたJavaScriptを実行したかったので、
.Document.Script.setTimeout "javascript:xxxx関数直接コール;", 1000
のテストを兼ねて実験してみました。

ソースコードは http://d.hatena.ne.jp/ken3memo/20110730/1312012493を見てください。
(※ http://www.ken3.org/cgi-bin/group/vba_ie_script.aspも合せてみてください。)

三流君 IE操作 JavaScript実行 .Document.Script.setTimeout テスト結果試行錯誤

2011年7月21日木曜日

VBS で IEを操作して楽天に自動でログインするスクリプトを作成テスト

コードは http://d.hatena.ne.jp/ken3memo/20110721に置いておくので、実験してみてください。

VBS から IEを使用して、
楽天市場にログインするスクリプトを作成してみたいと思います
作成の流れは、
1.ログインページのソースを確認
2.データをセット
3.ログインのボタンを押す
を作成してテストしてみました。

三流君 VBS IE操作楽天自動ログインスクリプト .getElementsByName .getElementsByTagName .Click InStr

2011年7月16日土曜日

三流君 IE操作 VBSでJRA-IPATログインを例題に新しいウインドウを処理

ソースは http://d.hatena.ne.jp/ken3memo/20110716 を見てください。
JRA IPATログインを例題にして、新しいウインドウ(IE)を取得してみました。
と言っても、手抜きの
objShell.Windows(objShell.Windows.Count - 1)
を最後のウインドウと決めつけセットしただけですが...

三流君 IE操作 VBS JRA IPATログイン新しいウインドウ Shell.Application Windows.Count 試行錯誤テスト

2011年7月15日金曜日

三流君 VBA IE操作 ShowWindowで最大化と .FullScreen 違いをテスト

ソースコードは http://d.hatena.ne.jp/ken3memo/20110715/1310661523を見てください。
IE操作で、フルスクリーンと最大化のテストです。
まぁ、軽く読み流してください。

三流君 VBA IE操作 API ShowWindow 最大化 .Hwnd ウインドウハンドル .FullScreen フルスクリーンテスト試行錯誤

2011年7月9日土曜日

三流君 IE操作 VBSから起動したIEでイベント処理する試行錯誤のテスト

コードは http://d.hatena.ne.jp/ken3memo/20110709 をみてください。

VBSから起動したIEでイベント処理を行いたかったので、
試行錯誤のテストをしてみました。

2011年7月8日金曜日

三流君 IE操作 FXの値 .innerTEXTで値を取得後 Splitで分解 UBoundでループ

コードは http://d.hatena.ne.jp/ken3memo/20110707/1309996508 に置いてあります。テストで合わせて使ってみてください。
FXの値を取り出したかったので、 .innerTEXTで値を取得後 Splitで分解 UBoundでループそんな処理です。

.innerTEXT で改行で区切られたテーブルデータを取得して、

tmp = Split(c, vbCrLf) Splitで分解

For i = 0 To UBound(tmp) でループ

Trim(tmp(i)) で空白を判断してセットする

そんな感じのテストです。

解説がループしてて、無駄に長くなってるし、ポイントの解説は数秒でスルー。

何かの参考となれば幸いです。

三流君 IE操作 .getElementsByName と .Length でオブジェクトの数をチェック

.getElementsByNameで取得したオブジェクトを変数に入れ、
.Length でオブジェクトの数をチェックしてみました。

三流君 IE操作で Document.Script.setTimeout を使い javaScriptの実行テスト

ソースは http://d.hatena.ne.jp/ken3memo/20110626/1309072974 をみてください。

よく、私の例だと、リンクやボタンのオブジェクトを探して
.Clickで押したように動作させていますが、
http://q.hatena.ne.jp/1248657374
で見つけた、
objIE.Document.Script.setTimeout
をテストで使ってみました。
※javaScriptの実行テスト

直接プログラム内で、HTML上のjavascriptの関数をコール可能で、
いつもみたいに探してから.Clickよりも、簡単かもしれません。
場面によって使い分けてください。

VBS ログインボタンを.getElementsByTagNameで探して押す JRA IPATでテスト

ソースは http://d.hatena.ne.jp/ken3memo/20110626/1309072419 をみてください。
まぁ、パターン的に、
.getElementsByTagName
などで、タグを探して、.Clickするそんな感じかなぁ。

三流君 VBA クラスモジュールに IE操作のコードをテストで書いてみた

ソースコードとファイルは http://d.hatena.ne.jp/ken3memo/20110624/1308914113 をみてください。
クラスモジュールにIE操作のイベントコードを書いてみたけど、
なかなかうまくいかなかったり。
※クラスの作り方など、オブジェクトを１から勉強しないとダメですね。

三流君 VBA IE操作 WithEvents テスト動画

過去記事の
Dim WithEvents objIE As InternetExplorer 'Excelシートに書いたコードでイベントを拾う
http://d.hatena.ne.jp/ken3memo/20100114/1263452016
動かないとクレームのメールをいただく。

読者から、言われたように、そのままシートにコードを貼っても動きませんでした。
参照設定で、
Microsoft Internet Controls
(※↑がもし見つからない場合は、Microsoft Browser Helpersにチェックを入れてください。)
http://www.ken3.org/cgi-bin/group/vba_ie_object.asp
を参照しないとダメでした。

説明不足でスミマセンでした。

整理フォルダと検索のオプション登録されている拡張子は表示しない

テキストファイルの拡張子を.vbsに変えたかったので、
整理からフォルダと検索のオプションを選択、
表示から □登録されている拡張子は表示しない
□のチェックを外して、
登録されている拡張子を表示しました。

.vbs ファイルを作り VBScriptを書く

.vbsファイルを作成して※拡張子を.vbsにしただけですが
簡単なmsgboxをテストしてみました。

QA20110614 VBA IE操作検索に文字をセット Name＝xxが同じでハマった動画

コードは http://d.hatena.ne.jp/ken3memo/20110614 を見てください。
VBAのIE操作で NAME="p"と値が一緒でハマった、そんな動画です。

ア．nameのn番目を探して逃げた
.getElementsByName("p")(2).Value = "三流"
と(2)と指定したり、
イ．nameは複数あるので、単一のidで指定したり
.getElementsByName("navigationSearchInput")(0).Value = "AKB48"
↑nameの代わりにidを使ってみた。※関数はgetElementsByNameだけど
ウ．フォームを指定した
'検索項目(name=q)にセットする。 objIE.Document.Forms("navigationSearchForm").Item("p").Value = "XXXXXXXXXXXXXX"
↑最後は素直にフォーム(xxxx).項目名(XXXX).値 = 値にした。

QA20110523 VBA IE操作、フレームの操作をデバック

ソースコードは http://d.hatena.ne.jp/ken3memo/20110524/1306190154 を見てください。
VBAのIE操作で、フレーム操作をデバックしながら遊んでみました。
いつものように、途中脱線したり、無言で固まったり（笑）してます。

2011年3月21日月曜日

QA110318 テストエ.Access フォームのコントロールをVBAコードで削除する

QA110318 テストエ.Access フォームのコントロールをVBAコードで削除する

ソースコードは http://d.hatena.ne.jp/ken3memo/20110321/1300682880 を見てください。
フォーム1の削除ボタンを押したら、
フォーム2のコントロールを消してみる
a.全て消す
b.コントロールの名前で判断して消す
そんな処理にチャレンジしてみた。

コントロールを消すには、
DeleteControl "フォーム名", "コントロール名"
で、消せました。
あとは、コントロールの数と名前の取り出しで、
数は Forms("フォーム2").Controls.Count
名前は、 Forms("フォーム2").Controls(n).Name
で取得できたので、組み合わせて使ってみました。

三流君 VBA QA110318 テスト Access フォームコントロール削除 DeleteControl .Controls.Count .Controls(n).Name

QA110318 テストウ. Access フォームにコントロールを動的に追加

QA110318 テストウ. Access フォームにコントロールを動的に追加

ソースコードは http://d.hatena.ne.jp/ken3memo/20110321/1300682880 を見てください。
フォーム1の実行ボタンを押したら、
フォーム2のコントロールを追加してみる
a.テキストボックスの追加
b.追加したテキストボックスにコントロールソースをセットしてみる
そんな処理、テストにチャレンジしてみました。

三流君 VBA QA110318 テスト Access フォームコントロール動的追加 CreateControl

2011年3月11日金曜日

QA110308 Access 更新前処理 _BeforeUpdate内でDLookup関数を使用、値の取得

ソースと解説は http://d.hatena.ne.jp/ken3memo/20110311/1299782074 を見てください。
親IDの更新前処理 _BeforeUpdate でテーブルから顧客名を DLookup関数で取得、単純にセットしてみました。

三流君 VBA Access 2007 アクセス更新前処理 _BeforeUpdate DLookup関数 Cancle デバッグ

2011年3月8日火曜日

QA110307 Excelフォームテキストボックス選択位置の取得は Me.TextBox1.SelStart

ソースと解説は http://d.hatena.ne.jp/ken3memo/20110308/1299515820 を見て下さい。
Excelのテキストボックスで、カーソル位置を知りたかったので調査したそんな動画です。
Me.TextBox1.SelStart でカーソル位置を受け取り、left関数とMid関数で分割したお話です。
※いつものように途中ハマって、固まってます(笑)

QA110307 三流君 VBA Excel TextBox .SelStart テキストボックス Me.TextBox1.SelStart エクセルテキスト選択

位置

2011年3月2日水曜日

三流君釣り動画をYouTube 収益受取動画を提出してみた

YouTube 収益受取動画を提出してみた

動画に広告を載せませんか？
と
お誘いが来たので、提出してみました。
動画はGoogleの検索オプションの説明動画で、ほとんどタイトルで集客した動画でした。
テレビのキャプチャ画像、音楽、バックミュージックなど使っていない動画なので、
著作権の問題もOKだったと思います。
※Google操作説明の動画なのでGoogle自身に文句を言われる可能性はあるけど。
で、無事に動画大切なことはすべて君が教えてくれたの最新の感想を探す方法 ( http://www.youtube.com/watch?v=kcOVXDKQU4k )に広告が載りました。

2011年3月1日火曜日

Windows7 拡張子を表示する整理からフォルダのオプションを選択する

拡張子を表示するために、
フォルダーのオプションを変えたかったので、
私のように古い人はツールのメニューを探すのですが
(ツールを探すけど、Win7にはツールのメニューがない)
整理のボタンからフォルダーオプションの選択が可能と聞きました。
で、実際にやってみました。

2011年2月15日火曜日

動画大切なことはすべて君が教えてくれたの最新の感想を探す方法

Googleの検索で検索オプション
tbs=qdr:h
を付けて１時間以内を探す
そんなお話です。

tbs=qdr:d 日
tbs=qdr:m 月
tbs=qdr:y 年

2011年2月3日木曜日

VBA IE操作リンクの情報 Document.Links を調べる

リンクの情報を取り出したかったので、
Document.Links を調べてみました。
詳細は、 http://www.ken3.org/cgi-bin/group/vba_ie_link.asp を見てください。

2011年1月24日月曜日

VBA IE操作 .Focusでフォーカスをセットしてみた(入力エリアの移動)

VBAのソースは http://d.hatena.ne.jp/ken3memo/20110124 を見てください。
単純に .Focus すると、入力エリアを移動することができるので、
目的のエリアオブジェクト.Focus で使ってみてください。

'表示位置を調整する
objIE.Document.getElementsByName("名前")(0).Focus 'フォーカスをセット
↑みたいな感じで、簡単に使えると思います。

2011年1月2日日曜日

Outlook2007 参照設定してみた

こんにちは。
XXXXXさんへ Excel2007からOutlookを参照設定する方法です。

動画:Outlook2007 参照設定してみた
http://www.youtube.com/watch?v=LyHWtWWoA10
↑こんな感じで参照設定してから作り始めることを参照設定してください
と言ってると思います。
※実際は、定数 olXXXX を使いたいから参照設定してプログラムのコードをコピーしてください。
だとおもいますが、詳細は、コード提供元などに聞いてみてください。

(手前味噌解説の OutlookのVBAをVBSで動かしたい CreateObject と olXXXXの定数を調べる http://d.hatena.ne.jp/ken3memo/20101018/1287345173 も見てください。)

登録: 投稿 (Atom)