Accessでエクスポートしたデータの整形VBA

Tweet

AccessからエクスポートしたデータはExcelで開くと日付表示のフォーマットが異なってしまう。なので、そのままインポートすると「時分秒」部分がうまくインポートできない。

また、大きい数値などが浮動小数点表示されてしまうため、これもうまくインポートできない場合がある。

データ整形のマクロ 

このマクロによって、指定したファイルの整形を行う。

• 日付行幅オートフィット
• 日付フォーマット変換
• 数値変換
• 行幅オートフィット（コメント化してある）
• 折り返して表示変換（コメント化してある）

ソース（一部抜粋） 

Sub エクスポートデータ整形()

  Application.DisplayAlerts = False

  処理続行確認メッセージ

  Dim RowNum As Integer  Dim TotalPageNum As Integer  TotalPageNum = 0

  '設定シート読込みループ  For RowNum = 2 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row

    '設定取得    設定取得 (RowNum)

    If FilePath = "" Then      MsgBox "おわったよー", vbInformation, "終了"      Exit Sub    End If

    Workbooks.Open Filename:=FilePath    Worksheets(1).Activate

    'シート選択    Dim W As Worksheet    For Each W In Worksheets

      W.Select

      エクスポートデータ整形実行

    Next W

    ActiveWorkbook.Save             '上書き保存    ActiveWorkbook.Close

  Next RowNum

  Application.DisplayAlerts = True

  MsgBox "おわったよー", vbInformation, "終了"

End Sub

Tweet