Workbooks.Open マクロ 文字列にしたいです

Question

テキストファイルをコピーして別のファイルに貼付けします。
VBA初心者です。

1・2・3列目を文字列(0で始まるコードがあるため)で貼付したいのですが、
どのように記述するのかがわかりません。
ご指導お願いいたします。

Sub yytokui抽出()

'yytokuiをコピペする
'名前抽出のため

With Workbooks.Open("\172.16.99.2\YYT3\yytokui.txt")

'「貼付元」シートを全部コピー
.Worksheets("yytokui").Cells.Copy
'このブックの「貼付先」シートへ値貼り付け
ThisWorkbook.Worksheets("yytokui").Range("A1").PasteSpecial _
    xlPasteValuesAndNumberFormats
'コピー中状態を解除
Application.CutCopyMode = False
'ブックを保存せずに閉じる
.Close False

End With

End Sub

Answer 1

そのレベルの初心者であれば、「マクロの記録」を使って、それを基にしてはどうでしょうか。