csv変換後も元の形式を保持します

あいさつ式は完璧に機能します. しかし、私は自分のフォーマットを失います.元の形式を維持したままマクロを機能させるには、何をする必要がありますか?

ありがとう、

Public Sub exportRangeToCSVFile_r2()

myCSVFileNameを暗くします文字列として

myWBを暗くするワークブックとして

Dim rngToSave範囲として

薄暗いfNum長い間

薄暗いcsvVal文字列として

Dim i As Long、j As Long

myWB= ThisWorkbook

myCSVFileName= myWB.Path&"\"&"Global Reach-"&VBA.Format(VBA.Now、 "dd MMM yyyy hhmm")&".csv"

csvVal= ""

fNum= FreeFile

Set rngToSave= Range( "A1:I"&Cells(Rows.Count、 "A").End(xlUp).Row)

myCSVFileNameを開いて#fNumとして出力する

i=1の場合rngToSave.Rows.Count

j=1の場合rngToSave.Columns.Count

csvVal= csvVal&rngToSave(i、j).Value&"、"

次のj

印刷#fNum、Left(csvVal、Len(csvVal)-1)

csvVal= ""

次は

#fNumを閉じる

サブの終了