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

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

ただいまの
回答率

88.61%

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

解決済

回答 5

投稿

  • 評価
  • クリップ 0
  • VIEW 23K+

hirano_7

score 34

エクセルのマクロで下記のようなコードを書いて動かしているのですが、文字列でシート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ページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • hirano_7

    2018/03/16 05:45

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

    キャンセル

回答 5

checkベストアンサー

+1

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

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

Sub csvFile_get()

    '外部データの取り込み機能で読み込み
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;textファイル.txt", Destination:=Range("A1"))

        ' 文字コードセットはSJIS
        .TextFilePlatform = 932

        'タブ区切り
        .TextFileTabDelimiter = True

        '各カラムの形式(この例では3カラム分をテキスト形式と指定)
        .TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat)

        '取り込みの実行
        .Refresh

        '取り込み範囲に付けられた名前の削除
        ActiveWorkbook.Names(.Name).Delete

        'ファイルとの接続を解除
        ActiveWorkbook.Connections("textファイル").Delete

    End With 
End Sub



投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

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

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

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

+1

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

Sub csvFile_get()

    Dim openCsv As String
    Dim toSh As Worksheet
    Dim buf As String
    Dim cols As Variant
    Dim row As Long

    openCsv = Application.GetOpenFilename("textファイル,*.txt")
    If openFile = "False" Then Exit Sub

    Set toSh = Worksheets("Sheet1")

    row = 1
    Open openCsv For Input As #1
    Do Until EOF(1)
        Line Input #1, buf
        cols = Split(buf, vbTab)
        With toSh.Range(Cells(row, 1), Cells(row, UBound(cols) + 1))
            .NumberFormatLocal = "@"
            .Value = cols
        End With
        row = row + 1
    Loop
    Close #1

End Sub

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

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

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

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

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

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

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

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

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

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

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を呼んでいます。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

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

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

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

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

  • ただいまの回答率 88.61%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

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