参照設定なしでACCESSからExcelファイルを作成する方法です。
罫線等の定数は使用できないため、実際の数値を与えています。

Dim xlApp    As Object
Dim xlBook   As Object
Dim xlSheet  As Object
Dim FileName As String

FileName = Environ("USERPROFILE") & "\デスクトップ\test.xls"

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(FileName)
Set xlSheet = xlBook.WorkSheets(1)

続きを読む…»

基本となる列挙型

enum Days { Sun, Mon, Tue, Wed, Thu, Fri, Sat };

取り出すときはintegerにキャストする

(int)Days.Sun // 0
(int)Days.Wed // 3

続きを読む…»

Windowsエクスプローラーにてファイルのプロパティの概要タブで確認できる内容を取得する。
AVIやMP3には付加情報（ID3タグ情報）が格納されている。

※この方法は簡易的なものでID3.orgで規定されているフォーマットに沿って読み出すのとは異なり、主要な項目のみ取得するものである。

まず、このプログラムにはShell32.dllを使用します。 続きを読む…»

axMediaPlayerコンポーネント

ツールボックス上で右クリック->[アイテムの選択]
COMコンポーネントタブを選択し、一覧の「Windows Media Player」をチェック

プロパティ
settings.mute (boolean) 消音
settings.URL (string) ファイルパス
settings.autoStart (boolean) 起動時、自動再生するか
Ctlcontrols.currentPosition (integer) 再生位置（秒数）
currentMedia.duration 再生中のファイルの総時間
続きを読む…»

エラーメッセージ：This program requires at least 3MB of free virtual memory to run.

【発生要件】
使用パソコンの実メモリが1GB以上、及び仮想メモリが1GB以上のとき発生する

【対処方法】
[マイコンピュータを右クリック]-[プロパティ]-[詳細設定タブ]-[パフォーマンスの設定ボタン]-[詳細設定タブ]-[仮想メモリの変更ボタン]
仮想メモリの設定値を「初期サイズ」「最大サイズ」ともに1GB以下に設定する