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

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

データ整形のマクロ

ソース（一部抜粋）

広告