【VBA】コピー&ペーストした際指数表示させないようにしたい

Question

前提・実現したいこと

お世話になります。

以下やりたいことフローです。
①データシートから特定範囲のセルをコピー
②新しくワークブック作成
③作成したワークブックにペースト
④csv形式で保存

流れは一通りできているのですが、下記問題が解決できません。

ご助言願います。

発生している問題・エラーメッセージ

コピー範囲はZ列にID、AA列に数値が記載されています。
Z列のデータをコピーペーストすると、そのまま文字列として
使いたいのですが、数値（指数表示）されてしまいます。

Ex）正）30141e01 → 誤）301410(3.01E+05)

該当のソースコード

    Worksheets("転送シート").Activate
     
    nname = a & "\" & Sheets("転送シート").Range("V3").Value
       
    Dim fPath As String
    Dim fName As String
    Dim rng As Range
      
   fName = a & "\" & Sheets("転送シート").Range("V3").Value & "." & "csv"
    
    Application.DisplayAlerts = False
    
    '■現在選択しているセル情報をrngに格納
    Range(Cells(5, 26), Cells(58, 26)).Select
    Set rng1 = Selection
      Range(Cells(5, 27), Cells(58, 27)).Select
    Set rng2 = Selection
    
    
    
    '■新規ブック作成→rngをA1にコピー→CSV保存→CSV閉じる
    Workbooks.Add
'Z列のコピペ
    rng1.Copy
    ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
'AA列のコピペ
     rng2.Copy
    ActiveSheet.Range("B1").PasteSpecial Paste:=xlPasteValues
    
    ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlCSV
    ActiveWindow.Close
    
    Application.DisplayAlerts = True
 
   

試したこと

csvファイル作成時にカンマ区切りにすればできそうな記事を読んだので、
Fileformat:=xlCSVをいれましたが効果なし

ペーストの形式が悪いと思い、Z列とAA列を分け、Z列のペーストを下記種類お試ししたが効果なし
xlPasteAll
xlPasteAllExceptBorders
xlPasteAllUsingSourceTheme
xlPasteFormulasAndNumberFormats
xlPasteValues
xlPasteValuesAndNumberFormats

補足情報（FW/ツールのバージョンなど）

環境：Excel2016

Answer 1

では、

rng1.Copy
ActiveSheet.Columns("Z").NumberFormatLocal = "@"
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues

または、Z列の内容の語頭に ' を付加しておくか、" " で囲むかを試してみましょう。

Comments

[xail2222]

「ActiveSheet.Columns("Z").NumberFormatLocal = "@"」
は
「ActiveSheet.Columns("A").NumberFormatLocal = "@"」
の間違いじゃないでしょうか！

でも、私の所では質問者さんの症状が再現しません！
いったいどうやったら発生するんだろう…

[seastar3]

質問文から、Z列に文字列としてIDが入っていると解釈してZ列のフォーマットを文字列と規定するコードを示しました。

[xail2222]

そのコードの場所は、Workbooks.Addの後でActiveSheet.Columns("Z")なのだから
Ｚ列がある元のbookではなく、新しく作成したbookのＺ列を指すことになるではないでしょうか。

コピー先を文字型として設定し、値のみそこに入れる。と上手く行くと私は考えていたので
そういうことだと思ったのですが、何か違ってのかな

Answer 2

VBAから直接CSVに出力するのはいかがでしょうか？

以下はCSVへの出力を行う手順をざっくり書いたものです
高速化、データ整形などの改善点はいくつかありますが、参考までに

Sub writeCSV()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    
    Dim csvFile As String
    csvFile = ActiveWorkbook.Path & "\data.csv"
    Open csvFile For Output As #1
    Dim v As Variant
        v = Range(Cells(5, 26), Cells(58, 27))
    Dim i As Long, j As Long
    For i = 5 - 4 To 58 - 4        '1始まりに調整
        For j = 26 - 25 To 27 - 25 '1始まりに調整
            Print #1, v(i, j) & ",";
        Next
        Print #1, vbCr;
    Next
    Close #1
    
MsgBox "data.csvに書き出しました"

End Sub

Answer 3

rng1.Copy
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats

の部分を

Columns("Z").NumberFormatLocal = "@"
rng1.Copy
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats

としてみてはどうでしょうか。

Comments

[momo842]

ご回答ありがとうございます。
お試ししてみたのですが、改善せずでした、、、