TransferTextメソッドにて、テーブルにCSVデータをインポートする際、
文字コード（CodePage）を指定してインポートすることができます。

最後の引数[CodePage]を省略すると、シフトJISで読み込まれます。

DoCmd.TransferText acImportDelim, , _
    "テーブル名", "ファイルパス", True, , 932   'Shift_JIS

DoCmd.TransferText acImportDelim, , _
    "テーブル名", "ファイルパス", True, , 51932 'EUC-JP

DoCmd.TransferText acImportDelim, , _
    "テーブル名", "ファイルパス", True, , 65001 'UTF-8

DoCmd.TransferText acImportDelim, , _
    "テーブル名", "ファイルパス", True, , 50220 'JIS

CSVデータエクスポート時も同様です。

こちらに参考になる表があります。
http://www.atmarkit.co.jp/fdotnet/dotnettips/013enumenc/enumenc.html

Dim xlApp   As Object
Dim xlBook  As Object
Dim xlSheet As Object

Dim FileName   As String
Dim myFileName As String
Dim myShape    As Object

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

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

With xlSheet

    .Range("A18:D18").MergeCells = True       'セルを結合
    .Range("A18").HorizontalAlignment = -4108 '横位置を中央揃えに
    .Range("A18").Font.Size = 48              'フォントの大きさを変更

End With

'保存
xlBook.Saveas (FileName)

xlBook.Close

xlApp.Application.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

参照設定なしで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)

続きを読む…»

ACCESSファイルを開いたときに自動的に実行されるマクロ

・マクロを「autoexec」という名前で作成する。
・モジュールに書いた関数を実行することもできます。
※Subルーチンではダメ。Functionで宣言する。
関数を実行する場合は、アクションに「プロシージャの実行」を選択し、
プロシージャ名に関数名()を入力する。

ここで設定したオートマクロは、起動時の設定での「フォーム/ページの表示」よりも優先されます。

Visual Basicでは改行を表現する際、vbCrLfと表記しますが、
更新クエリ等で改行を含んだ処理をしたいときは利用できません。

その場合、以下のように改行を表現します。

Chr(13) & Chr(10)

Chr(10) = LF（ラインフィード）
Chr(13) = CR（キャリッジリターン）