AccessからExcelファイルを開いて・印刷して・閉じたい http://www.ken3.org/vba/backno/vba064.html

'列番号を文字に変換するユーザー定義関数 Function ColNum2Txt(lngColNum As Long) As String On Error GoTo ErrHandler Dim strAddr As String strAddr = Cells(1, lngColNum).Address(False, False) ColNum2Txt = Left(strAddr, Len(strAddr) - 1) Exit F…

'Accessテーブルの指定フィールド一括置換 Function replaceTable() Dim myDB Dim myTD On Error GoTo Err_replaceTable 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'データベース内のテーブル名前を表示する For Each myTD In myDB.Table…