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