拡張子の関連付けでファイルを開く関数

VBA

http://www.penhagi.net/access/tips/63_api.htm

2004-10-30

データベースの最適化

VBA

Public Function DBOptimize() 'データベースの最適化ショートカット。 SendKeys "%T*D*C" End Function

2004-10-27

ファイル/フォルダ選択ダイアログ、ファイルサーチの例

VBA

ファイル選択ダイアログ Private Sub ctlBtn_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "ファイル選択" .AllowMultiSelect = False .Filters.Clear .Filters.Add "エクセルファイル", "*.xl…

2004-10-02

Accessテーブル関連

VBA

'------------------------------------------------------------------------' ' ' "_インポートエラー*"テーブルを全て削除 ' '------------------------------------------------------------------------' Public Function DeleteInportErrTbl() Dim ob…

2004-09-08

選択範囲の横並びのセル同士を結合する

VBA

'----------------------------------------------------------- ' ' 選択範囲の横並びのセル同士を結合する ' '----------------------------------------------------------- Public Sub SetMergeHorizontalRange() Dim RangeToUse, SingleArea As Variant…