ys2310

http://d.hatena.ne.jp/Hash/20081219/1229690768

ys2310

http://ms-access.seesaa.net/category/687344-1.html
http://office.microsoft.com/ja-jp/access-help/HP005186654.aspx
http://www.mrexcel.com/forum/microsoft-access/728915-access-db-pop-up-upload-form-dataentry-form.html
http://office.microsoft.com/ja-jp/access-help/HA010117258.aspx
http://office.microsoft.com/ja-jp/access-help/HA001214202.aspx
http://pc.nikkeibp.co.jp/article/NPC/20060913/248018/?rt=nocnt
http://hamay.blogspot.jp/2010/07/blog-post_4352.html

ys2310

Sub sample()
  Dim DBpath As String 'ファイル名
  Dim adoCn As Object 'ADOコネクションオブジェクト
  Dim adoRs As Object 'ADOレコードセットオブジェクト
  Dim strSQL As String 'SQL文
 
  DBpath = "C:sample.mdb" 'Access 2003 接続するファイルのフルパス
  'DBPath = "C:sample.accdb" 'Access 2007 or later
  Set adoCn = CreateObject("ADODB.Connection") 'ADOコネクションオブジェクトを作成
  Set adoRs = CreateObject("ADODB.Recordset") 'ADOレコードセットオブジェクトを作成

ys2310

http://www.relief.jp/itnote/archives/013900.php

▼操作手順：データを非表示にしてもグラフは表示されたままにする
グラフを選択
　↓
［グラフツール］
　－［デザイン］タブ
　　－［データの選択］ボタンをクリック
　↓
［データソースの選択］ダイアログ

ys2310

param = Chr(34) & InPath + file & Chr(34)

ys2310

i Mod 2 '2の剰余

ys2310

Sub WebQuery()

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.okayasu-shoji.co.jp/quote/20120530.htm", Destination:=Range( _
        "A1"))
        .Name = "20120531"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True

ys2310

ActiveSheet.ChartObjects("グラフ 5").Activate

ys2310

If DateAdd("d", 0, StartDate) > DateAdd("d", 0, "2011-Jan-27") Then
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
Else

If DateAdd("d", 0, .Cells(i, 1)) > DateAdd("d", 0, "2012-Dec-26 10:00:00") Then

Else

ys2310

Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$V$4:$V$393") _
        , ActiveSheet.Range("$D$1"), , False, True, False, False