カテゴリー
SugiBlog Webデザイナー・プログラマーのためのお役立ちTips

ACCESS Excelファイルに画像を挿入

まずは変数を宣言します。

Dim xlApp   As Object
Dim xlBook  As Object
Dim xlSheet As Object

各オブジェクトを作成します。

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open([Excelファイルのフルパス])
Set xlSheet = xlBook.WorkSheets(1)

ワークシートオブジェクトをwithブロックで使用します。

With xlSheet

画像を貼り付けしたい起点(左上)のセルを選択します。

.Range("A1").Select

withブロックが入れ子になりますが、画像オブジェクトとしてアクセスできるようにします。 続きを読む…»

8,860 views

ADODB.Streamでテキストファイルに追記する

ADODB.Streamを使って、テキストファイルに文字列を追加する方法をご紹介します。

基本的な使い方はこちら。
ADODB.Streamを使ったテキストファイルの読み書き – 2014-01-23
オプション等の説明は上記にて掲載していますので、今回は割愛します。

まずは変数を宣言

Dim sr          As Object
Dim strData     As String

オブジェクトを作成

Set sr = CreateObject("ADODB.Stream")

オプションの設定

sr.Mode = 3 '読み取り/書き込みモード
sr.Type = 2 'テキストデータ
sr.Charset = "Shift_jis" '文字コードを指定

Streamオブジェクトを開いて、ファイルの内容を読み込みます。 続きを読む…»

39,483 views

Outlookメッセージファイル(.msg)からデータを取り出す – VBA

Outlookのメッセージファイル(.msg)から送信元アドレスや件名、本文等のデータを取り出すことができます。
よくあるのは、受信トレイのメールからデータを取り出したりしますが、今回は任意の場所にコピーしたメッセージファイル(.msg)からデータを取り出す方法をご紹介します。

まずは宣言

Dim OL  As Object
Dim msg As Object

Outlookオブジェクトを生成

Set OL = CreateObject("Outlook.Application")

msgファイルを指定

strFileName = "c:\sample.msg"

メッセージファイルをオブジェクトに読み込む

Set msg = OL.CreateItemFromTemplate(strFileName)

各種データを取得します。

Debug.Print "SentOnBehalfOfName: " & msg.SentOnBehalfOfName
Debug.Print "SenderName: " & msg.SenderName
Debug.Print "ReceivedByName: " & msg.ReceivedByName
Debug.Print "ReceivedOnBehalfOfName: " & msg.ReceivedOnBehalfOfName
Debug.Print "ReplyRecipientNames: " & msg.ReplyRecipientNames
Debug.Print "To: " & msg.To
Debug.Print "CC: " & msg.CC
Debug.Print "BCC: " & msg.Bcc
Debug.Print "Subject: " & msg.Subject
Debug.Print "Body: " & msg.Body
Debug.Print "HTMLBody: " & msg.HTMLBody
'Debug.Print "Recipients: " & msg.Recipients
Debug.Print "SenderEmailAddress: " & msg.SenderEmailAddress

プロパティについてはMSDNを参照しましたが、Recipientsはプロパティが存在しないとエラーが発生したのでスキップしています。
続きを読む…»

67,976 views

VBAでWEBサーバーにHTTPリクエスト

MSXML2.XMLHTTPオブジェクトを利用してWEB上のデータを取得したり、PHP等のプログラムへデータを送信することができます。

ACCESS等で入力したデータをすぐにWEBに反映させたいとき等に便利です。

まずは宣言

Dim xmlHttp  as Object 'HTTPリクエストオブジェクト
Dim url      As String 'リクエストを送るURL
Dim strParam As String 'リクエストパラメータ
Dim strRes   As String '結果を受け取る変数

HTTPリクエスト用オブジェクトのバインド

Set xmlHttp = CreateObject("MSXML2.XMLHTTP")

・GET送信
リクエストするURLを指定

url = "http://www.example.jp/index.html"
With xmlHttp
    .Open "GET", url, False
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .Send
    strRes = .ResponseText
End With

続きを読む…»

54,531 views

既定のプログラムで実行させる

ACCESSにてURLを指定しWEBページを開きたい場合、InternetExplorerのパスを指定して実行させることも可能ですが、ユーザーが設定している既定のブラウザで実行させることも可能です。
その場合は以下のようにします。

Dim ws As Object

Set ws = CreateObject("WScript.Shell")

ws.Run "http://www.yahoo.co.jp/", VbAppWinStyle.vbMaximizedFocus

このWScript.ShellのRunメソッドは、新しいプロセス内でプログラムを実行します。

ブラウザに限らず、他のプログラムでも応用することができます。
2番目の引数はウィンドウステータスを指定します。
主な設定例は以下の通りです。

VbAppWinStyle.vbHide 0
VbAppWinStyle.vbNormalFocus 1
VbAppWinStyle.vbMinimizedFocus 2
VbAppWinStyle.vbMaximizedFocus 3
VbAppWinStyle.vbNormalNoFocus 4
VbAppWinStyle.vbMinimizedNoFocus 6

また、上記では省略していますが、第3引数(bWaitOnReturn)にTRUEを指定すると、プログラムが終了するまでスクリプトの実行を待機します。

詳しくは参考URLをご覧ください。

参考URL
http://msdn.microsoft.com/ja-jp/library/cc364421.aspx

6,770 views