こんばんは。
質問者さんが戻ってくるか分りませんが、一応、マクロを作ってみました。個人用マクロブックを作ってください。そうしたら、以下のコードを、ThisWorkbook モジュールに入れてください。それ以外では動きません。
CSVを開けると、その範囲内が、自動的に書式が設定されます。
Personal.xls の ThisWorkbook モジュールに登録
Private WithEvents App As Application
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
On Error Resume Next
Wb.Worksheets(1).Select
If Err() = 0 Then
If InStr(1, Wb.Name, ".csv", vbTextCompare) > 1 Then
Application.ScreenUpdating = False
Wb.ActiveSheet.UsedRange.NumberFormatLocal = "000"
Application.ScreenUpdating = True
End If
End If
On Error GoTo 0
End Sub
Private Sub Workbook_Open()
Set App = Application
End Sub
お礼
回答ありがとうございます。 マクロコードまで載せて頂き大変感謝しております。 指数化を無効化するオプションは無いということなので、 マクロを組み込むことも視野に入れて対処したいと思います。 ありがとうございました。