Access VBA のバックアップ(No.1)

• バックアップ一覧
• ソース を表示
• Access VBA は削除されています。
  • 1 (2009-10-25 (日) 06:46:04)

Index?

• Access VBA フォーム
• http://www.geocities.jp/cbc_vbnet/Sql/action.html#update
• クエリの抽出条件をVBAから与える
• IsNull
• SQL-Null値を条件
• レコードセット有無

• 日付変換
  • 20090721こんな文字列を日付計算用にするには。そのままじゃ使えないのかよ！

• 文字列日付変換
  • strDate=Format(dDate,"YYYYMMDD")
  • 2009/07/21といったようなDate型をString型20090721に変換
    • ここは@じゃないのかよっ
• 最適化
• AccessからExcelを開く. 別名保存方法←うまくいかん
• 別名保存２ SaveAs
• AccessからExcelを開く. 参照設定なし
• フォルダ内ファイル数カウント
• mdbファイルと同じ位置にあるexcelファイルをOpenするとき
• フィールド名テーブル名取得
  • テーブル名取得時にMsys...が入るのデフォルト。Msys...は排除操作いれてテーブル名取得が一般的らしい。
• フィールド名を変数指定
• 別mdbファイル開く
• アクセスからエクセルの関数を使う
• エクセルオートメーション
• アクセスからエクセルのデータ検索

     Set vExExel = CreateObject("Excel.Application")
     Set vExWb = vExExel.Workbooks.Open(strExFileNamePass)
     Set vExWs = vExWb.Worksheets(strSheetBC)
     
     'ファイル非表示
     vExWb.Application.Visible = True
     vExExel.UserControl = True
     
     vExWs.Activate
     Set oFindObj = vExWb.Worksheets(strSheetBC).Cells.Find(what:="2")
     '応用
     'Set oFindObj = vExWb.Worksheets(strSheetBC).UsedRange.Rows(17).Find(what:=strOpNo)

   If oFindObj Is Nothing Then
   Else
       iCol = oFindObj.Column
   End If

• なぜかvExWs.Cells.Find(what:="2")ではうまくいかない...
• 001002000というのから2000という値を抽出したい

   0をブランクに置き換え
   Debug.Print Replace(文字列（ここでは001002000）, "0", " ")
   ExcelWorkSheet関数Trimを使う（例はアクセスからエクセルワークシート関数使用する場合）
   Debug.Print Excel.Application.WorksheetFunction.Trim(Replace(vExJcF(1, iLpCntF), "0", " "))
   Trimでブランクを1つにまとまったものをブランクでSplit
   strNoSplit = Split(vExExel.WorksheetFunction.Trim(Replace(vExJcF(1, iLpCntF), "0", " ")), " ")
   strNoSplit(0)には1
   strNoSplit(1)には2

• 重複削除系
• 重複削除系