質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.02%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

textファイルを文字列でエクセルに貼り付けたい

hirano_7
hirano_7

総合スコア38

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

5回答

0グッド

0クリップ

35469閲覧

投稿2018/02/13 23:37

エクセルのマクロで下記のようなコードを書いて動かしているのですが、文字列でシート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

以下のような質問にはグッドを送りましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

グッドが多くついた質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

hirano_7

2018/03/15 20:45

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

回答5

1

ベストアンサー

手元のExcel 2013で試してみましたが、外部データの取り込み機能でも実現できそうです。
以下、文字コードがSJIS、タブ区切り、各行が3カラム、全カラムをテキスト形式として読み込むサンプルです。

なお、外部データの取り込み機能を使うと、取り込み範囲に名前が付きます(「数式」タブの「名前の管理」に並びます)。また、CSVファイルと接続されて、CSVファイルの中身が変更された時に「更新」で自動反映できるようになります(「データ」タブの「接続」に並びます)。
便利な機能ですが邪魔になる場合は、名前と接続を削除してください。以下のサンプルでは削除するようにしています。

visual

1Sub csvFile_get() 2 3 '外部データの取り込み機能で読み込み 4 With ActiveSheet.QueryTables.Add(Connection:="TEXT;textファイル.txt", Destination:=Range("A1")) 5 6 ' 文字コードセットはSJIS 7 .TextFilePlatform = 932 8 9 'タブ区切り 10 .TextFileTabDelimiter = True 11 12 '各カラムの形式(この例では3カラム分をテキスト形式と指定) 13 .TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat) 14 15 '取り込みの実行 16 .Refresh 17 18 '取り込み範囲に付けられた名前の削除 19 ActiveWorkbook.Names(.Name).Delete 20 21 'ファイルとの接続を解除 22 ActiveWorkbook.Connections("textファイル").Delete 23 24 End With 25End Sub 26```

投稿2018/03/10 14:59

segavvy

総合スコア956

ExcelVBAer👍を押しています

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

1

ワークブックとして読み込んでしまうと、その時点で数字は数値化されてしまい、例えば0123のような文字列は123に変換されてしまいます。
なので、通常のファイル読み込みで文字列として取り込み、面倒ですが1行ずつ貼り付けていくのが無難かと思います。
その際、念のためセルの表示形式を文字列に設定しておくとよいと思います。
上記のものに修正してみたコードを貼っておきます。
あまりチェックしていないので、あとはご自分で確認をお願いします。

VBA

1Sub csvFile_get() 2 3 Dim openCsv As String 4 Dim toSh As Worksheet 5 Dim buf As String 6 Dim cols As Variant 7 Dim row As Long 8 9 openCsv = Application.GetOpenFilename("textファイル,*.txt") 10 If openFile = "False" Then Exit Sub 11 12 Set toSh = Worksheets("Sheet1") 13 14 row = 1 15 Open openCsv For Input As #1 16 Do Until EOF(1) 17 Line Input #1, buf 18 cols = Split(buf, vbTab) 19 With toSh.Range(Cells(row, 1), Cells(row, UBound(cols) + 1)) 20 .NumberFormatLocal = "@" 21 .Value = cols 22 End With 23 row = row + 1 24 Loop 25 Close #1 26 27End Sub

投稿2018/02/14 00:54

ttyp03

総合スコア16988

ExcelVBAer👍を押しています

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

0

テキストファイルの拡張子が".csv"ではなく、".txt"であれば、Workbooks.OpenTextを使うと001などを数値ではなく、"001"の文字列として取り込むことが可能となります。

OpenTextの引数の中にfieldInfoがあります。このfieldInfoは、配列形式の引数ですが、読み込む全てのフィールドの型を定義することができます。このフィールドの型として文字列型(xlTextFormat=2)を指定すれば、文字列として読み込むことが可能です。
詳しくは、以下のURLをご確認ください。
http://excel.style-mods.net/tips_vba/tips_vba_9_03.htm

なお、上記のURLでは、読み込むファイル名の拡張子が".csv"となっていますが、"001”を"1"ではなく、"001"にするには、拡張子が".txt"でないと動作しないようです。
私の場合は、拡張子が違っている場合には、一度、拡張子が".txt"のファイルにコピーしてからOpenTextを呼んでいます。

投稿2018/03/10 12:32

編集2018/03/10 12:35
diracpaul

総合スコア157

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

0

textファイルの各値をダブルクォーテーション(”)で囲ってみては?

投稿2018/02/14 00:55

Mustang32861341

総合スコア100

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

0

Bookとして開いてる(WorkBooks.Open)ので、自動解釈されて文字列ではなくなります。

簡単な対応として FSO(Scripting.FileSystem.Object) を利用し、
テキストファイルを文字列型変数に格納し、
改行コードで Split してシートに代入する方法があります。

FSO使用例:Text = FSO.GetFile(Path).OpenAsTextStream(ForReading).ReadAll

投稿2018/02/14 00:54

ExcelVBAer

総合スコア1175

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.02%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。