
エクセルのマクロで下記のようなコードを書いて動かしているのですが、文字列でシート1に貼り付けされません。
読み込むtextファイルは、タブ形式で区切られており、その区切りごとに各列に読み込ませる形式にしたいです。
下記の形式だと、各列ごとに読み込みはされますが、文字列になりません。
textファイルの中身全てを文字列形式でコピーするにはどうしたら良いのでしょう
か?
Sub csvFile_get()
Dim openCsv As String
Worksheets("Sheet1").Activate
openCsv = Application.GetOpenFilename("textファイル,*.txt")
If openFile = "False" Then Exit Sub
With Workbooks.Open(openCsv)
.Sheets(1).Cells.Copy ThisWorkbook.Sheets("Sheet1").Range("A1")
.Close (SaveChanges = False)
End With
End Sub

皆様、ご回答本当にありがとうございました。ベストアンサーを選ぶのが遅くなってしまって申し訳ありません。本当に助かりました!

回答5件
あなたの回答
tips
プレビュー